HOME

Mini Shell 1.0
DIR:/proc/self/root/proc/thread-self/root/usr/share/emacs/26.1/lisp/emacs-lisp/
Current File : //proc/self/root/proc/thread-self/root/usr/share/emacs/26.1/lisp/emacs-lisp/inline.elc
;ELC
;;; Compiled
;;; in Emacs version 26.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 'macroexp)
#@80 Similar to backquote, but quotes code and only accepts , and not ,@.

(fn EXP)
(defalias 'inline-quote '(macro . #[257 "\300\301!\207" [error "inline-quote can only be used within define-inline"] 3 (#$ . 428)]))
(put 'inline-quote 'edebug-form-spec t)
#@64 Return non-nil if the value of EXP is already known.

(fn EXP)
(defalias 'inline-const-p '(macro . #[257 "\300\301!\207" [error "inline-const-p can only be used within define-inline"] 3 (#$ . 686)]))
(put 'inline-const-p 'edebug-form-spec t)
#@36 Return the value of EXP.

(fn EXP)
(defalias 'inline-const-val '(macro . #[257 "\300\301!\207" [error "inline-const-val can only be used within define-inline"] 3 (#$ . 934)]))
(put 'inline-const-val 'edebug-form-spec t)
#@42 Signal an error.

(fn FORMAT &rest ARGS)
(defalias 'inline-error '(macro . #[385 "\300\301!\207" [error "inline-error can only be used within define-inline"] 4 (#$ . 1160)]))
(put 'inline-error 'edebug-form-spec t)
#@27 

(fn VAR-EXP &rest BODY)
(defalias 'inline--leteval '(macro . #[385 "\300\301!\207" [error "inline-letevals can only be used within define-inline"] 4 (#$ . 1381)]))
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put inline--leteval lisp-indent-function 1 put edebug-form-spec (sexp &rest body)] 5)
#@24 

(fn LIST &rest BODY)
(defalias 'inline--letlisteval '(macro . #[385 "\300\301!\207" [error "inline-letevals can only be used within define-inline"] 4 (#$ . 1701)]))
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put inline--letlisteval lisp-indent-function 1 put edebug-form-spec (sexp &rest body)] 5)
#@474 Make sure the expressions in VARS are evaluated.
VARS should be a list of elements of the form (VAR EXP) or just VAR, in case
EXP is equal to VAR.  The result is to evaluate EXP and bind the result to VAR.

The tail of VARS can be either nil or a symbol VAR which should hold a list
of arguments, in which case each argument is evaluated and the resulting
new list is re-bound to VAR.

After VARS is handled, BODY is evaluated in the new environment.

(fn VARS &rest BODY)
(defalias 'inline-letevals '(macro . #[385 ":\203\300\211A\262\242\301BBE\207\203\302BB\207\303!\207" [inline--leteval inline-letevals inline--letlisteval macroexp-progn] 7 (#$ . 2027)]))
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put inline-letevals lisp-indent-function 1 put edebug-form-spec (sexp &rest form)] 5)
#@211 Define an inline function NAME with arguments ARGS and body in BODY.

This is like `defmacro', but has several advantages.
See Info node `(elisp)Defining Functions' for more details.

(fn NAME ARGS &rest BODY)
(defalias 'define-inline '(macro . #[642 "\211\242;\205
\211A\262\242C\242\242\301=\205\211A\262\242\302\303\304\"!\305!\306\307\310#\210\311\312\313\301\307	D\nABB\314\315\316\317\320\321\322BBBBBB\"D\"BBB\323\324\312\325\fB\326\327\330\314\331\332\333\334\335\336BBBBBB\"E\257DF\207" [macroexpand-all-environment declare intern format "%s--inliner" macroexp-progn function-put compiler-macro nil progn defun append macroexpand-all (inline-quote . inline--dont-quote) (inline--leteval . inline--dont-leteval) (inline--letlisteval . inline--dont-letlisteval) (inline-const-p . inline--alwaysconst-p) (inline-const-val . inline--alwaysconst-val) (inline-error . inline--error) :autoload-end eval-and-compile inline--form (ignore inline--form) catch 'inline--just-use (inline-quote . inline--do-quote) (inline--leteval . inline--do-leteval) (inline--letlisteval . inline--do-letlisteval) (inline-const-p . inline--testconst-p) (inline-const-val . inline--getconst-val) (inline-error . inline--warning)] 26 (#$ . 2856)]))
(byte-code "\300\301\302\303#\304\301\305\303#\210\300\301\306\307#\300\207" [function-put define-inline lisp-indent-function defun put edebug-form-spec doc-string-elt 3] 5)
#@12 

(fn EXP)
(defalias 'inline--do-quote #[257 "\211C\300\242:\203X\242@\211\301\267\202P\242A\211:\203p\211@A\211\204)\211\262\202k\302\242:\203N\242@\303=\204N\304\242\211\242A\240\210\242!B\262\202*\211\237\262\242\203f\305\306\304\n\242!C\"B\202i\307B\262\266\202\202s!\262\202S\242A\211:\203\334\211@\211:\203\324\211@\211\303=\203\313A\211:\203\302\211@A\211\204\270A\211\204\256\307\310E\262\202\263\n!\262\202\275	!\266\202\202\306!\262\202\317!\262\202\327!\262\202\337!\262\202S\242A\211:\203H\211@\211:\203@\211@\211\303=\2037A\211:\203.\211@A\211\204$A\211\204\307\311E\262\202\n!\262\202)	!\266\202\2022!\262\202;!\262\202C!\262\202K!\262\202S!\262\202\\\312\242!\262\207" [#[257 "\300\242:\203!\242@\301=\204!\302\242\211\242A\240\210\242!B\262\202\211\237\262\242\2037\303\304\302\242!C\"B\202:\305B\207" [nil \, inline--do-quote backquote-list* append list] 7 "\n\n(fn EXP)"] #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (\, 18 quote 120 function 228)) nil \, inline--do-quote backquote-list* append list 'quote 'function macroexp-quote] 15 (#$ . 4296)])
#@12 

(fn EXP)
(defalias 'inline--dont-quote #[257 "\211C\300\242:\203V\242@\211\301\267\202N\242A\211:\203t\211@A\211\204)\211\262\202o\302\242:\203N\242@\303=\204N\304\242\211\242A\240\210\242!B\262\202*\211\237\262\242\204\\\211\202m\305\306@D\307A\304\242!C\"BB\262\266\202\202w!\262\202Q\242A\211:\203\335\211@\211:\203\325\211@\211\303=\203\314A\211:\203\303\211@A\211\204\271A\211\204\257\211\262\202\264\n!\262\202\276	!\266\202\202\307!\262\202\320!\262\202\330!\262\202\340!\262\202Q\242A\211:\203F\211@\211:\203>\211@\211\303=\2035A\211:\203,\211@A\211\204\"A\211\204\211\262\202\n!\262\202'	!\266\202\2020!\262\2029!\262\202A!\262\202I!\262\202Q!\262\202X\242\262\207" [#[257 "\300\242:\203!\242@\301=\204!\302\242\211\242A\240\210\242!B\262\202\211\237\262\242\204.\211\202?\303\304@D\305A\302\242!C\"BB\207" [nil \, inline--dont-quote apply function append] 8 "\n\n(fn EXP)"] #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (\, 18 quote 124 function 229)) nil \, inline--dont-quote apply function append] 14 (#$ . 5556)])
#@27 

(fn VAR-EXP &rest BODY)
(defalias 'inline--do-leteval #[385 "\3009\203\n\301\202\302\242\206\243@\206BBBB\207" [macroexp-let2 macroexp-copyable-p ignore] 7 (#$ . 6776)])
#@27 

(fn VAR-EXP &rest BODY)
(defalias 'inline--dont-leteval #[385 "9\203	\300!\207\301CBB\207" [macroexp-progn let] 5 (#$ . 6967)])
#@27 

(fn LISTVAR &rest BODY)
(defalias 'inline--do-letlisteval #[385 "\300\301!\302\303B\304\305\306\307\310\311\312\313\314\315
E\316BBBFEEDD\317\320D\321!EE\207" [make-symbol "bindings" let* (nil) mapcar lambda (e) if (macroexp-copyable-p e) e let ((v (gensym "v"))) push (list v e) (v) macroexp-let* nreverse macroexp-progn] 17 (#$ . 7108)])
#@27 

(fn LISTVAR &rest BODY)
(defalias 'inline--dont-letlisteval #[385 "\300!\207" [macroexp-progn] 4 (#$ . 7464)])
#@12 

(fn EXP)
(defalias 'inline--testconst-p #[257 "\211\300!\203\211\202\301\302!\303\304D\305\306D\307BBE=\203$\211\202+\310DC\"\207" [macroexp-copyable-p make-symbol "exp" or macroexp-const-p eq car-safe ('function) macroexp-let*] 8 (#$ . 7584)])
#@12 

(fn EXP)
(defalias 'inline--alwaysconst-p #[257 "\300\207" [t] 2 (#$ . 7851)])
#@12 

(fn EXP)
(defalias 'inline--getconst-val #[257 "\211\300!\203\211\202\301\302!\303\304\305!D\306B\307D\310DD\311DF=\203+\211\2022\312DC\"\207" [macroexp-copyable-p make-symbol "exp" cond not inline--testconst-p ((throw 'inline--just-use inline--form)) consp cadr t macroexp-let*] 8 (#$ . 7938)])
#@12 

(fn EXP)
(defalias 'inline--alwaysconst-val #[257 "\207" [] 2 (#$ . 8258)])
#@19 

(fn &rest ARGS)
(defalias 'inline--error #[128 "\300B\207" [error] 3 (#$ . 8342)])
#@19 

(fn &rest ARGS)
(defalias 'inline--warning #[128 "\300\207" [(throw 'inline--just-use inline--form)] 2 (#$ . 8434)])
(provide 'inline)