;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. (byte-code "\300\301!\210\302\303!\210\304\305\306\307\310DD\311\312\313\314\315&\207" [provide unsafep require byte-opt custom-declare-variable safe-functions funcall function #[0 "\300\207" [nil] 1 ""] "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 (#$ . 430)) (byte-code "\300\301\302\303#\210\304\211\203\211@\300\305\303#\210A\266\202\202\207" [put unsafep-vars risky-local-variable t (and if or prog1 prog2 progn while unwind-protect ding random sleep-for string-match caar cadr cdar cddr save-match-data unless when split-string) safe-function] 6)#@204 Return nil if evaluating FORM couldn't possibly do any harm. Otherwise result is a reason why FORM is unsafe. VARS is a list of symbols with local bindings like `unsafep-vars'. (fn FORM &optional VARS) (defalias 'unsafep #[513 "\3022\237\303=\204:\204\304\302\305\"\210\211@\306!\305\204'\307A!\202\233\310\267\202\232\305\202\233A@\262\211\242\311>\203G\306A@!\262\202\\\211\242\312=\203W\302 \"\262\202\\\313D\262\206\233\307AA!\202\233\314\315A@\"\210\307AA!\202\233\316\317A@\" \244\307AA!\202\233A@\211\203\240\211@\317! BA\266\202\202\215\210\307AA!\202\233A\262\211\205\233\320@\305\"\206\277\302A@ \"\262\203\312\304\302\"\210\211AA\262\202\255\202\233\320A@\305\"\202\233\302A@ \"\206\233\320\3218\305\"\202\233A@\262\211\242\322=\204\313D\202\233\320A@\305\"\206\233\307AA!\202\233A\211\2051\211@\307!\262\203*\304\302\"\210A\266\202\202\262\202\233A@\262\307A!\206\233\211@ B\307AA!)\202\233\320A@\303\"\206\233\302\3218 \"\206\233A@ B\323\233\211\205\210\211@\307A!\262\203\201\304\302\"\210A\266\202\202l)\262\202\233\302\324A@!A!\202\233)\266\2030\207" [safe-functions unsafep-vars unsafep t throw nil unsafep-function unsafep-progn #s(hash-table size 17 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (quote 45 apply 49 mapc 49 mapcar 49 mapconcat 49 lambda 104 let 120 let* 138 setq 169 pop 213 push 222 add-to-list 241 cond 276 dolist 310 dotimes 310 condition-case 336 \` 398)) 'function lambda unquoted mapc #[257 "\211\301>\206\302\303\"\211\203\304\305\"\210B\211\262\207" [unsafep-vars (&optional &rest) unsafep-variable t throw unsafep] 5 "\n\n(fn X)"] mapcar unsafep-let unsafep-variable 2 quote 3 backquote-process] 10 (#$ . 857)])#@147 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. (fn FUN) (defalias 'unsafep-function #[257 "\211\242\302=\203\f\303\"\207\2119\205(\211\304N\206(\211\305N\306=\206( \306=\206(\211 >?\205/\307D\207" [unsafep-vars safe-functions lambda unsafep side-effect-free safe-function t function] 4 (#$ . 2669)])#@105 Return nil if all forms in LIST are safe. Else, return the reason for the first unsafe form. (fn LIST) (defalias 'unsafep-progn #[257 "\3012'\302\211\205\"\211@\303\"\262\203\304\301\"\210A\266\202\202\262\2620\207" [unsafep-vars unsafep-progn nil unsafep throw] 7 (#$ . 3074)])#@173 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. (fn CLAUSE) (defalias 'unsafep-let #[257 "\301\211:\204 \262\202@\262\302A@\"\262\303\304\"\206!\262\203,\305\302\"\210\207" [unsafep-vars nil unsafep unsafep-variable t throw] 6 (#$ . 3375)])#@187 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. (fn SYM TO-BIND) (defalias 'unsafep-variable #[514 "9\204 \301D\207\302\303\"\203\304D\207\211\206!>\206!\305!?\205(\306D\207" [unsafep-vars variable risky-local-variable-p nil risky-local-variable local-variable-p global-variable] 5 (#$ . 3752)])