Linux server.edchosting.com 4.18.0-553.79.1.lve.el7h.x86_64 #1 SMP Wed Oct 15 16:34:46 UTC 2025 x86_64
LiteSpeed
Server IP : 75.98.162.185 & Your IP : 216.73.216.163
Domains :
Cant Read [ /etc/named.conf ]
User : goons4good
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
share /
emacs /
24.3 /
lisp /
emacs-lisp /
Delete
Unzip
Name
Size
Permission
Date
Action
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
Save
Rename
;ELC ;;; Compiled by mockbuild@buildfarm06.corp.cloudlinux.com on Wed Jun 7 08:18:59 2023 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/emacs-lisp/macroexp.el ;;; in Emacs version 24.3 ;;; with all optimizations. ;;; This file contains utf-8 non-ASCII characters, ;;; and so cannot be loaded into Emacs 22 or earlier. (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (string-lessp emacs-version "23") (error "`%s' was compiled for Emacs 23 or later" #$)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defvar macroexpand-all-environment nil) #@82 Return (CAR . CDR), using ORIGINAL-CONS if possible. (fn CAR CDR ORIGINAL-CONS) (defalias 'macroexp--cons #[771 "@=\203 A=\203 \207B\207" [] 5 (#$ . 597)]) #@377 Return a list of the results of evaluating BODY for each element of LIST. Evaluate BODY with VAR bound to each `car' from LIST, in turn. Return a list of the values of the final form in BODY. The list structure of the result will share as much with LIST as possible (for instance, when BODY just returns VAR unchanged, the result will be eq to LIST). (fn (VAR LIST) BODY...) (defalias 'macroexp--accumulate '(macro . #[385 "@\211A@)\301\302!\301\303!\301\304!\301\305!\306D\307BD \257\310\311D\312\n\313D\314B\257\315\316\fE\310\317\316 \fED\320\321D EE\312\f\322DE\320\n E\257\312\322\nDE\257\323\324DEF\207" [x make-symbol "shared" "unshared" "tail" "new-el" let* (nil) while consp setq car progn unless eq not push pop cdr nconc nreverse] 21 (#$ . 769)])) (put 'macroexp--accumulate 'lisp-indent-function 1) #@170 Return FORMS with macros expanded. FORMS is a list of forms. If SKIP is non-nil, then don't expand that many elements at the start of FORMS. (fn FORMS &optional SKIP) (defalias 'macroexp--all-forms #[513 "\300\300\211:\203O @\262\203 \301!\203 \302!\202$ S\262\262=\204H =\204? \211A\262@B\262\202, A\262\211B\262A\262\202 \237\244\207" [nil zerop macroexp--expand-all] 9 (#$ . 1632)]) #@231 Return CLAUSES with macros expanded. CLAUSES is a list of lists of forms; any clause that's not a list is ignored. If SKIP is non-nil, then don't expand that many elements at the start of each clause. (fn CLAUSES &optional SKIP) (defalias 'macroexp--all-clauses #[513 "\300\300\211:\203G @\262<\203 \301\"\202 \262=\204@ =\2047 \211A\262@B\262\202$ A\262\211B\262A\262\202 \237\244\207" [nil macroexp--all-forms] 10 (#$ . 2059)]) (defalias 'macroexp--compiler-macro #[514 "\300\301\302\303\304\305\306\"\307\"\310\311%D\312\301\302\313\314\305\306 !\315\"\316\317%\300EDC\217\207" [#1=#:err funcall make-byte-code 0 "\302\300\301\211A#\207" vconcat vector [apply] 4 "\n\n(fn)" error 257 "\301\302\300@#\210\300\207" [message "Compiler-macro error for %S: %S"] 5 "\n\n(fn ERR)"] 12 "\n\n(fn HANDLER FORM)"]) #@285 Pseudo function used internally by macroexp to delay warnings. The purpose is to delay warnings to bytecomp.el, so they can use things like `byte-compile-log-warning' to get better file-and-line-number data and also to avoid outputting the warning during normal execution. (fn FORM) (defalias 'macroexp--funcall-if-compiled #[257 "\300\207" [nil] 2 (#$ . 2910)]) (put 'macroexp--funcall-if-compiled 'byte-compile #[257 "\301\211A@)! \210\302\303!\207" [x eval byte-compile-constant nil] 4 "\n\n(fn FORM)"]) (defalias 'macroexp--warn-and-return #[514 "\301\302\303\304\305!\306\"\307\310%\204 \202, \311\235\203& \312\313\314DDE\202, \315\316\"\210\207" [macroexpand-all-environment make-byte-code 0 "\301\300\302\"\207" vconcat vector [byte-compile-log-warning t] 3 "\n\n(fn)" (declare-function . byte-compile-macroexpand-declare-function) progn macroexp--funcall-if-compiled quote message "%s"] 8 "\n\n(fn MSG FORM)"]) (defalias 'macroexp--obsolete-warning #[771 "@\3008\301\302\203 \303\304Q\202 \305;\203# \306P\2021 \2030 \301\307\"\2021 \310%\207" [2 format "`%s' is an obsolete %s%s%s" " (as of " ")" "" "; " "; use `%s' instead." "."] 13 "\n\n(fn FUN OBSOLESCENCE-DATA TYPE)"]) #@149 Expand all macros in FORM. This is an internal version of `macroexpand-all'. Assumes the caller has bound `macroexpand-all-environment'. (fn FORM) (defalias 'macroexp--expand-all #[257 "\211C\211@<\203 \211@@\301=\203 \302\303@\304\"\"\202\355\302@\"\211@=\204f @\242\203f @@9\203f @@\305N\203f \306\307!\203I \307\310!\203f @@\211\305N\311\312K9\203] \313\202^ \314#\"\266\202\202g \240\266\315\316\317@:\203\351@@@A\320=\203\216 \211\321\320\322! @#\262\202\344\323=\203\312 \211:\203\300 \211@A\211:\203\264 \211@A\n$\266\202\202\273 \324\211\211$\266\202\202\344\324\211\211$\202\344\325>\203\331 \303@\326\"\202\344\327=\203+\211:\203&\211@A:\203 @\211\330=\204\373 @\202\204\321\327\321\303\326\"\324@A#\f@#\262\202@\262\202!@\266\202\202\344@\202\344\331=\2036@\202\344\332>\203\\\211:\203R\211@A$\266\202\202\344\324\211$\202\344:\203\206@\211\330=\203|\321\303\326\"\303! @#\266\202\202\201\"\262\202\344\333>\203%\211:\203 \211@A:\203@A\331=\204\256\n\"\202 \211:\203\211@A:\203\372@\211\330=\204\316 \n\"\202\365\204\356\n\311\334\335\330A@\336E\"\337BB!\"\266\203\202\365 \n\"\262\202\n\f \"\266\202\202 \n\"\266\202\202\"\266\202\202\344\"\202\344\340=\2043\"\202\344\211:\203\337\211@A\211:\203\324\211@A:\203\310@A\331=\204^\n\f \"\202\303\211:\203\274\211@A:\203\260@\211\330=\204~ \f\"\202\253\204\244\n \311\334\335\330A@\336E\"\337 BBB!\"\266\204\202\253 \f\"\262\202\267\f \"\266\202\202\303\n\f \"\266\202\202\317\n\"\266\202\202\332\"\266\202\202\344\"\266\202\202\353@\266\203\207" [macroexpand-all-environment backquote-list* macroexpand macroexp--all-forms 1 byte-obsolete-info fboundp byte-compile-warning-enabled-p obsolete macroexp--warn-and-return macroexp--obsolete-warning "alias" "macro" #[514 "\300\301\"\211\204 \302@\303\"\202k \304!\204/ \305\306\307\310\311\312\313!\314\"\315\316%D\317\306\320\305EDC\217\210\321@\"@=\203f @\302@\303\"\211\262\232\203N @\202i \321\"\240\210\211@=\203` \211\202i \322!\202i \322!\262\207" [function-get compiler-macro macroexp--all-forms 1 functionp #1=#:err funcall make-byte-code 0 "\301\302\300!\300\"\207" vconcat vector [autoload-do-load indirect-function] 3 "\n\n(fn)" error #[257 "\300\207" [nil] 2 "\n\n(fn IGNORED)"] macroexp--compiler-macro macroexp--expand-all] 11 "\n\n(fn FORM FUNC)"] #[1028 "\300\300\301\302\"\303!@A#@#\207" [macroexp--cons macroexp--all-clauses 1 macroexp--all-forms] 10 "\n\n(fn FORM BODY BINDINGS FUN)"] #[1028 "\301\302\301\301\303!\304 \305\"\n@\211AA)#@A#@#\207" [x macroexp--cons condition-case macroexp--expand-all macroexp--all-clauses 1] 14 "\n\n(fn FORM HANDLERS BODY ERR)"] cond macroexp--cons macroexp--all-clauses condition-case nil (defvar defconst) 2 function lambda quote (let let*) (funcall apply mapcar mapatoms mapconcat mapc) format "%s quoted with ' rather than with #'" \.\.\. macroexp--expand-all sort] 27 (#$ . 4132)]) #@288 Return result of expanding macros at all levels in FORM. If no macros are expanded, FORM is returned unchanged. The second optional arg ENVIRONMENT specifies an environment of macro definitions to shadow the loaded ones for use in file byte-compilation. (fn FORM &optional ENVIRONMENT) (defalias 'macroexpand-all #[513 "\211\301!)\207" [macroexpand-all-environment macroexp--expand-all] 4 (#$ . 7292)]) #@64 Return an expression equivalent to `(progn ,@EXPS). (fn EXPS) (defalias 'macroexp-progn #[257 "\211A\203 \300B\207\211@\207" [progn] 3 (#$ . 7704)]) #@71 Turn EXP into a list of expressions to execute in sequence. (fn EXP) (defalias 'macroexp-unprogn #[257 "\211\242\300=\203\n \211A\207\211C\207" [progn] 3 (#$ . 7862)]) #@79 Return an expression equivalent to `(let* ,bindings ,exp). (fn BINDINGS EXP) (defalias 'macroexp-let* #[514 "\204 \207\211\242\301=\203 \301\302\211A@)\"\211AA)BB\207\301E\207" [x let* append] 7 (#$ . 8037)]) #@82 Return an expression equivalent to `(if ,test ,then ,else). (fn TEST THEN ELSE) (defalias 'macroexp-if #[771 "\211\242\300=\203+ A@\232\203 \300\301\233BBB\207\302DA@\3038D\304\301\233BF\207\211\242\302=\203B \302D\305\306\"A\"BB\207\242\307>\203Q \310\311D#\207\300F\207" [if 3 cond 2 t remove assoc (if cond) macroexp-if not] 9 (#$ . 8263)]) #@341 Bind VAR to a copyable expression that returns the value of EXP. This is like `(let ((v ,EXP)) ,EXPS) except that `v' is a new generated symbol which EXPS can find in VAR. TEST should be the name of a predicate on EXP checking whether the `let' can be skipped; if nil, as is usual, `macroexp-const-p' is used. (fn TEST VAR EXP &rest EXPS) (defalias 'macroexp-let2 '(macro . #[899 "\300\301!\300\302!\303D\304\305\306 \206 \307DE\300\310\f!DFD\311!DE\304\312E\313\314\211\f EDEFE\207" [make-symbol "body" "exp" let* if funcall function macroexp-const-p symbol-name macroexp-progn eq macroexp-let* list] 16 (#$ . 8639)])) (byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put macroexp-let2 lisp-indent-function 3 edebug-form-spec (sexp sexp form body)] 4) (defalias 'macroexp--maxsize #[514 "\211\300W\203 \2079\203 \211S\207;\203 \211G\301\245Z\207\302!\203@ G\300\211W\203; \211\303H\"\262\210\211T\262\202$ \266\211S\207:\203] \211\203Y \211@\303\"\262A\266\202\202F \210\211S\207\304\207" [0 16 vectorp macroexp--maxsize -1] 8 "\n\n(fn EXP SIZE)"]) #@58 Return non-nil if EXP can be considered small. (fn EXP) (defalias 'macroexp-small-p #[257 "\300\301\"\302V\207" [macroexp--maxsize 10 0] 4 (#$ . 9746)]) #@155 Non-nil if SYMBOL is constant. If ANY-VALUE is nil, only return non-nil if the value of the symbol is the symbol itself. (fn SYMBOL &optional ANY-VALUE) (defalias 'macroexp--const-symbol-p #[513 "\301>\2064 \302!\2064 \211\2054 >\2064 \303!\2054 \304\305\306\307\310\311\312!\313\"\314\315%D\316\305\317\304EDC\217\207" [byte-compile-const-variables (nil t) keywordp boundp #1=#:err funcall make-byte-code 0 "\300\211JL\210\301\207" vconcat vector [nil] 2 "\n\n(fn)" setting-constant #[257 "\300\207" [t] 2 "\n\n(fn IGNORED)"]] 10 (#$ . 9908)]) (put 'macroexp--const-symbol-p 'byte-optimizer 'byte-compile-inline-expand) #@73 Return non-nil if EXP will always evaluate to the same value. (fn EXP) (defalias 'macroexp-const-p #[257 "\211:\203 \211@\302=\206X \211@\303=\205 \211\211A@)9\207\2119\203W \211\304\305>\206V \306!\206V \211\205V >\206V \307!\205V \310\311\312\313\314\315\316!\317\"\320\321%D\322\311\323\310EDC\217\207\324\207" [x byte-compile-const-variables quote function nil (nil t) keywordp boundp #1=#:err funcall make-byte-code 0 "\300\211JL\210\301\207" vconcat vector [nil] 2 "\n\n(fn)" setting-constant #[257 "\300\207" [t] 2 "\n\n(fn IGNORED)"] t] 11 (#$ . 10543)]) #@67 Return non-nil if EXP can be copied without extra cost. (fn EXP) (defalias 'macroexp-copyable-p #[257 "\2119\206 \300!\207" [macroexp-const-p] 3 (#$ . 11123)]) #@61 Return the Elisp backtrace, more recent frames first. (fn) (defalias 'macroexp--backtrace #[0 "\300\301\302!\211\205 \211B\262T\211\262\262\204 \237\207" [nil 0 backtrace-frame] 5 (#$ . 11292)]) (defalias 'macroexp--trim-backtrace-frame #[257 "\211:\205\241 \211A\211:\205\237 \211@A\301=\2033 \211:\205\235 \211@\211:\205. \211@\211\301\302BD\262\262\262\202\235 \303=\203~ \211:\205\235 \211@\211:\205y \211@A\211:\205w \211@\2119\204h \242\304=\203r \211A@)9\203r \305\306BBD\202s \307\266\202\262\266\202\262\202\235 \310=\204\210 \311\202\235 \211:\203\234 \211@\211\312\313!D\262\262\202\235 \311\266\202\262\207" [x macroexpand (…) internal-macroexpand-for-load quote macroexpand-all (…) (macroexpand-all …) load-with-code-conversion nil load file-name-nondirectory] 15 "\n\n(fn FRAME)"]) #@60 Stack of files currently undergoing eager macro-expansion. (defvar macroexp--pending-eager-loads nil (#$ . 12132)) (defalias 'internal-macroexpand-for-load #[257 "@\302=\203 \207 \203K \235\203K \303\304\305\306\307 \"\"\310\311 !D\211\235A\235\211\203. \211\312C\241\210@\242\313=\203: A\262\314\315\316\317\237\320#\"\210\302B\207\321\322\323\324\325\326\327!\330\"\331\332%D\333\322\323\334\335\326\327 !\336\"\337\340%\321EDC\217\207" [macroexp--pending-eager-loads load-file-name skip delq nil mapcar macroexp--trim-backtrace-frame macroexp--backtrace load file-name-nondirectory … macroexpand-all message "Warning: Eager macro-expansion skipped due to cycle:\n %s" mapconcat prin1-to-string " => " #1=#:err funcall make-byte-code 0 " \nB\303\300!)\207" vconcat vector [load-file-name macroexp--pending-eager-loads macroexpand-all] 2 "\n\n(fn)" error 257 "\301\302\"\210\300\207" [message "Eager macro-expansion failure: %S"] 4 "\n\n(fn ERR)"] 11 "\n\n(fn FORM)"]) (provide 'macroexp)