Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
advice.elc	54 KB	-rw-r--r--
autoload.elc	28.25 KB	-rw-r--r--
avl-tree.elc	27.45 KB	-rw-r--r--
backquote.elc	4.68 KB	-rw-r--r--
backtrace.elc	40.98 KB	-rw-r--r--
benchmark.elc	3.74 KB	-rw-r--r--
bindat.elc	10.73 KB	-rw-r--r--
byte-opt.elc	39.59 KB	-rw-r--r--
byte-run.elc	17.44 KB	-rw-r--r--
bytecomp.elc	154.17 KB	-rw-r--r--
cconv.elc	20.71 KB	-rw-r--r--
chart.elc	25.98 KB	-rw-r--r--
check-declare.elc	9.01 KB	-rw-r--r--
checkdoc.elc	74.78 KB	-rw-r--r--
cl-extra.elc	29.37 KB	-rw-r--r--
cl-generic.elc	59.25 KB	-rw-r--r--
cl-indent.elc	18.03 KB	-rw-r--r--
cl-lib.elc	31.72 KB	-rw-r--r--
cl-loaddefs.el	45.79 KB	-rw-r--r--
cl-macs.elc	90.7 KB	-rw-r--r--
cl-preloaded.elc	27.28 KB	-rw-r--r--
cl-print.elc	14.77 KB	-rw-r--r--
cl-seq.elc	38.35 KB	-rw-r--r--
copyright.elc	10.17 KB	-rw-r--r--
crm.elc	7.62 KB	-rw-r--r--
cursor-sensor.elc	6.74 KB	-rw-r--r--
debug.elc	36.42 KB	-rw-r--r--
derived.elc	11.88 KB	-rw-r--r--
disass.elc	6.11 KB	-rw-r--r--
easy-mmode.elc	19.78 KB	-rw-r--r--
easymenu.elc	19.88 KB	-rw-r--r--
edebug.elc	123.13 KB	-rw-r--r--
eieio-base.elc	17.17 KB	-rw-r--r--
eieio-compat.elc	8.41 KB	-rw-r--r--
eieio-core.elc	36.91 KB	-rw-r--r--
eieio-custom.elc	15.8 KB	-rw-r--r--
eieio-datadebug.elc	3.17 KB	-rw-r--r--
eieio-loaddefs.el	3.96 KB	-rw-r--r--
eieio-opt.elc	9.32 KB	-rw-r--r--
eieio-speedbar.elc	13.13 KB	-rw-r--r--
eieio.elc	33.03 KB	-rw-r--r--
eldoc.elc	19.14 KB	-rw-r--r--
elint.elc	30.6 KB	-rw-r--r--
elp.elc	12.68 KB	-rw-r--r--
ert-x.elc	11.48 KB	-rw-r--r--
ert.elc	177.96 KB	-rw-r--r--
ewoc.elc	25.26 KB	-rw-r--r--
faceup.elc	16.97 KB	-rw-r--r--
find-func.elc	21.61 KB	-rw-r--r--
float-sup.elc	1.21 KB	-rw-r--r--
generator.elc	27.42 KB	-rw-r--r--
generic.elc	7.18 KB	-rw-r--r--
gv.elc	22.69 KB	-rw-r--r--
helper.elc	3.96 KB	-rw-r--r--
inline.elc	8.37 KB	-rw-r--r--
let-alist.elc	3.04 KB	-rw-r--r--
lisp-mnt.elc	22.59 KB	-rw-r--r--
lisp-mode.elc	38.03 KB	-rw-r--r--
lisp.elc	21.44 KB	-rw-r--r--
macroexp.elc	18.01 KB	-rw-r--r--
map-ynp.elc	10.54 KB	-rw-r--r--
map.elc	18.25 KB	-rw-r--r--
nadvice.elc	17.65 KB	-rw-r--r--
package-x.elc	9.06 KB	-rw-r--r--
package.elc	146.54 KB	-rw-r--r--
pcase.elc	23.11 KB	-rw-r--r--
pp.elc	5.5 KB	-rw-r--r--
radix-tree.elc	5.88 KB	-rw-r--r--
re-builder.elc	25.78 KB	-rw-r--r--
regexp-opt.elc	6.3 KB	-rw-r--r--
regi.elc	6 KB	-rw-r--r--
ring.elc	6.32 KB	-rw-r--r--
rmc.elc	4.79 KB	-rw-r--r--
rx.elc	40.69 KB	-rw-r--r--
seq.elc	23.64 KB	-rw-r--r--
shadow.elc	9.34 KB	-rw-r--r--
smie.elc	48.84 KB	-rw-r--r--
subr-x.elc	11.17 KB	-rw-r--r--
syntax.elc	26.13 KB	-rw-r--r--
tabulated-list.elc	26.57 KB	-rw-r--r--
tcover-ses.elc	14.29 KB	-rw-r--r--
tcover-unsafep.elc	3.87 KB	-rw-r--r--
testcover.elc	23.03 KB	-rw-r--r--
text-property-search.elc	8.13 KB	-rw-r--r--
thunk.elc	3.06 KB	-rw-r--r--
timer-list.elc	4.3 KB	-rw-r--r--
timer.elc	21.65 KB	-rw-r--r--
tq.elc	3.99 KB	-rw-r--r--
trace.elc	7.27 KB	-rw-r--r--
unsafep.elc	4.45 KB	-rw-r--r--
warnings.elc	9.75 KB	-rw-r--r--

