;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; 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 (#$ . 431))
(byte-code "\300\301\302\303#\210\304\211\203\211@\300
\305\303#\210
A\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\233
A@\262
\211\242\311>\203G\306
A@!\262\202\\\211\242\312=\203W\302
	\"\262\202\\\313
D\262
\206\233
\307AA!\202\233
\314\315A@\"\210\307AA!\202\233
\316\317A@\"	\244\307AA!\202\233
A@\211\203\240\211@\317
!	B
A\266\202\202\215\210\307AA!\202\233
A\262
\211\205\233
\320
@\305\"\206\277\302
A@	\"\262
\203\312\304\302\"\210\211AA\262
\202\255\202\233
\320A@\305\"\202\233
\302A@	\"\206\233
\320\3218\305\"\202\233
A@\262
\211\242\322=\204
\313
D\202\233
\320
A@\305\"\206\233
\307AA!\202\233
A\211\2051
\211@\307
!\262\203*
\304\302\"\210
A\266\202\202
\262
\202\233
A@\262
\307
A!\206\233
\211@	B\307AA!)\202\233
\320A@\303\"\206\233
\302\3218	\"\206\233
A@	B\323\233\211\205\210
\211@\307
A!\262\203\201
\304\302\"\210
A\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\"\210
B\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 (#$ . 859)])
#@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/\307
D\207" [unsafep-vars safe-functions lambda unsafep side-effect-free safe-function t function] 4 (#$ . 2672)])
#@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\"\210
A\266\202\202\262
\262
0\207" [unsafep-vars unsafep-progn nil unsafep throw] 7 (#$ . 3078)])
#@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 (#$ . 3380)])
#@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 (#$ . 3758)])