ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/emacs-lisp/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/emacs-lisp/unsafep.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\302\303!\210\304\305\306\307\310\311\312\313&\207" [provide unsafep require byte-opt custom-declare-variable safe-functions nil "A list of assumed-safe functions, or t to disable `unsafep'." :group lisp :type (choice (const :tag "No" nil) (const :tag "Yes" t) hook)] 8)
#@87 Dynamically-bound list of variables with lexical bindings at this point
in the parse.
(defvar unsafep-vars nil (#$ . 707))
(byte-code "\302\303\304\305#\210\306\307\211\203 @\302\310\305#\210 A\211\204 *\311\307\211\2037 @\302\312\305#\210 A\211\204' *\307\207" [x --dolist-tail-- put unsafep-vars risky-local-variable t (assoc-default assoc-ignore-case butlast last match-string match-string-no-properties member-ignore-case remove remq) nil side-effect-free (and catch if or prog1 prog2 progn while unwind-protect ding error random signal sleep-for string-match throw caar cadr cdar cddr save-match-data unless when split-string replace-regexp-in-string play-sound-file) safe-function] 5)
#@166 Return nil if evaluating FORM couldn't possibly do any harm.
Otherwise result is a reason why FORM is unsafe.
UNSAFEP-VARS is a list of symbols with local bindings.
(defalias 'unsafep #[(form &optional unsafep-vars) "\3062\364\307=\204 :\204 \310\306\311\"\210 @\312\n!\311 \204( \313 A!\202\362\n\314=\2032 \311\202\362\n\315>\203k A@\211\242\316>\203L \312\fA@!\202_ \f\242\317=\203[ \306\f
\"\202_ \320\fD \206\362\313 AA!\202\362\n\317=\203\200 \321\322 A@\"\210\313 AA!\202\362\n\323=\203\227 \324\325 A@\"
\244\313 AA!\202\362\n\326=\203\307 A@\311 #\211 $\203\276 $@#\325#!
B$A\211$\204\251 *\313 AA!\202\362\n\327=\203\364 A\211\205\362\330\f@\311\"\206\342 \306\fA@
\"\211\203\354 \310\306 \"\210\fAA\211\202\321 \n\331=\203\330 A@\311\"\202\362\n\332=\203\306 A@
\"\206\362\330\333 8\311\"\202\362\n\334=\203C A@\211\242\314=\2042\320\fD\202\362\330\fA@\311\"\206\362\313 AA!\202\362\n\335=\203u A\311 #\211 $\205q$@#\313#!\211\203g\310\306 \"\210$A\211$\204T\311*\202\362\n\336>\203\224 A@\313\fA!\206\362\f@
B \313 AA!)\202\362\n\337=\203\340\330 A@\307\"\206\362\306\333 8
\"\206\362 A@
B \340 \233\311 #\211 $\205\334$@#\313#A!\211\203\322\310\306 \"\210$A\211$\204\276\311+\202\362\n\341=\203\361\306\342 A@!A!\202\362 +0\207" [safe-functions form fun reason arg unsafep-vars unsafep t throw nil unsafep-function unsafep-progn quote (apply mapc mapcar mapconcat) 'function lambda unquoted mapc #[(x) "\303>\206 \304\305\"\211\203 \306\307 \"\210\nB\211)\207" [x y unsafep-vars (&optional &rest) unsafep-variable t throw unsafep] 4] let mapcar unsafep-let let* setq unsafep-variable pop push 2 add-to-list cond (dolist dotimes) condition-case 3 \` backquote-process x --dolist-tail--] 4 (#$ . 1419)])
#@137 Return nil if FUN is a safe function.
(Either a safe lambda or a symbol that names a safe function).
Otherwise result is a reason code.
(defalias 'unsafep-function #[(fun) "\242\303=\203\f \304 \"\2079\205( \305N\206( \306N\307=\206( \n\307=\206( \n>?\205/ \310D\207" [fun unsafep-vars safe-functions lambda unsafep side-effect-free safe-function t function] 3 (#$ . 3224)])
#@94 Return nil if all forms in LIST are safe.
Else, return the reason for the first unsafe form.
(defalias 'unsafep-progn #[(list) "\3052) \306 \306\211\205' @\307\n\f\"\211\203 \310\305\"\210 A\211\204 \306+0\207" [reason list x --dolist-tail-- unsafep-vars unsafep-progn nil unsafep throw] 4 (#$ . 3612)])
#@160 Check the safety of a let binding.
CLAUSE is a let-binding, either SYM or (SYM) or (SYM VAL).
Check VAL and throw a reason to `unsafep' if unsafe.
Return SYM.
(defalias 'unsafep-let #[(clause) "\304\211\n:\204 \n\202 \n@\305\nA@ \"\306\307\"\206 \211\203* \310\305 \"\210*\207" [sym reason clause unsafep-vars nil unsafep unsafep-variable t throw] 4 (#$ . 3933)])
#@169 Return nil if SYM is safe to set or bind, or a reason why not.
If TO-BIND is nil, check whether SYM is safe to set.
If TO-BIND is t, check whether SYM is safe to bind.
(defalias 'unsafep-variable #[(sym to-bind) "9\204 \303D\207\304\305\"\203 \306D\207 \206! \n>\206! \307!?\205( \310D\207" [sym to-bind unsafep-vars variable risky-local-variable-p nil risky-local-variable local-variable-p global-variable] 3 (#$ . 4316)])
Kontol Shell Bypass