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/tcover-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.

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

(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)))) (#$ . 585))
#@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)) (#$ . 1464))
#@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 (#$ . 3193) nil])