;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(provide 'backquote)
#@146 Like `list' but the last argument is the tail of the new list.

For example (backquote-list* \='a \='b \='c) => (a b . c)

(fn FIRST &rest LIST)
(defalias 'backquote-list*-function #[385 "\211\203%\211C\211A\203\211@C\241\210\211A\262
A\262\202\211@\241\210
\207
\207" [] 7 (#$ . 106)])
#@146 Like `list' but the last argument is the tail of the new list.

For example (backquote-list* \='a \='b \='c) => (a b . c)

(fn FIRST &rest LIST)
(defalias 'backquote-list*-macro '(macro . #[385 "

B\237\262
\211@\262\211A\262
\211\203-\211@
A\300E
\203,\300@E\262

A\262\202\207
\207" [cons] 8 (#$ . 411)]))
(byte-code "\300\301\302K\"\207" [defalias backquote-list* backquote-list*-macro] 3)
#@59 Symbol used to represent a backquote or nested backquote.
(defconst backquote-backquote-symbol '\` (#$ . 820))
#@57 Symbol used to represent an unquote inside a backquote.
(defconst backquote-unquote-symbol '\, (#$ . 937))
#@55 Symbol used to represent a splice inside a backquote.
(defconst backquote-splice-symbol '\,@ (#$ . 1050))
#@593 Argument STRUCTURE describes a template to build.

The whole structure acts as if it were quoted except for certain
places where expressions are evaluated and inserted or spliced in.

For example:

b              => (ba bb bc)		; assume b has this value
\=`(a b c)       => (a b c)		; backquote acts like quote
\=`(a ,b c)      => (a (ba bb bc) c)	; insert the value of b
\=`(a ,@b c)     => (a ba bb bc c)	; splice in the value of b

Vectors work just like lists.  Nested backquotes are permitted.

Note that some macros, such as `pcase', use this symbol for other
purposes.

(fn STRUCTURE)
(defalias 'backquote '(macro . #[257 "\300
!A\207" [backquote-process] 3 (#$ . 1163)]))
(byte-code "\300\301\302K\"\207" [defalias \` backquote] 3)
#@106 Process a (un|back|splice)quote inside a backquote.
This simply recurses through the body.

(fn S LEVEL)
(defalias 'backquote-delay-process #[514 "\300\301\302@DBC\303A\"\"\211\242\302=\203\301\202\304
B\207" [backquote-listify 0 quote backquote-process 1] 7 (#$ . 1910)])
#@465 Process the body of a backquote.
S is the body.  Returns a cons cell whose cdr is piece of code which
is the macro-expansion of S, and whose car is a small integer whose value
can either indicate that the code is constant (0), or not (1), or returns
a list which should be spliced into its environment (2).
LEVEL is only used internally and indicates the nesting level:
0 (the default) is for the toplevel nested inside a single backquote.

(fn S &optional LEVEL)
(defalias 'backquote-process #[513 "\211\204\303\262
\304!\203T\305\306\307\"\"\211@\303U\203\303B\207\310
A<\204-\311AD\202R
A@\312=\203=\313AAB\202R
A@\306=\203M\311AAB\202R\314\315AEB\207
:\204r\303\203i\316=\204i9\204m\202p\317DB\207
@=\203\244\211\303X\203\236
G\320V\203\213\321\322\"\207
A@\242\317=\203\230\303\202\231\310A@B\207\323S\"\207
@	=\203\311\211\303X\203\303
G\320V\203\275\321\324\"\207\320A@B\207\323S\"\207
@\n=\203\326\323T\"\207
\307\211\211\211\211:\203-
@=\204-
@\n=\204-
\305@\"\262@\320U\203!

\204	
\262\307\262\203
\325\326\"B\262AB\262\307\262\202&
B\262A\262\202\334\2045
\203B
\325\305\n\"\"B\262
A\204O

@\242	=\203V
\306\237B\202X

@\262
\203f
\325\310B\"\262
\211\242\317=\203q
\303\202r
\310
B\207" [backquote-unquote-symbol backquote-splice-symbol backquote-backquote-symbol 0 vectorp backquote-process append nil 1 vconcat list vector apply #'vector t quote 2 error "Multiple args to , are not supported: %S" backquote-delay-process "Multiple args to ,@ are not supported: %S" backquote-listify (0)] 13 (#$ . 2197)])
#@22 

(fn LIST OLD-TAIL)
(defalias 'backquote-listify #[514 "\301
A\301@\302U\203\303!\262\301\262
:\203D
@\262

A\262\2040\2040\211@\302U\2049\211AB\262\202\303
A!B\262\202\203y\204Q\304D\262\203wA\206e@:\205e@@=\211\203m\305\202n\306\307C\"B\207\207\310B\207" [backquote-splice-symbol nil 0 eval quote backquote-list* cons append list] 11 (#$ . 3812)])
(byte-code "\300\301\302\303#\210\300\301\304\305#\210\300\306\302\307#\210\300\306\304\305#\207" [put \, function-documentation "See `\\=`' (also `pcase') for the usage of `,'." reader-construct t \,@ "See `\\=`' for the usage of `,@'."] 4)