;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:09:05 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/emacs-lisp/unsafep.el
;;; in Emacs version 24.3.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 (#$ . 858))
(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) "\300\301\215\207" [unsafep (byte-code "\306=\204	:\204\307\310\311\"\210	@\312\n!\311\204$\313	A!\2020\n\314=\203.\311\2020\n\315>\203q	\211A@)\211\242\316>\203N\312\f\211A@)!\202b\f\242\317=\203^\310\f#\"\202b\320\fD\2060\313	\211AA)!\2020\n\317=\203\214\321\322	\211A@)\"\210\313	\211AA)!\2020\n\323=\203\253\324\325	\211A@)\"#\244#\313	\211AA)!\2020\n\326=\203\340	\211A@)\311\211$\203\324$@\325
!#B#$A\211$\204\277*\313	\211AA)!\2020\n\327=\203
	A\211\2050\330\f@\311\"\206\377\310\f\211A@)#\"\211\203	
\307\310\"\210\f\211AA)\211\202\352\n\331=\203&
\330	\211A@)\311\"\2020\n\332=\203B
\310	\211A@)#\"\2060\330\333	8\311\"\2020\n\334=\203s
	\211A@)\211\242\314=\204\\
\320\fD\2020\330\f\211A@)\311\"\2060\313	\211AA)!\2020\n\335=\203\242
	A\311\211$\205\236
$@\313
!\211\203\224
\307\310\"\210$A\211$\204\203
\311*\2020\n\336>\203\311
	\211A@)\313\fA!\2060\f@#B#\313	\211AA)!)\2020\n\337=\203\330	\211A@)\306\"\2060\310\333	8#\"\2060	\211A@)#B#\340	\233\311\211$\205$@\313
A!\211\203
\307\310\"\210$A\211$\204\373
\311+\2020\n\341=\203/\310\342	\211A@)!A!\2020+\207" [safe-functions form fun reason arg x t throw unsafep 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 unsafep-vars --dolist-tail--] 4)] 2 (#$ . 1570)])
#@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 (#$ . 3468)])
#@94 Return nil if all forms in LIST are safe.
Else, return the reason for the first unsafe form.
(defalias 'unsafep-progn #[(list) "\300\301\215\207" [unsafep-progn (byte-code "\305	\305\211\205#@\306\n\f\"\211\203\307\310\"\210A\211\204\n\305+\207" [reason list x --dolist-tail-- unsafep-vars nil unsafep throw unsafep-progn] 4)] 2 (#$ . 3856)])
#@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) "\305\211\n:\204\n\202\n@\306\n\211A@)\f\"\307\310\"\206#	\211\203-\311\306	\"\210*\207" [sym reason clause x unsafep-vars nil unsafep unsafep-variable t throw] 4 (#$ . 4219)])
#@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 (#$ . 4611)])