ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/emacs-lisp/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/emacs-lisp/macroexp.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2
;;; 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 (#$ . 449)])
#@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 "@A@\300\301!\300\302!\300\303!\300\304!\305D\306BD \257\307\310D\311\n\312D\313B\257\314\315\fE\307\316\315
\fED\317\320D
EE\311\f\321DE\317\n
E\257\311\321\nDE\257\322\323DEF\207" [make-symbol "shared" "unshared" "tail" "new-el" let* (nil) while consp setq car progn unless eq not push pop cdr nconc nreverse] 20 (#$ . 621)]))
(function-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:\203N @\262\203 \301U\203 \302!\202# S\262\262=\204G =\204> \211A\262\242B\262\202+ A\262\211B\262A\262\202 \237\244\207" [nil 0 macroexp--expand-all] 9 (#$ . 1485)])
#@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\242B\262\202$ A\262\211B\262A\262\202 \237\244\207" [nil macroexp--all-forms] 10 (#$ . 1910)])
(defalias 'macroexp--compiler-macro #[514 "\3001\f \301\211A#0\207\302\303@#\210\207" [(error) apply message "Compiler-macro error for %S: %S"] 7 "\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 (#$ . 2558)])
(put 'macroexp--funcall-if-compiled 'byte-compile #[257 "\300A@! \210\301\302!\207" [eval byte-compile-constant nil] 3 "\n\n(fn FORM)"])
#@58 Return non-nil if we're macroexpanding for the compiler.
(defalias 'macroexp--compiling-p #[0 "\301\235\207" [macroexpand-all-environment (declare-function . byte-compile-macroexpand-declare-function)] 2 (#$ . 3066)])
(defvar macroexp--warned (make-hash-table :test 'equal :weakness 'key))
(defalias 'macroexp--warn-and-return #[770 "\302\303\304\305\306!\307\"\310$\204 \202N \311 \2035 \312\"\203$ \202N \313\211#\210\314\315\316DDE\202N \204M \317\320 ;\203H \321 !\322P\202I \323#\210\207" [macroexp--warned load-file-name make-byte-code 0 "\301\300\302\"\207" vconcat vector [byte-compile-log-warning t] 3 macroexp--compiling-p gethash puthash progn macroexp--funcall-if-compiled quote message "%s%s" file-relative-name ": " ""] 9 "\n\n(fn MSG FORM &optional COMPILE-ONLY)"])
(defalias 'macroexp--obsolete-warning #[771 "@\3008\301\302\203 \303\304Q\202 \305;\203% \306\307!P\2023 \2032 \301\310\"\2023 \311%\207" [2 format-message "`%s' is an obsolete %s%s%s" " (as of " ")" "" "; " substitute-command-keys "; use `%s' instead." "."] 13 "\n\n(fn FUN OBSOLESCENCE-DATA TYPE)"])
#@80 Perform (at most) one step of macroexpansion.
(fn FORM &optional ENVIRONMENT)
(defalias 'macroexpand-1 #[513 ":\203e @\211\236\211\203 \211A\203 \300AA\"\202d \202d 9\203+ \301!\204/ \202d \302K\303#\2119\203G \304!\203G \211AB\202b \211:\204P \202b \211@\303=\203a \300AA\"\202b \262\207\207" [apply fboundp autoload-do-load macro macrop] 8 (#$ . 4189)])
#@62 Like `macroexpand' but checking obsolescence.
(fn FORM ENV)
(defalias 'macroexp-macroexpand #[514 "\300\"=\204D \242\203D @9\203D @\301N\203D \302\303!\203( \303\304!\203D @\211\301N\305\306K9\203; \307\202< \310#\"\266\202\202E \211\207" [macroexpand byte-obsolete-info fboundp byte-compile-warning-enabled-p obsolete macroexp--warn-and-return macroexp--obsolete-warning "alias" "macro"] 10 (#$ . 4574)])
#@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\242\242\301=\203 \302\303\242\304\"\"\202D\211\305\242\"\240\210\306\307\310\311\312\242:\203@\242@\211\313=\203F \242A\211\314\313\315! \242#\262\262\202;\211\316=\203\210 \242A\211:\203| \211@A\211:\203p \211@A\f$\266\202\202w \n\317\211\211$\266\202\202\203 \317\211\211$\262\202;\211\320>\203\227 \303\242\321\"\202;\211\322=\203\362 \242A\211:\203\352 \211@\211:\203\342 \211@\211\323=\203\332 A\211\204\322 \314\322\314\303\321\"\317\242A#\242#\262\202\325 \n\242\262\202\335 \242\262\202\345 \242\262\202\355 \242\262\202;\211\324=\203\376 \242\202;\211\325>\203*\242A\211:\203 \211@A\n$\266\202\202%\317\211$\262\202;\211:\203Z\211@\211\323=\203P\242A\211\314\303\321\"\303!
\242#\266\202\262\202U\"\262\202;\211\326>\203\242A\211:\203\372\211@\211:\203T\211@\211\324=\203\\A\211:\203\263\211@\211:\203\n\211@\211\323=\203`A\211\204\265A\211\n\327\330\331\323A@\332E\"\333BB!\"\266\203\262\202[\334=\203TA\211:\203H\211@\211:\203<\211@\211\324=\2030A\211:\203$\211@\211:\203\211@\211\323=\203\fA\211\204 A$\262\202\"\262\202\"\262\202 \"\262\202+
\"\262\2027
\f\"\262\202C\f \"\262\202O \n\"\262\202[\n \"\262\202\334=\203\376A\211:\203\362\211@\211:\203\346\211@\211\324=\203\332A\211:\203\316\211@\211:\203\302\211@\211\323=\203\266A\211\204\252A$\262\202\261\"\262\202\275\"\262\202\311
\"\262\202\325
\f\"\262\202\341\f \"\262\202\355 \n\"\262\202\371\n \"\262\202
\"\262\202\256\334=\203\247A\211:\203\233\211@\211:\203\217\211@\211\324=\203\203A\211:\203w\211@\211:\203k\211@\211\323=\203_A\211\204SA$\262\202Z\"\262\202f
\"\262\202r
\f\"\262\202~\f \"\262\202\212 \n\"\262\202\226\n \"\262\202\242
\"\262\202\256\f\"\262\202W\334=\203PA\211:\203D\211@\211:\2038\211@\211\324=\203,A\211:\203 \211@\211:\203\211@\211\323=\203A\211\204\374A
$\262\202
\"\262\202
\f\"\262\202\f \"\262\202' \n\"\262\2023\n \"\262\202?
\"\262\202K\f\"\262\202W \"\262\202O\334=\203\371A\211:\203\355\211@\211:\203\341\211@\211\324=\203\325A\211:\203\311\211@\211:\203\275\211@\211\323=\203\261A\211\204\245A\f$\262\202\254
\f\"\262\202\270\f \"\262\202\304 \n\"\262\202\320\n \"\262\202\334
\"\262\202\350\f\"\262\202\364 \"\262\202O\335=\203\211\322=\204\n\"\202OA\211:\203F\211@\2119\203:A\211\204.A\f\"\262\2025
\"\262\202A\f\"\262\202M \"\262\262\202\365\334=\203\360A\211:\203\345\211@\211:\203\331\211@\211\324=\203\315A\211:\203\301\211@\211:\203\265\211@\211\323=\203\251A\211\204\235A $\262\202\244\f \"\262\202\260 \n\"\262\202\274\n \"\262\202\310
\"\262\202\324\f\"\262\202\340 \"\262\202\353\n\"\262\202\365 \"\262\202\377\"\262\202;\211\334=\203\265\242A\211:\203\253\211@A\211:\203\240\211@\211:\203\224\211@\211\324=\203\210A\211:\203|\211@\211:\203p\211@\211\323=\203dA\211\204XA $\262\202_\f \"\262\202k \n\"\262\202w\n \"\262\202\203
\"\262\202\217\f\"\262\202\233 \"\262\202\246\n\"\266\202\202\260\"\262\202;\211\335=\2036\242A\211:\203,\211@\211:\203\"\211@\211\322=\203A\211:\203 \211@\2119\203\377A\211\204\363A\f\"\262\202\372
\"\262\202\f\"\262\202 \"\262\202 \n\"\262\202' \"\262\2021\"\262\202;\"\262\202B\242\266\205\207" [macroexpand-all-environment backquote-list* macroexpand macroexp--all-forms 1 macroexp-macroexpand #[514 "\300B!\207" [macroexp--expand-all] 5 "\n\n(fn ARGS F)"] #[1028 "\300\301\302\303A@\304E\"\305 BBB!\"\207" [macroexp--warn-and-return format "%s quoted with ' rather than with #'" lambda \.\.\. macroexp--expand-all] 11 "\n\n(fn ARGS F ARG1 FUN)"] #[514 "\300\301\"\211\204 \302\242\303\"\202g \304!\204+ \3051$ \306\307!\"0\202* \310\311\"\262\210\312\242\"\242=\203b \242\302\242\303\"\211\262\232\203J \242\202e \312\"\240\210\211\242=\203\\ \211\202e \313!\202e \313!\262\207" [function-get compiler-macro macroexp--all-forms 1 functionp (debug error) autoload-do-load indirect-function message "macroexp--expand-all: %S" macroexp--compiler-macro macroexp--expand-all] 8 "\n\n(fn FORM FUNC)"] #[1028 "\300\300\301\302\"\303!\242A#\242#\207" [macroexp--cons macroexp--all-clauses 1 macroexp--all-forms] 10 "\n\n(fn FORM BODY BINDINGS FUN)"] #[1028 "\300\301\300\300\302!\303 \304\"\n\242AA#\242A#\242#\207" [macroexp--cons condition-case macroexp--expand-all macroexp--all-clauses 1] 13 "\n\n(fn FORM HANDLERS BODY ERR)"] cond macroexp--cons macroexp--all-clauses condition-case nil (defconst defvar) 2 function lambda quote (let* let) (mapc mapconcat mapatoms mapcar apply funcall) macroexp--warn-and-return format "%s quoted with ' rather than with #'" \.\.\. macroexp--expand-all sort funcall] 28 (#$ . 5000)])
#@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 (#$ . 10491)])
#@62 Parse a function BODY into (DECLARATIONS . EXPS).
(fn BODY)
(defalias 'macroexp-parse-body #[257 "\300A\203# @\211;\206 \211\242\301>\262\203# \211A\262\242B\262\202 \211\237B\207" [nil (:documentation declare interactive cl-declare)] 5 (#$ . 10904)])
#@64 Return an expression equivalent to `(progn ,@EXPS).
(fn EXPS)
(defalias 'macroexp-progn #[257 "\211A\203 \300B\207\211@\207" [progn] 3 (#$ . 11173)])
#@100 Turn EXP into a list of expressions to execute in sequence.
Never returns an empty list.
(fn EXP)
(defalias 'macroexp-unprogn #[257 "\211\242\300=\203 \211A\206 \301\207\211C\207" [progn (nil)] 3 (#$ . 11333)])
#@79 Return an expression equivalent to `(let* ,bindings ,exp).
(fn BINDINGS EXP)
(defalias 'macroexp-let* #[514 "\204 \207\211\242\300=\203 \300\301A@\"AABB\207\300E\207" [let* append] 6 (#$ . 11553)])
#@82 Return an expression equivalent to `(if ,TEST ,THEN ,ELSE).
(fn TEST THEN ELSE)
(defalias 'macroexp-if #[771 "\211\242\300=\203Q \3018\232\203 \300\302A@E\303\233BBB\207\304!\303\233\232\203; \300\302\305A@DE\304\3018!BBB\207\306\304!BA@\304\3018!B\307\303\233BF\207\211\242\306=\203c \306\304!BABB\207\242\310>\203r \311\305D#\207\300\304!BBB\207" [if 2 or 3 macroexp-unprogn not cond t (if cond) macroexp-if] 9 (#$ . 11766)])
#@1136 Evaluate BODY with SYM bound to an expression for EXP's value.
The intended usage is that BODY generates an expression that
will refer to EXP's value multiple times, but will evaluate
EXP only once. As BODY generates that expression, it should
use SYM to stand for the value of EXP.
If EXP is a simple, safe expression, then SYM's value is EXP itself.
Otherwise, SYM's value is a symbol which holds the value produced by
evaluating EXP. The return value incorporates the value of BODY, plus
additional code to evaluate EXP once and save the result so SYM can
refer to it.
If BODY consists of multiple forms, they are all evaluated
but only the last one's value matters.
TEST is a predicate to determine whether EXP qualifies as simple and
safe; if TEST is nil, only constant expressions qualify.
Example:
(macroexp-let2 nil foo EXP
\=`(* ,foo ,foo))
generates an expression that evaluates EXP once,
then returns the square of that value.
You could do this with
(let ((foovar EXP))
(* foovar foovar))
but using `macroexp-let2' produces more efficient code in
cases where EXP is a constant.
(fn TEST SYM EXP &rest BODY)
(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 (#$ . 12231)]))
(byte-code "\300\301\302\303#\210\304\301\305\306#\207" [function-put macroexp-let2 lisp-indent-function 3 put edebug-form-spec (sexp sexp form body)] 4)
#@87 Bind each binding in BINDINGS as `macroexp-let2' does.
(fn TEST BINDINGS &rest BODY)
(defalias 'macroexp-let2* '(macro . #[642 "\204 \300!\207:\203e @\211:\203] \211@A\211:\203Q \211@A\211\204D A\211\301\f\302BBB\257\266\203\262\202L \303\304\"\262\266\202\202X \303\304\"\262\266\202\202d \303\304\"\262\207\303\304\"\207" [macroexp-progn macroexp-let2 macroexp-let2* error "No clause matching `%S'"] 20 (#$ . 13829)]))
(byte-code "\300\301\302\303#\210\304\301\305\306#\207" [function-put macroexp-let2* lisp-indent-function 2 put edebug-form-spec (sexp (&rest (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 (#$ . 14775)])
#@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>\206* \302!\206* \211\205* >\206* \303!\205* \3041( \211JL\210\3050\207\210\306\207" [byte-compile-const-variables (nil t) keywordp boundp (setting-constant) nil t] 4 (#$ . 14938)])
(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@\301=\206K \211@\302=\205 \211A@9\207\2119\203J \211\303\304>\206I \305!\206I \211\205I >\206I \306!\205I \3071G \211JL\210\3030\207\210\310\207\310\207" [byte-compile-const-variables quote function nil (nil t) keywordp boundp (setting-constant) t] 5 (#$ . 15410)])
#@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 (#$ . 15812)])
#@138 Return an expression E such that `(eval E)' is V.
E is either V or (quote V) depending on whether V evaluates to
itself or not.
(fn V)
(defalias 'macroexp-quote #[257 "\211:\204 \300!\204 \2119\203 \211\301>\203 \207\302D\207" [keywordp (nil t) quote] 3 (#$ . 15982)])
#@55 Return the Elisp backtrace, more recent frames first.
(defalias 'macroexp--backtrace #[0 "\300\301\302!\211\205 \211B\262T\211\262\262\204 \237\207" [nil 0 backtrace-frame] 5 (#$ . 16265)])
(defalias 'macroexp--trim-backtrace-frame #[257 "\211:\205\244 \211A\211:\205\242 \211@\211\300=\2035 A\211:\2050 \211@\211:\205. \211@\211\300\301BD\262\262\262\262\202\240 \211\302=\203\201 A\211:\205| \211@\211:\205z \211@A\211:\205x \211@\2119\204i \242\303=\203s A@9\203s \304\305BBD\202t \306\266\202\262\266\202\262\262\202\240 \211\307=\203\237 A\211:\205\232 \211@\211\310\311!D\262\262\262\202\240 \312\262\262\207" [macroexpand (…) internal-macroexpand-for-load quote macroexpand-all (…) (macroexpand-all …) load-with-code-conversion load file-name-nondirectory nil] 14 "\n\n(fn FRAME)"])
#@60 Stack of files currently undergoing eager macro-expansion.
(defvar macroexp--pending-eager-loads nil (#$ . 17100))
(defvar macroexp--debug-eager nil)
(defalias 'internal-macroexpand-for-load #[514 "@\303=\203 \207 \203W \235\203W \304\305\306\307\310 \"\"\311\312 !D\211\235A\235\211\203/ \211\313C\241\210@\242\314=\203; A\262\n\203F \315\316!\210\202Q \317\320\321\322\237\323#\"\210\303B\207\3241o B\211\203i \314!\202l \325!)0\207\317\326\"\210\207" [macroexp--pending-eager-loads load-file-name macroexp--debug-eager skip delq nil mapcar macroexp--trim-backtrace-frame macroexp--backtrace load file-name-nondirectory … macroexpand-all debug eager-macroexp-cycle message "Warning: Eager macro-expansion skipped due to cycle:\n %s" mapconcat prin1-to-string " => " (error) macroexpand "Eager macro-expansion failure: %S"] 11 "\n\n(fn FORM FULL-P)"])
(provide 'macroexp)
Kontol Shell Bypass