WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/emacs-lisp
Viewing File: /usr/share/emacs/24.3/lisp/emacs-lisp/macroexp.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 13:00:10 2025
;;; 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 (#$ . 601)])
#@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 "@\211A@)\301\302!\301\303!\301\304!\301\305!\306D\307BD	\257\310\311D\312\n\313D\314B\257\315\316\fE\310\317\316
\fED\320\321D
EE\312\f\322DE\320\n
E\257\312\322\nDE\257\323\324DEF\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 (#$ . 773)]))
(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 (#$ . 1636)])
#@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 (#$ . 2063)])
(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 (#$ . 2914)])
(put 'macroexp--funcall-if-compiled 'byte-compile #[257 "\301\211A@)! \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#\306P\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\312K9\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\330A@\336E\"\337BB!\"\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\330A@\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@\211AA)#@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 (#$ . 4136)])
#@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 (#$ . 7296)])
#@64 Return an expression equivalent to `(progn ,@EXPS).

(fn EXPS)
(defalias 'macroexp-progn #[257 "\211A\203	\300B\207\211@\207" [progn] 3 (#$ . 7708)])
#@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 (#$ . 7866)])
#@79 Return an expression equivalent to `(let* ,bindings ,exp).

(fn BINDINGS EXP)
(defalias 'macroexp-let* #[514 "\204\207\211\242\301=\203\301\302\211A@)\"\211AA)BB\207\301E\207" [x let* append] 7 (#$ . 8041)])
#@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 (#$ . 8267)])
#@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!\303D\304\305\306\206\307DE\300\310\f!DFD\311!DE\304\312E\313\314\211\f	EDEFE\207" [make-symbol "body" "exp" let* if funcall function macroexp-const-p symbol-name macroexp-progn eq macroexp-let* list] 16 (#$ . 8643)]))
(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\303H\"\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 (#$ . 9750)])
#@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 (#$ . 9912)])
(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 (#$ . 10547)])
#@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 (#$ . 11127)])
#@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 (#$ . 11296)])
(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\211A@)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 (#$ . 12136))
(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\302B\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)
F1l3 Manager
