Gecko [ goons4good.org ]

Name	Size	Permission	Date
advice.elc	58.25 KB	-rw-r--r--	2023-06-07 04:04
authors.elc	30.49 KB	-rw-r--r--	2023-06-07 04:04
autoload.elc	21.31 KB	-rw-r--r--	2023-06-07 03:59
avl-tree.elc	27.02 KB	-rw-r--r--	2023-06-07 04:04
backquote.elc	4.4 KB	-rw-r--r--	2023-06-07 04:18
benchmark.elc	3.18 KB	-rw-r--r--	2023-06-07 04:04
bindat.elc	10.69 KB	-rw-r--r--	2023-06-07 04:04
byte-opt.elc	35.7 KB	-rw-r--r--	2023-06-07 03:59
byte-run.elc	12.35 KB	-rw-r--r--	2023-06-07 04:18
bytecomp.elc	136.26 KB	-rw-r--r--	2023-06-07 03:59
cconv.elc	15.61 KB	-rw-r--r--	2023-06-07 03:59
chart.elc	22.14 KB	-rw-r--r--	2023-06-07 04:04
check-declare.elc	8.87 KB	-rw-r--r--	2023-06-07 04:04
checkdoc.elc	67.42 KB	-rw-r--r--	2023-06-07 04:04
cl-extra.elc	20.01 KB	-rw-r--r--	2023-06-07 04:04
cl-indent.elc	16.34 KB	-rw-r--r--	2023-06-07 04:04
cl-lib.elc	34.86 KB	-rw-r--r--	2023-06-07 04:04
cl-loaddefs.el	39.75 KB	-rw-r--r--	2013-01-01 15:37
cl-macs.elc	71.79 KB	-rw-r--r--	2023-06-07 04:04
cl-seq.elc	40.03 KB	-rw-r--r--	2023-06-07 04:04
cl.elc	16 KB	-rw-r--r--	2023-06-07 04:04
copyright.elc	10.29 KB	-rw-r--r--	2023-06-07 04:04
crm.elc	7.76 KB	-rw-r--r--	2023-06-07 04:04
debug.elc	26.92 KB	-rw-r--r--	2023-06-07 04:04
derived.elc	11.27 KB	-rw-r--r--	2023-06-07 04:04
disass.elc	5.48 KB	-rw-r--r--	2023-06-07 04:04
easy-mmode.elc	16.81 KB	-rw-r--r--	2023-06-07 04:04
easymenu.elc	20.03 KB	-rw-r--r--	2023-06-07 04:04
edebug.elc	101.25 KB	-rw-r--r--	2023-06-07 04:04
eieio-base.elc	13.18 KB	-rw-r--r--	2023-06-07 04:04
eieio-custom.elc	14.55 KB	-rw-r--r--	2023-06-07 04:04
eieio-datadebug.elc	3.9 KB	-rw-r--r--	2023-06-07 04:04
eieio-opt.elc	20.79 KB	-rw-r--r--	2023-06-07 04:04
eieio-speedbar.elc	12.55 KB	-rw-r--r--	2023-06-07 04:04
eieio.elc	89.24 KB	-rw-r--r--	2023-06-07 04:04
eldoc.elc	15.33 KB	-rw-r--r--	2023-06-07 04:04
elint.elc	31.22 KB	-rw-r--r--	2023-06-07 04:04
elp.elc	12.43 KB	-rw-r--r--	2023-06-07 04:04
ert-x.elc	9.78 KB	-rw-r--r--	2023-06-07 04:04
ert.elc	169.71 KB	-rw-r--r--	2023-06-07 04:04
ewoc.elc	26.49 KB	-rw-r--r--	2023-06-07 04:04
find-func.elc	17.4 KB	-rw-r--r--	2023-06-07 04:04
find-gc.elc	3.54 KB	-rw-r--r--	2023-06-07 04:04
float-sup.elc	1.36 KB	-rw-r--r--	2023-06-07 04:19
generic.elc	6.68 KB	-rw-r--r--	2023-06-07 04:04
gulp.elc	4.69 KB	-rw-r--r--	2023-06-07 04:04
gv.elc	17.81 KB	-rw-r--r--	2023-06-07 04:04
helper.elc	4.03 KB	-rw-r--r--	2023-06-07 04:04
lisp-mnt.elc	22.41 KB	-rw-r--r--	2023-06-07 04:04
lisp-mode.elc	44.27 KB	-rw-r--r--	2023-06-07 04:19
lisp.elc	18.56 KB	-rw-r--r--	2023-06-07 04:19
macroexp.elc	12.84 KB	-rw-r--r--	2023-06-07 04:18
map-ynp.elc	6.42 KB	-rw-r--r--	2023-06-07 04:18
package-x.elc	8.32 KB	-rw-r--r--	2023-06-07 04:04
package.elc	54.49 KB	-rw-r--r--	2023-06-07 04:04
pcase.elc	15.98 KB	-rw-r--r--	2023-06-07 04:04
pp.elc	5.56 KB	-rw-r--r--	2023-06-07 04:04
re-builder.elc	22.81 KB	-rw-r--r--	2023-06-07 04:04
regexp-opt.elc	4.87 KB	-rw-r--r--	2023-06-07 04:19
regi.elc	6.09 KB	-rw-r--r--	2023-06-07 04:04
ring.elc	6.58 KB	-rw-r--r--	2023-06-07 04:04
rx.elc	27.41 KB	-rw-r--r--	2023-06-07 04:04
shadow.elc	9.75 KB	-rw-r--r--	2023-06-07 04:04
smie.elc	35.4 KB	-rw-r--r--	2023-06-07 04:04
syntax.elc	13.69 KB	-rw-r--r--	2023-06-07 04:19
tabulated-list.elc	19.12 KB	-rw-r--r--	2023-06-07 04:19
tcover-ses.elc	15 KB	-rw-r--r--	2023-06-07 04:04
tcover-unsafep.elc	4.02 KB	-rw-r--r--	2023-06-07 04:04
testcover.elc	13.4 KB	-rw-r--r--	2023-06-07 04:04
timer.elc	22.94 KB	-rw-r--r--	2023-06-07 04:19
tq.elc	3.89 KB	-rw-r--r--	2023-06-07 04:04
trace.elc	5.24 KB	-rw-r--r--	2023-06-07 04:04
unsafep.elc	4.92 KB	-rw-r--r--	2023-06-07 04:04
warnings.elc	9.53 KB	-rw-r--r--	2023-06-07 04:04

Rename

;ELC���
;;; Compiled by mockbuild@buildfarm06.corp.cloudlinux.com on Wed Jun  7 08:04:56 2023
;;; 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 (#$ . 854))
(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 (#$ . 1566)])
#@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 (#$ . 3464)])
#@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 (#$ . 3852)])
#@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 (#$ . 4215)])
#@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 (#$ . 4607)])