Code Editor : tcover-unsafep.elc

;ELC���
;;; Compiled
;;; in Emacs version 27.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.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(require 'testcover)
#@54 List of forms that `unsafep' should decide are safe.
(defconst testcover-unsafep-safe '(((lambda (x) (* x 2)) 14) (apply 'cdr (mapcar (lambda (x) (car x)) y)) (cond ((= x 4) 5) (t 27)) (condition-case x (car y) (error (car x))) (dolist (x y) (message "here: %s" x)) (dotimes (x 14 (* x 2)) (message "here: %d" x)) (let (x) (dolist (y '(1 2 3) (1+ y)) (push y x))) (let (x) (apply (lambda (x) (* x 2)) 14)) (let ((x '(2))) (push 1 x) (pop x) (add-to-list 'x 2)) (let ((x 1) (y 2)) (setq x (+ x y))) (let ((x 1)) (let ((y (+ x 3))) (* x y))) (let* nil (current-time)) (let* ((x 1) (y (+ x 3))) (* x y)) (mapcar (lambda (x &optional y &rest z) (setq y (+ x 2)) (* y 3)) '(1 2 3)) (mapconcat #'(lambda (var) (propertize var 'face 'bold)) '("1" "2") ", ") (setq buffer-display-count 14 mark-active t) (propertize "x" 'display '(height (progn (delete-file "x") 1)))) (#$ . 429))
#@70 A-list of (FORM . REASON)... that`unsafep' should decide are unsafe.
(defconst testcover-unsafep-unsafe '(((add-to-list x y) unquoted x) ((add-to-list y x) unquoted y) ((add-to-list 'y x) global-variable y) ((not (delete-file "unsafep.el")) function delete-file) ((cond (t (aset local-abbrev-table 0 0))) function aset) ((cond (t (setq unsafep-vars #1=""))) risky-local-variable unsafep-vars) ((condition-case format-alist 1) risky-local-variable format-alist) ((condition-case x 1 (error (setq format-alist #1#))) risky-local-variable format-alist) ((dolist (x (sort globalvar 'car)) (princ x)) function sort) ((dotimes (x 14) (delete-file "x")) function delete-file) ((let ((post-command-hook "/tmp/")) 1) risky-local-variable post-command-hook) ((let ((x (delete-file "x"))) 2) function delete-file) ((let (x) (add-to-list 'x (delete-file "x"))) function delete-file) ((let (x) (condition-case y (setq x 1 z 2))) global-variable z) ((let (x) (condition-case z 1 (error (delete-file "x")))) function delete-file) ((let (x) (mapc (lambda (x) (setcar x 1)) '((1 . 2) (3 . 4)))) function setcar) ((let (y) (push (delete-file "x") y)) function delete-file) ((let* ((x 1)) (setq y 14)) global-variable y) ((mapc 'car (list '(1 . 2) (cons 3 4) (kill-buffer "unsafep.el"))) function kill-buffer) ((mapcar x y) unquoted x) ((mapcar (lambda (x) (rename-file x "x")) '("unsafep.el")) function rename-file) ((mapconcat x1 x2 " ") unquoted x1) ((pop format-alist) risky-local-variable format-alist) ((push 1 format-alist) risky-local-variable format-alist) ((setq buffer-display-count (delete-file "x")) function delete-file) ((apply '(x) '(1 2 3)) function (x)) ((let (((x))) 1) variable (x)) ((let (1) 2) variable 1)) (#$ . 1308))
#@63 Executes all unsafep tests and displays the coverage results.
(defalias 'testcover-unsafep #[nil "\306\307!\210\310\307!\210\311	\311\211\203'�@\312\n!\203 �\313\314\n\"\210A\211\204�*\f\311\211\203L�@\312\n@!\nA\232\204E�\313\315\n@\nA#\210A\211\2040�*\316\312\317!\204[�\320\321!\203_�\313\322!\210\323\312\324!\203k�\313\325!\210\312\326!\204u�\313\327!\210)\330\307!\210\331\307!\210\332\333!\207" [save-functions testcover-unsafep-safe x --dolist-tail-- testcover-unsafep-unsafe safe-functions testcover-unmark-all "unsafep.el" testcover-start nil unsafep error "%S should be safe" "%S should be unsafe: %s" t (delete-file "x") unsafep-function delete-file "safe-functions=t should allow delete-file" (setcar) (setcar x 1) "safe-functions=(setcar) should allow setcar" (setcdr x 1) "safe-functions=(setcar) should not allow setcdr" testcover-mark-all testcover-end message "Done"] 5 (#$ . 3037) nil])

${this.title}

Code Editor : tcover-unsafep.elc