Gecko [ 122.154.134.11 ]

Name	Size	Permission
advice.elc	60.71 KB	-rw-r--r--
assoc.elc	4.37 KB	-rw-r--r--
authors.elc	27.41 KB	-rw-r--r--
autoload.elc	15.7 KB	-rw-r--r--
avl-tree.elc	15.92 KB	-rw-r--r--
backquote.elc	4.46 KB	-rw-r--r--
benchmark.elc	3.33 KB	-rw-r--r--
bindat.elc	10.84 KB	-rw-r--r--
byte-opt.elc	34.22 KB	-rw-r--r--
byte-run.elc	6.65 KB	-rw-r--r--
bytecomp.elc	124.99 KB	-rw-r--r--
check-declare.elc	8.77 KB	-rw-r--r--
checkdoc.elc	65.08 KB	-rw-r--r--
cl-compat.elc	4.28 KB	-rw-r--r--
cl-extra.elc	21.48 KB	-rw-r--r--
cl-indent.elc	13.98 KB	-rw-r--r--
cl-loaddefs.el	39.57 KB	-rw-r--r--
cl-macs.elc	99.36 KB	-rw-r--r--
cl-seq.elc	43.98 KB	-rw-r--r--
cl-specs.el	13.87 KB	-rw-r--r--
cl.elc	20.74 KB	-rw-r--r--
copyright.elc	8.64 KB	-rw-r--r--
crm.elc	7.94 KB	-rw-r--r--
cust-print.elc	12.77 KB	-rw-r--r--
debug.elc	24.86 KB	-rw-r--r--
derived.elc	10.72 KB	-rw-r--r--
disass.elc	5.09 KB	-rw-r--r--
easy-mmode.elc	14.85 KB	-rw-r--r--
easymenu.elc	20.15 KB	-rw-r--r--
edebug.elc	100.82 KB	-rw-r--r--
eldoc.elc	15.31 KB	-rw-r--r--
elint.elc	19.76 KB	-rw-r--r--
elp.elc	12.78 KB	-rw-r--r--
ewoc.elc	28.62 KB	-rw-r--r--
find-func.elc	17.26 KB	-rw-r--r--
find-gc.elc	3.74 KB	-rw-r--r--
float-sup.elc	1.39 KB	-rw-r--r--
generic.elc	6.55 KB	-rw-r--r--
gulp.elc	4.82 KB	-rw-r--r--
helper.elc	3.84 KB	-rw-r--r--
levents.elc	10.29 KB	-rw-r--r--
lisp-mnt.elc	21.87 KB	-rw-r--r--
lisp-mode.elc	37.14 KB	-rw-r--r--
lisp.elc	21.61 KB	-rw-r--r--
lmenu.elc	11.67 KB	-rw-r--r--
lucid.elc	6.22 KB	-rw-r--r--
macroexp.elc	4.45 KB	-rw-r--r--
map-ynp.elc	6.3 KB	-rw-r--r--
pp.elc	5.09 KB	-rw-r--r--
re-builder.elc	22.36 KB	-rw-r--r--
regexp-opt.elc	4.43 KB	-rw-r--r--
regi.elc	6.15 KB	-rw-r--r--
ring.elc	6.41 KB	-rw-r--r--
rx.elc	26.61 KB	-rw-r--r--
shadow.elc	5.63 KB	-rw-r--r--
sregex.elc	12.45 KB	-rw-r--r--
syntax.elc	5.18 KB	-rw-r--r--
tcover-ses.elc	14.68 KB	-rw-r--r--
tcover-unsafep.elc	4.09 KB	-rw-r--r--
testcover.elc	13.41 KB	-rw-r--r--
timer.elc	22.73 KB	-rw-r--r--
tq.elc	3.94 KB	-rw-r--r--
trace.elc	5.28 KB	-rw-r--r--
unsafep.elc	5.01 KB	-rw-r--r--
warnings.elc	9.61 KB	-rw-r--r--

Code Editor : cl-macs.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:02:53 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/emacs-lisp/cl-macs.el
;;; in Emacs version 23.1.1
;;; with all optimizations.
;;; Function definitions are lazy-loaded.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`cl-macs.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(require 'cl)
(defalias 'cl-pop2 '(macro . #[(place) #@72 ("\301\302\303DD\304\303\211DDEE\207" . [place prog1 car cdr setq])(#$ . 711) nil 7]))
(byte-code "\302\303\304\305#\210\306\307\310!\204�\311\310\312\"\210\206�\313C\211@!\210\314	B\315\314!\204,�\316\314\317\"\210\320	B\321\322!\210\323	B\324\325!\207" [features current-load-list put cl-pop2 edebug-form-spec edebug-sexps require fboundp cl-transform-function-property defalias #[(n p f) "\303\304D\304	D\305\306\nBDF\207" [n p f put quote function lambda] 6] cl-kludge cl-old-bc-file-form default-boundp set-default nil cl-simple-funcs (lambda (#1=#:defconst-tmp-var) (defconst cl-simple-funcs #1#)) (car cdr nth aref elt if and or + - 1+ 1- min max car-safe cdr-safe progn prog1 prog2) cl-safe-funcs (lambda (#2=#:defconst-tmp-var) (defconst cl-safe-funcs #2#)) (* / % length memq list vector vectorp < > <= >= = error)] 4)
(defalias 'cl-simple-expr-p #[(x &optional size) #@255 ("\2040\303	:\203G0	@\304>\204G0	@9\205O0	@\n>\204&0	@\305N\205O0S	A\211\203:0\306	@\"\211\204)0	?\205F0\307Y\205F0\207\307V\205O0S\207" . [size x cl-simple-funcs 10 (quote function function*) side-effect-free cl-simple-expr-p 0])(#$ . 1607) nil 3])
(defalias 'cl-simple-exprs-p #[(xs) #@72 ("\2030\301@!\2030A\211\2040?\207" . [xs cl-simple-expr-p])(#$ . 1922) nil 3])
(defalias 'cl-safe-expr-p #[(x) #@208 (":\205\n0@\303>??\20690@9\20590@	>\204)0@\n>\204)0@\304N\20590A\211\20370\305@!\204)0?\207" . [x cl-simple-funcs cl-safe-funcs (quote function function*) side-effect-free cl-safe-expr-p])(#$ . 2051) nil 2])
(defalias 'cl-const-expr-p #[(x) #@165 (":\203%0@\301=\20630@\302>\205$0A@9\206$0A@\242\303=\205$0\304\2079\20320\305>\20530\306\207\306\207" . [x quote #'function* lambda func (nil t) t])(#$ . 2317) nil 2])
(defalias 'cl-const-exprs-p #[(xs) #@71 ("\2030\301@!\2030A\211\2040?\207" . [xs cl-const-expr-p])(#$ . 2541) nil 3])
(defalias 'cl-const-expr-val #[(x) #@69 ("\301!\302=\2050:\2030A@\207\207" . [x cl-const-expr-p t])(#$ . 2671) nil 2])
(defalias 'cl-expr-access-order #[(x v) #@144 ("\302!\2030	\207:\203_0A\211\2030\303@	\"\202
0	\207	@=\203)0	A\207\304\207" . [x v cl-const-expr-p cl-expr-access-order (t)])(#$ . 2805) nil 3])
(defalias 'cl-expr-contains #[(x y) #@197 ("	\232\2030\303\207	:\20350	\242\304>\20450\305	\203,0\n\306	\211A@\"\206'0\305\\\2020\n\305V\20530\n)\207\307\207" . [y x sum 1 (quote function function*) 0 cl-expr-contains nil])(#$ . 3010) nil 4])
(defalias 'cl-expr-contains-any #[(x y) #@80 ("\2030\302	@\"\2040\211A@\210\20200\207" . [y x cl-expr-contains])(#$ . 3271) nil 3])
(defalias 'cl-expr-depends-p #[(x y) #@106 ("\302!?\2050\303!?\2060\304	\"\207" . [x y cl-const-expr-p cl-safe-expr-p cl-expr-contains-any])(#$ . 3413) nil 3])
#@98 Generate a new uninterned symbol.
The name is made by appending a number to PREFIX, default "G".
(defalias 'gensym #[(&optional prefix) #@146 (";\203	0\202\n0\304\250\2030\2020	\211T\305\306\307\n#!*\207" . [prefix *gensym-counter* num pfix "G" make-symbol format "%s%d"])(#$ . 3686) nil 5 (#$ . 3543)])
#@115 Generate a new interned symbol with a unique name.
The name is made by appending a number to PREFIX, default "G".
(defalias 'gentemp #[(&optional prefix) #@164 (";\203	0\202\n0\304\305\306\307\310\n#\211!\203_0T\202
0\311	!*\207" . [prefix name pfix *gensym-counter* "G" nil intern-soft format "%s%d" intern])(#$ . 4030) nil 5 (#$ . 3869)])
#@195 Define NAME as a function.
Like normal `defun', except ARGLIST allows full Common Lisp conventions,
and BODY is implicitly surrounded by (block NAME ...).

(fn NAME ARGLIST [DOCSTRING] BODY...)
(defalias 'defun* '(macro . #[(name args &rest body) #@121 ("\305	B\n\"\306\nABB@\2030\307@\fE\2020\f*\207" . [args body name res form cl-transform-lambda defun progn])(#$ . 4485) nil 3 (#$ . 4231)]))
#@195 Define NAME as a macro.
Like normal `defmacro', except ARGLIST allows full Common Lisp conventions,
and BODY is implicitly surrounded by (block NAME ...).

(fn NAME ARGLIST [DOCSTRING] BODY...)
(defalias 'defmacro* '(macro . #[(name args &rest body) #@124 ("\305	B\n\"\306\nABB@\2030\307@\fE\2020\f*\207" . [args body name res form cl-transform-lambda defmacro progn])(#$ . 4901) nil 3 (#$ . 4644)]))
#@144 Introduce a function.
Like normal `function', except that if argument is a lambda form,
its argument list allows full Common Lisp conventions.
(defalias 'function* '(macro . #[(func) #@160 ("\242\303=\203$0\304A\305\"\306\303	ABD	@\203!0\307	@\nE\202\"0\n*\207\306D\207" . [func res form lambda cl-transform-lambda cl-none function progn])(#$ . 5253) nil 3 (#$ . 5063)]))
(defalias 'cl-transform-function-property #[(func prop form) #@149 ("\304	\"\305\306\n@AA\307\310	D\310D\311\312\nABDFC#)\207" . [form func res prop cl-transform-lambda append (progn) put quote function lambda])(#$ . 5512) nil 9])
(byte-code "\301B\302\303!\210\304B\305\304!\204�\306\304\307\"\210\307\207" [current-load-list lambda-list-keywords (lambda (#1=#:defconst-tmp-var) (defconst lambda-list-keywords #1#)) (&optional &rest &key &allow-other-keys &aux &whole &body &environment) cl-macro-environment default-boundp set-default nil] 3)
(defalias 'cl-transform-lambda #[(form bind-block) #@1392 ("@A	\306\211\306\211$%\306\211&'\306(\n@;\204)0\n@\242\307>\20360\n\211A@'B'\2020	<\203A0\310	!\202D0\311	D\312	!\211)A\203X0)\311)AD\241\210)\313	>\211*A@)\211\203w0\314\313\314\f	\"\"\f\211*A@)\315	>\211\203\2040\314\315	\"\316	>\203\2160\317\320!\210\321	>\211)\211*A@)+)\203\2630\314)@\314+	\"\"\322+\323DD\244*	\203\3500	@9\203\3500	@\324>\204\3500	@\325=\203\3330\f\204\3500	\211*A@):\204\3500	\211A@(B(\202\2640,\326=\204\3670\327,\nBBC	\204	\306(\237'\237\n\244BB\202\227\325(>\203\325	B\330	\306(G\325(>\203%\331\202&\332Z#\210%\237%$\205:\333\334$\237BB(\237\311%\211A%@@D\244'\237-\335 .\336\216\337\340!\210\341-@;\205f-\211A-@\313>\211*\204s\202\203\314*@\342*\211*A@)\"\")\"-+B\343%D&\237\244\n\244C\244BB.\n\207" . [form args body orig-args bind-defs bind-enquote nil (interactive declare) copy-list &rest last &cl-defs delq &cl-quote &whole error "&whole not currently implemented" &environment &aux cl-macro-environment (nil &rest &body &key &aux) &optional cl-none block cl-do-arglist 1 0 eval-when (compile load eval) match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) require help-fns help-add-fundoc-usage remq let* bind-inits bind-lets bind-forms header simple-args p x v bind-block hdr save-match-data-internal])(#$ . 6057) nil 10])
(defalias 'cl-do-arglist #[(args expr &optional num) #@2839 ("<\2040	>\20409\2040\306\307\"\207\nDB\211\207\310!\311!\211A\20310\f\312\fAD\241\210)\313>\211\203>0\f\312\240\210)\314>\203I0\306\315!\210\312>\316 \203V0
\202W0\317\320\211\211\211>?@ABCDE\204q0\321EC\211FA@)<\203\2050\322\323!C\202\2170C\211FA@)CC\nDB@\324=\203\2520A@AACDBC>\f\203\3160\f@	>\204\3160\f=\204\3070\325>D>\fA\211\204\2640\f@\326>\203\3500\327\330CD\331\f\"GE>\f=??)\203H@	>\204HA\204\3760?\204\332\202\333CDG\334\211A@@\204B\321U\203_G\202:\335>G\336\337\340H\341=?\2053\342HD\330CDEEF\"\210)ETE\343@\202\3510@\344=\203\335\211A@\203\335\203H@	>\204H\211A@\211I:\204sICII\211FAA)\203\212\334\345I8\346C\343E\"\210IA\203\227IA@\202\245J@\206\245I@J\236A@\332CDG\211K\203\274L\203\274\342KDK\334I@K\203\320\335CGKF\202\322G\"\210ETE+\202W@\312=\203\375A@AA\211I:\203\371\334IC\"\210)\2022@\347=\2042B\321U\2042?\2042\335C\336\350\340H\341=?\205\"\342HD\351E\330CDEEEEMBM@\347=\203H\211A@\203H\2032@	>\2042\211A@\211I:\204]ICII@:\203oI\211F@@)\202w\352\353\354I@\"!NI@:\203\214I\211F@A)@\202\217I@OIA\203\242I\211FA@)\202\263J@\206\263OJ\236\211FA@)K\355\342NDCEPK\203\317L\203\317\342KDKI\211FAA)\203
\345I8\206\344\322\356!Q\333\325QDDR\334QP\"\210\334O\335Q\357R\360Q\343EEKF\"\210*\202=\334O\333\325K\204P\2029\361P\362K!\343=\2033\342\320\363K!DD\2028\340\320KEEDD\"\210NABA-\202AA\237A@\364=\203\\\211A@\204\300A\203\300B\321U\204\300\322\365!S\366T\367S\370\355\333SD\342\371AT\"DE\360S\325\211SDDED\333\325\355\342TBCEDD\360S\320ED\343\306\353\372A\"\333SDEDFEU\373SCDCUEMBM+@\374=\203.\211A@\203.\203\300@	>\204\300@:\203\"L\203\n\211F@A)@\203\n\334\211F@@)\342\211A@\211FA@)D\"\210\202\317\334\211F@@)\211A@\211FA@)\"\210\202\317\334\211A@\320\"\210\202\317\2057\306\375D\".\207" . [args lambda-list-keywords expr bind-lets p cl-optimize-safety error "Invalid argument name: %s" copy-list last &rest &body &environment "&environment used incorrectly" cl-compiling-file 3 nil 0 make-symbol "--cl-rest--" &whole cdr (nil &aux) = length ldiff pop car cl-do-arglist if signal 'wrong-number-of-arguments list cl-none quote t &optional 2 and &key 'wrong-number-of-arguments + intern format ":%s" memq "--cl-var--" prog1 setq or cl-const-expr-p cl-const-expr-val &allow-other-keys "--cl-keys--" (:allow-other-keys) while cond append "Keyword argument %%s not one of %s" let &aux "Malformed argument list %s" minarg exactarg laterarg keys safety restarg save-args num x poparg bind-block arg bind-defs def bind-enquote bind-forms karg varg look temp val var allow check])(#$ . 7529) nil 12])
(defalias 'cl-arglist-args #[(args) #@290 ("<\2040C\207\306\211\211:\203_0\211A@\211\f>\203$0	\2020	\307=\20330\211A@\210\2020	:\203?0\n\203?0	@	:\203V0	A\203V0\n\310=\203V0	\211A@)\311	!\244\2020\205f0C\244+\207" . [args arg kind res lambda-list-keywords x nil &cl-defs &key cl-arglist-args])(#$ . 10430) nil 4])
(defalias 'destructuring-bind '(macro . #[(args expr &rest body) #@222 ("\306\211\306\211\307\310
\2060\311
\"\210\312\313\n\314\237D	\237\244\244C#-\207" . [bind-lets bind-forms bind-inits bind-defs bind-block args nil cl-none cl-do-arglist (&aux) append (progn) let* expr body])(#$ . 10811) nil 6]))
(byte-code "\301B\302\301!\204�\303\301\304\"\210\304\207" [current-load-list cl-not-toplevel default-boundp set-default nil] 3)
#@283 Control when BODY is evaluated.
If `compile' is in WHEN, BODY is evaluated when compiled at top-level.
If `load' is in WHEN, BODY is evaluated when loaded after top-level compile.
If `eval' is in WHEN, BODY is evaluated when interpreted or at non-top-level.

(fn (WHEN...) BODY...)
(defalias 'eval-when '(macro . #[(when &rest body) #@414 ("\304\305!\203Q0\305 \203Q0\204Q0\306\307!\204Q0\310	>\2060\311	>\312\313	>\204-0\314	>\203D0\n\203:0\315\316\317\"B\202O0\320\321\211BBB\202O0\n\203N0\322\315B!\210\321*\207\322	>\204]0\323	>\205`0\315B\207" . [cl-not-toplevel when comp body fboundp cl-compiling-file boundp for-effect compile :compile-toplevel t load :load-toplevel progn mapcar cl-compile-time-too if nil eval :execute])(#$ . 11532) nil 4 (#$ . 11192)]))
(defalias 'cl-compile-time-too #[(form) #@341 ("\2429\203
0\242\304N\2040\305\306	B\"\242\307=\203#0\307\310\311A\"B\207\242\312=\203L0A@\313\n>\204:0\314\n>\203I0\312\315\nB\211AA)BB\202J0)\207\313!\210\207" . [form byte-compile-macro-environment when x byte-hunk-handler macroexpand (eval-when) progn mapcar cl-compile-time-too eval-when eval :execute compile])(#$ . 12026) nil 5])
#@121 Like `progn', but evaluates the body at load time.
The result of the body appears to the compiler as a quoted constant.
(defalias 'load-time-value '(macro . #[(form &optional read-only) #@467 ("\303 \203F0\304\305!\302\306D	E\307\310!\20390\311\312!\20390\311\313!\20390\314\315\316\317\320\306\314KDE\314\306\nDD\321\257M\210\202?0\322\n\323J\"\210\324\306*DD\207\306\325	!D\207" . [temp form set cl-compiling-file gentemp "--cl-load-time--" quote fboundp byte-compile-file-form-defmumble boundp this-kind that-one byte-compile-file-form lambda (form) fset 'byte-compile-file-form (byte-compile-file-form form) print outbuffer symbol-value eval])(#$ . 12586) nil 7 (#$ . 12393)]))
#@469 Eval EXPR and choose among clauses on that value.
Each clause looks like (KEYLIST BODY...).  EXPR is evaluated and compared
against each key in each KEYLIST; the corresponding BODY is evaluated.
If no clause succeeds, case returns nil.  A single atom may be used in
place of a KEYLIST of one atom.  A KEYLIST of t or `otherwise' is
allowed only in the final clause, and matches if no other keys match.
Key values are compared by `eql'.

(fn EXPR (KEYLIST BODY...)...)
(defalias 'case '(macro . #[(expr &rest clauses) #@535 ("\305\306\"\2030\2020\307\310!\311\312\313\314\"B	=\203\"0\f\202)0\315	DC\fE+\207" . [expr temp head-list clauses body cl-simple-expr-p 3 make-symbol "--cl-var--" nil cond mapcar #[(c) "@\303>\2030\304\202M0@\305=\2030\306\307	\310\311\n!DF\202M0@<\20340\312@\n\"\313	\310@DE\202M0@\n>\203A0\306\314@\"\210@\nB\315	\310@DEA\206S0\316B\207" [c temp head-list (t otherwise) t ecase-error-flag error "ecase failed: %s, %s" quote reverse append member* "Duplicate key in case: %s" eql (nil)] 6] let])(#$ . 13617) nil 4 (#$ . 13093)]))
#@110 Like `case', but error if no case fits.
`otherwise'-clauses are not allowed.

(fn EXPR (KEYLIST BODY...)...)
(defalias 'ecase '(macro . #[(expr &rest clauses) #@78 ("\302\303	\304\"BB\207" . [expr clauses case append ((ecase-error-flag))])(#$ . 14357) nil 5 (#$ . 14192)]))
#@348 Evals EXPR, chooses among clauses on that value.
Each clause looks like (TYPE BODY...).  EXPR is evaluated and, if it
satisfies TYPE, the corresponding BODY is evaluated.  If no clause succeeds,
typecase returns nil.  A TYPE of t or `otherwise' is allowed only in the
final clause, and matches if no other keys match.

(fn EXPR (TYPE BODY...)...)
(defalias 'typecase '(macro . #[(expr &rest clauses) #@433 ("\305\306\"\2030\2020\307\310!\311\312\313\314\"B	=\203\"0\f\202)0\315	DC\fE+\207" . [expr temp type-list clauses body cl-simple-expr-p 3 make-symbol "--cl-var--" nil cond mapcar #[(c) "@\303=\2030\304\202(0@\305=\2030\306\307	\310\311\n!DF\202(0@\nB\312	@\"A\206.0\313B\207" [c temp type-list otherwise t ecase-error-flag error "etypecase failed: %s, %s" quote reverse cl-make-type-test (nil)] 6] let])(#$ . 14882) nil 4 (#$ . 14475)]))
#@111 Like `typecase', but error if no case fits.
`otherwise'-clauses are not allowed.

(fn EXPR (TYPE BODY...)...)
(defalias 'etypecase '(macro . #[(expr &rest clauses) #@82 ("\302\303	\304\"BB\207" . [expr clauses typecase append ((ecase-error-flag))])(#$ . 15525) nil 5 (#$ . 15355)]))
#@504 Define a lexically-scoped block named NAME.
NAME may be any symbol.  Code inside the BODY forms can call `return-from'
to jump prematurely out of the block.  This differs from `catch' and `throw'
in two respects:  First, the NAME is an unevaluated symbol rather than a
quoted symbol or other form; and second, NAME is lexically rather than
dynamically scoped:  Only references to it within BODY will work.  These
references may appear inside macro expansions, but not inside functions
called from BODY.
(defalias 'block '(macro . #[(name &rest body) #@168 ("\302\303B!\203\f0\303B\207\304\305\306\307\310\311	\"!DBBD\207" . [body name cl-safe-expr-p progn cl-block-wrapper catch quote intern format "--cl-block-%s--"])(#$ . 16204) nil 7 (#$ . 15647)]))
(byte-code "\301B\302\301!\204�\303\301\304\"\210\305\306\307\310#\207" [current-load-list cl-active-block-names default-boundp set-default nil put cl-block-wrapper byte-compile cl-byte-compile-block] 4)
(defalias 'cl-byte-compile-block #[(cl-form) #@268 ("\305\306!\20380A@A@A@\307B\211\nB\310\311A@\211AA)B!	A\20330\312\313A@A@\fE!\20260\312\f!+\207\312A@!\207" . [cl-form cl-entry cl-active-block-names x cl-body fboundp byte-compile-form-do-effect nil byte-compile-top-level progn byte-compile-form catch])(#$ . 16664) nil 5])
(put 'cl-block-throw 'byte-compile 'cl-byte-compile-throw)
(defalias 'cl-byte-compile-throw #[(cl-form) #@135 ("A@A@	\236\211\2030\n\303\241\210)\304\305AB!\207" . [cl-form cl-active-block-names cl-found t byte-compile-normal-call throw])(#$ . 17062) nil 4])
#@84 Return from the block named nil.
This is equivalent to `(return-from nil RESULT)'.
(defalias 'return '(macro . #[(&optional result) #@47 ("\301\302E\207" . [result return-from nil])(#$ . 17360) nil 3 (#$ . 17222)]))
#@295 Return from the block named NAME.
This jump out to the innermost enclosing `(block NAME ...)' form,
returning RESULT from that form (or nil if RESULT is omitted).
This is compatible with Common Lisp, but note that `defun' and
`defmacro' do not create implicit blocks as they do in Common Lisp.
(defalias 'return-from '(macro . #[(name &optional result) #@116 ("\303\304\305\"!\306\307	D\nE)\207" . [name name2 result intern format "--cl-block-%s--" cl-block-throw quote])(#$ . 17807) nil 4 (#$ . 17447)]))
#@723 The Common Lisp `loop' macro.
Valid clauses are:
  for VAR from/upfrom/downfrom NUM to/upto/downto/above/below NUM by NUM,
  for VAR in LIST by FUNC, for VAR on LIST by FUNC, for VAR = INIT then EXPR,
  for VAR across ARRAY, repeat NUM, with VAR = INIT, while COND, until COND,
  always COND, never COND, thereis COND, collect EXPR into VAR,
  append EXPR into VAR, nconc EXPR into VAR, sum EXPR into VAR,
  count EXPR into VAR, maximize EXPR into VAR, minimize EXPR into VAR,
  if COND CLAUSE [and CLAUSE]... else CLAUSE [and CLAUSE...],
  unless COND CLAUSE [and CLAUSE]... else CLAUSE [and CLAUSE...],
  do EXPRS..., initially EXPRS..., finally EXPRS..., return EXPR,
  finally return EXPR, named NAME.

(fn CLAUSE...)
(defalias 'loop '(macro . #[(&rest args) #@1241 ("\306\307\310\311\312\311\306\313!\"\"\">\2040\314\312\315\306BBE\207\312\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211!\"#$%&'()*+\316\317\"@\320=\204W0\321 \210\202J0$\203f0$\322BC*B*\203}0\323BC*B*\324\325BB(B(
\237&\206\2060'C\244,\326)\237!\211-\211.A@)(\237\244/\316!\237\f\203\3070\314\327\330-@\306=\203\2660/\202\3000\331-@\332BB/B\333\f#E\202\3170\315-@/BBC$\203\3600,\334\232\203\3420%C\202\3620\335$\336,B%FC\202\3620,#0%\203%C*B**\203U*\211.@A)\203$\337*\211A*@0\306#C0\202\3121*\203G*\211.@A)\204G*\211A*@@1B1\202'\33710\312#C0)\202	\203b\340	0BBC0\314+0.BB\207" . [args loop-symbol-macs loop-destr-temps loop-first-flag loop-map-form loop-finally t mapcar symbolp delq nil copy-list block while append (cl-end-loop) cl-end-loop cl-parse-loop-clause (t) (t) setq (nil) cl-loop-build-ands --cl-finish-- subst or ((return-from --cl-finish-- nil)) --cl-map (nil) if progn cl-loop-let symbol-macrolet loop-initially loop-accum-vars loop-accum-var loop-finish-flag loop-result-var loop-result-explicit loop-result loop-steps loop-body loop-bindings loop-name epilogue ands x while-body body lets])(#$ . 18734) nil 17 (#$ . 17963)]))
(defalias 'cl-parse-loop-clause #[nil #@9510 ("\211A@\306\307\2040\310\311!\210\202\252
\312=\203$0\211A@\202\252
\313=\203Q0@\314>\20360\210A@:\204@0\310\315!\210@:\203\252
\211A@
B\202@0\316=\203\2670@\317=\203n0A@AA\206i0\320@\202\252
@\321>\203z0\210A@:\204\2040\310\322!\210\211A@@)\317=\203\2440\f\204\2440\211A@A@\206\2370\323@\202\252
@:\203\252
\211A@BBB\202\2440\324>\203\363\325\211\211\211CDEF\211A@\206\3240\326\327!G\211A@\211\330=\203\3500\211A@\331>\203\3640\211A@\332>\2030\333\334B\335>\203B\211@\336>\203\310\337!\210@\340=\206&\211AAA)@\341>H@\342>\2069\211AAA)@\343>I@\344>\205IA@AAJ@\345>\205YA@AAK@\346=\205iA@AAL\347K!?\205v\350\327!M\347L!?\205\203\350\327!NL\203\235L\247\203\235L\351X\203\235\310\352L\"\210GJ\206\245\351DFBFM\203\272MKDFBFN\203\311NLDFBFK\203\371H\203\340I\203\334\353\202\352\354\202\352I\203\351\355\202\352\356GM\206\363KEOBOGH\203\357\202\360GN\206L\206\361EDDBD.\202v\362>\203\321\363=\2113\2038G9\2038G\202;\350\327!\211P\211A@DFBF\364PDOBO\365=\203gG\366PDDQBQ\202\216PG=\204\216G\325DFBFG3\203\204P\202\210\366PDDEBEP@\346=\203\303A@AA\211L\242\367>\203\271LA@9\203\271LA@PD\202\277\370LPE)\202\307\371PDDDBD*\202v\372=\203X\211A@J@\373=\203\357A@AA\202\361J;G\325DFBFC\204@\374=\203.G\375R\206\350\327!\211RJGFDEBEG;DDBD\202TGJ;=\203=J\202N\375R\206I\350\327!\211RJ;FDEBE*\202v\376>\203\322\350\377!\350\201u0!S\211T\211A@DFBFS\201v0DFBF\355\201w0S\201x0SDE\201y0TDEOBO\201z0=\203\265G\201{0TSEDQBQ\202\316G\325DFBFG\201{0TSEDEBE*\202v\201|0>\203\347@\201}0>\206\362@\201~0>?\205\362\310\2010!A@AA\350\201\2000!@\201\2010=\203=\211AA@)G\201\2020U\2035\211AA@)@\201\2030=\2035A@AA\211AA@)\202B\310\201\2040!\202B\350\201u0!SUVWUVDFBFS\351DFBFW\203\225\350\201\2050!\211X\201y0UDDFBFG\201\2060USEDQBQ\355SXEOBO)\202\325G\325DFBF\374U\201\2070\364UD\355S\201y0UDEEEOBOG\375\364UD\201\2100UD\201{0USEFDEBES\201x0SDDDBD,\202v\n>\203}@\201\2110>\204\374\310\2010!\210A@AAY@\201\2010=\203O\211AA@)G\201\2020U\203G\211AA@)@\n>\203G\211AA@)@=\204GA@AA\211AA@)\202R\310\201\2040!\202R\350\327!Z\201\2120>\203dZGZG\201\2130\201\2140GZD\201\2150BBYE[*\202v\201\2160>\203\256@\201\2170>\205\225A@AA\\\201\2200\201\2140GC\201\2150BB\\E[)\202v\201\2210>\203\325\211\211]^_@\201\2220>\203\376@\201^0=\203\335A@AA^\202\277@\201]0=\203\362A@AA]\202\277A@AA_\202\277\201\2230\201\2140G\350\327!D\201\2240BB_^]\257[+\202v\201\2250>\203\345\325\211\211\211\350\201\2260!\350\201\2270!`a]^b_@\201\2300>\203\223@\201^0=\203]A@AA^\202?@\201]0=\203rA@AA]\202?@\201\2310=\203\207A@AAb\202?A@AA_\202?G:\203\264G@9\203\264GA9\203\264G@aGA`\202\304G\201\2320a`EDEBE\201\2330\201\2140a`D\201\2150BB_b^]\257[.\202v	>\203\211@\201\2340>\204\372\310\2010!\210A@AA\211@\201\2010=\203K\211AA@)G\201\2020U\203C\211AA@)@	>\203C\211AA@)@=\204CA@AA\211AA@)\202N\310\201\2040!\202N\350\327!Zc\201\2350>\203bZGZG\201\2360>\203p\201\2370\202s\201\2400\201\2140GZD\201\2150BBcE[*\202v\201\2410>\203\337\350\327!PG\201\2420DFBFP\325DFBF\201\2430\201\2440\201\2450GPED\201\2070P\201w0PGEEEOBOG\201\2460GDDDBD)\202v\201\2470>\203U@\201\2500>\205\367A@AA\350\327!PdGd\203\201\2510dD\202\201\2520DFBFP\325DFBF\201\2430\201\2440\201\2450GPED\201\2070P\201w0PGEEEOBOG\201\2530GDDDBD*\202v9\205_\201\2540N\211e\203neG!\210\202u\310\201\2550\"\210)@)\374=\203\214\201\2560C\211A@\210\202\3110C\203\241F\203\241F\237fBf\202\257\201\2570\201\2600F\"f\244fE\203\314\201\2610\201\2620E\237\201w0C#\201\2560EOBOD\203\357C\203\334\201\2630\202\337\201w0\201\2640\201\2650D\237\"BgBg,\202\252
\201\2660=\203%	\350\327!\211P\211A@DCfBf\354\201w0P\201\2670PDE\351EOBO)\202\252
\201\2700>\203	\211A@\201\2710\325\201\2720\"GhGi=\203]	\201\2610\201\2730hGE\201\2560EOBO\202{	\201\2610\201w0G\201\2740G\201\2600hDEE\201\2560EOBO*\202\252
\201\2750>\203\350	\211A@\201\2710\325\201\2720\"Gh\201\2610\201w0G\211i=\203\304	\201\2740\201\2760>\203\270	\201\2720\202\273	\201\2770hDGE\202\332	\201\3000>\203\322	\201\2740\202\325	\201\2650GhEE\201\2560EOBO*\202\252
\201\3010>\203\n\211A@\201\2710\201\3020!Gh\201\2610\201\3030\201\3040GhF\201\2560EOBO*\202\252
\201\3050>\203N\n\211A@\201\2710\201\3060!Gh\201\2610\201\3030\201\3070GhF\201\2560EOBO*\202\252
\201\3100>\203|\n\211A@\201\2710\351!Gh\201\2610\201\3110GhE\201\2560EOBO*\202\252
\201\3120>\203\254\n\211A@\201\2710\351!Gh\201\2610\375h\201\3110GDE\201\2560EOBO*\202\252
\201\3130>\203#\211A@h\201\3140h!\203\311\nh\202\314\n\350\327!P\201\2710\325!G\201\3150\201\3160!\351\201\3170O!j\201w0G\375GjGPEPFEk\201\2610Ph=\203\nk\202\201\3200PhDCkE\201\2560EOBO-\202\252
\201\3210=\203c\325l\211A@@\372=\205AA@AADlBl@\374=\203W\211A@\210\202.l\237fBf)\202\252
\201\3220=\203x\211A@OBO\202\252
\201\3230=\203\221\201\2440\211A@DOBO\202\252
\201\3240=\203\275m\204\245\350\201\3250!m\201w0m\211A@EOBO\201\2560n\202\252
\201\3260=\203\355m\204\321\350\201\3250!m\201w0m\201\2440\211A@DEOBO\201\2560n\202\252
\201\3270=\203(\fm\204\f\350\201\3250!mo\204\f\350\327!o\201w0m\201\2440\201w0o\211A@EDEOBO\202\252
\201\3300>\203_
\211A@p\325O\201\3310 \210\201\3320O\237!);\325O@\201q0=\203_\f\210A\201\3310 \210\201\3320O\237!)q;@\201\2560=\205z\fq@\201\2560=r@\201K0=\203\212\f\210A\201\3330=\203\232\fq;q;r\203\252\f\201\2610;A@B\202\260\f\201\2020;8r\203\274\fqA@\202\303\f\201\2020q8CBs\201\3340s\201\3350\"\203\372\f\350\327!\211PCfBf\375\201w0PpE\201\3360P\201\3350s#BBs)\202
\375psBBsr\203
\201\2610s\201\2560E\202
sOBO-\202\252
\201\3370>\203]
\325t@:\2046
\310\201\3400!\210@:\203I
\211A@tBt\2026
\201\2610\201\2560tB\237BOBO)\202\252
\317=\203\216
m\204m
\350\327!mo\204w
\350\327!o\201w0o\211A@m\325\257OBO\202\252
9\205\230
\201\3410N\211e\204\245
\310\201\3420\"\210e \210)@\374=\205\272
\210A\201\3310 +\207" . [args key-types hash-types word loop-name loop-initially (hash-key hash-keys hash-value hash-values) (key-code key-codes key-seq key-seqs key-binding key-bindings) error "Malformed `loop' macro" named initially (do doing) "Syntax error on `initially' clause" finally return 'nil (do doing) "Syntax error on `finally' clause" 'nil (for as) nil gensym "--cl-var--" being (the each) (buffer buffers) in (buffer-list) (from downfrom upfrom to downto upto above below by) (downto above) "Must specify `from' value for downward loop" downfrom (downto above) (above below) (above below) (from upfrom downfrom) (to upto downto above below) by cl-const-expr-p make-symbol 0 "Loop `by' value is not positive: %s" > >= < <= - + 1 (in in-ref on) on consp in-ref car (quote function function*) funcall cdr = then and if (across across-ref) "--cl-vec--" loop-result-explicit x loop-finally ands loop-for-steps loop-for-sets loop-for-bindings var down excl start end step end-var step-var loop-body temp loop-symbol-macs loop-first-flag temp-idx temp-vec temp-seq seq ref temp-len table other loop-map-form ob to from buf var2 var1 prop map scr handler loop-bindings loop-steps what loop-accum-var func set bindings loop-finish-flag loop-result loop-result-var cond else simple form body "--cl-idx--" -1 setq 1+ length across-ref aref (element elements) (in-ref of-ref) (in of) "Expected `of'" "--cl-seq--" using 2 index "Bad `using' clause" "--cl-len--" elt or pop (in of) (hash-value hash-values) maphash lambda --cl-map (symbol present-symbol external-symbol symbols present-symbols external-symbols) (in of) mapatoms (overlay overlays extent extents) (in of from to) cl-map-extents ((progn . --cl-map) nil) (interval intervals) "--cl-var1--" "--cl-var2--" (in of property from to) property cons cl-map-intervals (in of) (key-binding key-bindings) (key-seq key-seqs) cl-map-keymap-recursively map-keymap (frame frames screen screens) (selected-frame) prog1 not eq next-frame (window windows) (in of) frame-selected-window (selected-window) next-window cl-loop-for-handler "Expected a `for' preposition, found %s" t mapcar list progn cl-loop-let psetq apply append repeat 1- (collect collecting) cl-loop-handle-accum nreverse push nconc (nconc nconcing append appending) (nconc nconcing) reverse (nconc nconcing) (concat concating) "" callf concat (vconcat vconcating) [] vconcat (sum summing) incf (count counting) (minimize minimizing maximize maximizing) cl-simple-expr-p intern symbol-name 3 let with while until always "--cl-flag--" never thereis (if when unless) cl-parse-loop-clause cl-loop-build-ands unless cl-expr-contains it subst (do doing) "Syntax error on `do' clause" cl-loop-handler "Expected a loop keyword, found %s"])(#$ . 20055) nil 9])
(defalias 'cl-loop-let #[(specs body par) #@786 ("\306\211\211\203\"0@\2429\2040\211@A)@\204\"0A\211\204\n0
\203a0\203a0\306\211\203a0\307\211@A)@!\204Z0\310\311!\211\211@A)@D\nB\211@A)\240\210)A\211\20420\203\3600@:\203\3450\211@@)<\203\3450\211@@)\306\211A@\211A@)\236\206\2510\312\313\"\206\2410\310\311!BB\211@A\211D	B:\203\3330\211A@\205\3220\203\3160\314\202\3170\315DDB\202\2630\237\244,\202a0\211A@	B\202a0\316=\203
\203\3770\317\2020\316\320\321	\237\"B\n\203\322\n\237E\202)\202-
\203#\323\202$\322\n\237	\237\244BB+\207" . [specs new temps p x par nil cl-const-expr-p make-symbol "--cl-var--" last 0 pop car setq psetq apply nconc let* let temp spec nspecs expr loop-destr-temps body set])(#$ . 29633) nil 5])
(defalias 'cl-loop-handle-accum #[(def &optional func) #@228 ("@\306=\203#0A@AA\211\n>\204 0	DC\fB	\nB	)\207
\206B0\307\310!\211DC\fB	\203>0	
D\202?0
\n
\207" . [args var loop-accum-vars def loop-bindings loop-accum-var into make-symbol "--cl-var--" func loop-result])(#$ . 30500) nil 3])
(defalias 'cl-loop-build-ands #[(clauses) #@414 ("\305\211\n\203d0\n@\242\306=\203Y0\307\n@!@\310=\203Y0\nA\203M0\311\n@!\n\211A@)\242\306=\20390\n\211A@)A\202@0\n\211A@)C\244\n\211AA)B\211\2020\311\n\211A@!A\2020\n\211A@	B\2020	\237\206k0\310C\211A\203w0\312	B\202y0	@\211\203\2130\313	\306\313\314\"BC\"\202\2140	\211A\203\2300\312\fB\202\2320\f@)E*\207" . [body ands clauses x full nil progn last t butlast and append (t)])(#$ . 30796) nil 9])
#@88 The Common Lisp `do' loop.

(fn ((VAR INIT [STEP])...) (END-TEST [RESULT...]) BODY...)
(defalias 'do '(macro . #[(steps endtest &rest body) #@68 ("\303	\n\304$\207" . [steps endtest body cl-expand-do-loop nil])(#$ . 31381) nil 5 (#$ . 31235)]))
#@89 The Common Lisp `do*' loop.

(fn ((VAR INIT [STEP])...) (END-TEST [RESULT...]) BODY...)
(defalias 'do* '(macro . #[(steps endtest &rest body) #@66 ("\303	\n\304$\207" . [steps endtest body cl-expand-do-loop t])(#$ . 31636) nil 5 (#$ . 31488)]))
(defalias 'cl-expand-do-loop #[(steps endtest body star) #@371 ("\305\306\203\n0\307\2020\310\311\312	\"\313\314\n@D\315\311\316	\"\317\306\f\"\211\20580\204-0\fA\20410\320\20220\321\322\315\f\"BC)\"BB\nA\206B0\323BBBE\207" . [star steps endtest body sets block nil let* let mapcar #[(c) ":\203\f0@A@D\207\207" [c] 2] while not append #[(c) ":\2050AA\2050@\3018D\207" [c 2] 3] delq setq psetq apply (nil)])(#$ . 31799) nil 13])
#@171 Loop over a list.
Evaluate BODY with VAR bound to each `car' from LIST, in turn.
Then evaluate RESULT to get return value, default nil.

(fn (VAR LIST [RESULT]) BODY...)
(defalias 'dolist '(macro . #[(spec &rest body) #@221 ("\303\304!\305\306\307	A@D	@D\310\311	@\312DE\313\n\311\314DEC\"BBB	AA\20370\311	@\306E	AAB\20280\315BBBE)\207" . [temp spec body make-symbol "--cl-dolist-temp--" block nil let while setq car append cdr (nil)])(#$ . 32422) nil 13 (#$ . 32197)]))
#@216 Loop a certain number of times.
Evaluate BODY with VAR bound to successive integers from 0, inclusive,
to COUNT, exclusive.  Then evaluate RESULT to get return value, default
nil.

(fn (VAR COUNT [RESULT]) BODY...)
(defalias 'dotimes '(macro . #[(spec &rest body) #@189 ("\303\304!\305\306\307	A@D	@\310DD\311\312	@E\313\n\314	@DC\"BB	AA\206(0\315BBBE)\207" . [temp spec body make-symbol "--cl-dotimes-temp--" block nil let 0 while < append incf (nil)])(#$ . 32955) nil 10 (#$ . 32684)]))
#@149 Loop over all symbols.
Evaluate BODY with VAR bound to each interned symbol, or to each symbol
from OBARRAY.

(fn (VAR [OBARRAY [RESULT]]) BODY...)
(defalias 'do-symbols '(macro . #[(spec &rest body) #@139 ("\303\304\305@C\306\307\310@C	BBD\211A@)\205 0\211A@)CBB\211AA)@FE\207" . [spec body x block nil let mapatoms function lambda])(#$ . 33392) nil 10 (#$ . 33185)]))
(defalias 'do-all-symbols '(macro . #[(spec &rest body) #@65 ("\303@\304\211A@)E\nBB\207" . [spec x body do-symbols nil])(#$ . 33627) nil 5]))
#@202 Set SYMs to the values VALs in parallel.
This is like `setq', except that all VAL forms are evaluated (in order)
before assigning any symbols SYM to the corresponding values.

(fn SYM VAL SYM VAL ...)
(defalias 'psetq '(macro . #[(&rest args) #@31 ("\301B\207" . [args psetf])(#$ . 33968) nil 2 (#$ . 33719)]))
#@412 Bind SYMBOLS to VALUES dynamically in BODY.
The forms SYMBOLS and VALUES are evaluated, and must evaluate to lists.
Each symbol in the first list is bound to the corresponding value in the
second list (or made unbound if VALUES is shorter than SYMBOLS); then the
BODY forms are executed and their result is returned.  This is much like
a `let' form, except that the list of symbols can be computed at run-time.
(defalias 'progv '(macro . #[(symbols values &rest body) #@147 ("\303\304\305\306\307	E\nBB\310EE\207" . [symbols values body let ((cl-progv-save nil)) unwind-protect progn cl-progv-before (cl-progv-after)])(#$ . 34514) nil 7 (#$ . 34039)]))
#@356 Make temporary function definitions.
This is an analogue of `let' that operates on the function cell of FUNC
rather than its value cell.  The FORMs are evaluated with the specified
function definitions in place, then the definitions are undone (the FUNCs
go back to their previous definitions, or lack thereof).

(fn ((FUNC ARGLIST BODY...) ...) FORM...)
(defalias 'flet '(macro . #[(bindings &rest body) #@576 ("\302\303\304\"	BB\207" . [bindings body letf* mapcar #[(x) "\304@!\2030@K\242\305=\2040@	\236A\2030\306\307!\210\310\311\211A@)\312@\211AA)BBED\313 \203U0@\314N\203F0\306\315\316@!\"\210\317\303!\203U0@\320\n!BB\321\322@DD\n)D\207" [x cl-macro-environment func byte-compile-function-environment fboundp macro error "Use `labels', not `flet', to rebind macro names" function* lambda block cl-compiling-file byte-compile "Byte-compiling a redefinition of `%s' will not work - use `labels' instead" symbol-name boundp eval symbol-function quote] 7]])(#$ . 35113) nil 4 (#$ . 34701)]))
#@227 Make temporary function bindings.
This is like `flet', except the bindings are lexical instead of dynamic.
Unlike `flet', this macro is fully compliant with the Common Lisp standard.

(fn ((FUNC ARGLIST BODY...) ...) FORM...)
(defalias 'labels '(macro . #[(bindings &rest body) #@340 ("\306\211\203:0\307\310!\211\nB\311\312\211@A)BD	B\f	B\211A@@\312\313\314\315\316\fD\317FFB)\2020\320\321\n\322	BBBB\"+\207" . [cl-macro-environment sets vars bindings var x nil gensym "--cl-var--" function* lambda (&rest cl-labels-args) list* 'funcall quote cl-labels-args cl-macroexpand-all lexical-let setq body])(#$ . 36014) nil 8 (#$ . 35729)]))
#@136 Make temporary macro definitions.
This is like `flet', but for macros instead of functions.

(fn ((NAME ARGLIST BODY...) ...) FORM...)
(defalias 'macrolet '(macro . #[(bindings &rest body) #@238 ("A\2030\306@C\306A	BBE\207\2040\307	B\207\211@@)\310\211@A)\"\311\f@!\210\312\307	B\313\fABB
B\"*\207" . [bindings body x name res cl-macro-environment macrolet progn cl-transform-lambda eval cl-macroexpand-all lambda])(#$ . 36590) nil 6 (#$ . 36394)]))
#@211 Make symbol macro definitions.
Within the body FORMs, references to the variable NAME will be replaced
by EXPANSION, and (setq NAME ...) will act like (setf EXPANSION ...).

(fn ((NAME EXPANSION) ...) FORM...)
(defalias 'symbol-macrolet '(macro . #[(bindings &rest body) #@191 ("A\2030\304@C\304A	BBE\207\2040\305	B\207\306\305	B\307\211@@)!\211@A)@DB\"\207" . [bindings body x cl-macro-environment symbol-macrolet progn cl-macroexpand-all symbol-name])(#$ . 37146) nil 6 (#$ . 36868)]))
(byte-code "\301B\302\301!\204�\303\301\304\"\210\304\207" [current-load-list cl-closure-vars default-boundp set-default nil] 3)
#@158 Like `let', but lexically scoped.
The main visible difference is that lambdas inside BODY will create
lexical closures as in Common Lisp.

(fn VARLIST BODY)
(defalias 'lexical-let '(macro . #[(bindings &rest body) #@782 ("\306\307	\"\310\311B\306\312\n\"\313C\244\f\244\"\314!@\315N\204/0\316\306\317\n\"\320\306\321\n\"
\"E\202>0\316\306\322\n\"\323\324\325\306\326\n\"#
F+\207" . [cl-closure-vars bindings vars body cl-macro-environment ebody mapcar #[(x) ":\2040C\302\303\304@\"!	B\211@\305L\210@\211A@)	@E\207" [x cl-closure-vars make-symbol format "--cl-%s--" [bad-lexical-ref]] 5] cl-macroexpand-all progn #[(x) "\301@!\302\211AA)@D\303E\207" [x symbol-name symbol-value t] 4] (defun . cl-defun-expander) last used let #[(x) "\211AA)@\211A@)D\207" [x] 3] sublis #[(x) "\211AA)@\301\211AA)@DB\207" [x quote] 4] #[(x) "\211AA)@\301\302\303@\"DD\207" [x make-symbol format "--%s--"] 6] apply append (setf) #[(x) "\301\211AA)@D\211A@)D\207" [x symbol-value] 3]])(#$ . 37730) nil 8 (#$ . 37509)]))
#@263 Like `let*', but lexically scoped.
The main visible difference is that lambdas inside BODY, and in
successive bindings within BINDINGS, will create lexical closures
as in Common Lisp.  This is similar to the behavior of `let*' in
Common Lisp.

(fn VARLIST BODY)
(defalias 'lexical-let* '(macro . #[(bindings &rest body) #@116 ("\2040\302	B\207\303!\203_0\304\211A@C	BBC\202\f0	@\207" . [bindings body progn reverse lexical-let])(#$ . 38879) nil 3 (#$ . 38552)]))
(defalias 'cl-defun-expander #[(func &rest rest) #@94 ("\302\303\304D\305\306	BDE\304DE\207" . [func rest progn defalias quote function lambda])(#$ . 39083) nil 6])
#@390 Collect multiple return values.
FORM must return a list; the BODY is then executed with the first N elements
of this list bound (`let'-style) to each of the symbols SYM in turn.  This
is analogous to the Common Lisp `multiple-value-bind' macro, using lists to
simulate true multiple return values.  For compatibility, (values A B C) is
a synonym for (list A B C).

(fn (SYM...) FORM BODY)
(defalias 'multiple-value-bind '(macro . #[(vars form &rest body) #@163 ("\305\306!\307\310	\nD\311\312\"B\f*BB\207" . [n temp form vars body make-symbol "--cl-var--" -1 let* mapcar #[(v) "\303	T\211\nED\207" [v n temp nth] 4]])(#$ . 39665) nil 5 (#$ . 39203)]))
#@345 Collect multiple return values.
FORM must return a list; the first N elements of this list are stored in
each of the symbols SYM in turn.  This is analogous to the Common Lisp
`multiple-value-setq' macro, using lists to simulate true multiple return
values.  For compatibility, (values A B C) is a synonym for (list A B C).

(fn (SYM...) FORM)
(defalias 'multiple-value-setq '(macro . #[(vars form) #@278 ("\204	0\304	\305E\207A\2040\306@\307	DE\207\310\311!\312\313\n	DC\314\306\211A@\307\nDE\306\315\316\317\320\"\"BEE*\207" . [vars form temp n progn nil setq car make-symbol "--cl-var--" 0 let prog1 apply nconc mapcar #[(v) "\303	T\211\nED\207" [v n temp nth] 4]])(#$ . 40274) nil 10 (#$ . 39868)]))
(defalias 'locally '(macro . #[(&rest body) #@31 ("\301B\207" . [body progn])(#$ . 40636) nil 2]))
(defalias 'the '(macro . #[(type form) #@20 ("\207" . [form])(#$ . 40732) nil 1]))
(byte-code "\301B\302\301!\204�\303\301\304\"\210\305B\302\305!\204�\303\305\304\"\210\301\207" [current-load-list cl-proclaim-history default-boundp set-default t cl-declare-stack] 3)
(defalias 'cl-do-proclaim #[(spec hist) #@1049 ("\203
0	<\203
0\n	B\n\242\306=\203#0\307\303!\203\3430\310\nA\"\202\3430\n\242\311=\203J0\nA\211\203\3430\n@\312N\313>\204@0\314\315\n@\"\210\316\n@\312\317#\210\202*0\n\242\320=\203k0\nA\211\203\3430\n@\312N\317=\203Q0\316\n@\312\321#\210\202Q0\n\242\322=\203\2420\305\nA\236A@\323\236\304\nA\236A@\324\236\211\203\2210
@
A@\f\203\2360\f@\fA@*\202\3430\n\242\325=\203\3430\307\326!\203\3430\nA\211\203\3430\n@:\203\2570\n\211@A)@\327=\203\3260\330\n\211@@)!\210\202\2570\331\n\211@@)!\210\202\2570\321\207" . [hist cl-proclaim-history spec byte-compile-bound-variables safety speed special boundp append inline byte-optimizer (nil byte-compile-inline-expand) error "%s already has a byte-optimizer, can't make it inline" put byte-compile-inline-expand notinline nil optimize ((0 nil) (1 t) (2 t) (3 t)) ((0 t) (1 t) (2 t) (3 nil)) warn byte-compile-warnings 0 byte-compile-disable-warning byte-compile-enable-warning cl-optimize-speed byte-optimize cl-optimize-safety byte-compile-delete-errors x])(#$ . 41011) nil 5])
(byte-code "\302!	\203�\303	\211A@\304\"\210\202�\305)\305\207" [cl-proclaims-deferred p reverse cl-do-proclaim t nil] 3)
(defalias 'declare '(macro . #[(&rest specs) #@143 ("\302 \203_0\203_0	<\2030@	B\303\211A@\304\"\210\2020\304\207" . [specs cl-declare-stack cl-compiling-file cl-do-proclaim nil])(#$ . 42259) nil 3]))
#@494 Define a `setf' method.
This method shows how to handle `setf's to places of the form (NAME ARGS...).
The argument forms ARGS are bound according to ARGLIST, as if NAME were
going to be expanded as a macro, then the BODY forms are executed and must
return a list of five elements: a temporary-variables list, a value-forms
list, a store-variables list (of length one), a store-form, and an access-
form.  See `defsetf' for a simpler way to define most setf-methods.

(fn NAME ARGLIST BODY...)
(defalias 'define-setf-method '(macro . #[(func args &rest body) #@199 ("\303\304@;\2050\305\306	D\307\211A@FC\310	\311\nB#C#\207" . [body func args append (eval-when (compile load eval)) put quote 'setf-documentation cl-transform-function-property setf-method])(#$ . 42994) nil 8 (#$ . 42429)]))
(defalias 'define-setf-expander 'define-setf-method)
#@867 Define a `setf' method.
This macro is an easy-to-use substitute for `define-setf-method' that works
well for simple place forms.  In the simple `defsetf' form, `setf's of
the form (setf (NAME ARGS...) VAL) are transformed to function or macro
calls of the form (FUNC ARGS... VAL).  Example:

(defsetf aref aset)

Alternate form: (defsetf NAME ARGLIST (STORE) BODY...).
Here, the above `setf' call is expanded by binding the argument forms ARGS
according to ARGLIST, binding the value form VAL to STORE, then executing
BODY, which must return a Lisp form that does the necessary `setf' operation.
Actually, ARGLIST and STORE may be bound to temporary variables which are
introduced automatically to preserve proper execution order of the arguments.
Example:

(defsetf nth (n x) (v) (list 'setcar (list 'nthcdr n x) v))

(fn NAME [FUNC | ARGLIST (STORE) BODY...])
(defalias 'defsetf '(macro . #[(func arg1 &rest args) #@1166 ("<\203u	:\203u\306\211\306\211\306\211_	@	A@ \307\310\311 \"!!\306\211\"#\306$%	@;\203B0	@	A$%\203\2220%@\312=\204\2220%@\313=\203c0%A\211%@\202\2110%@\314>\204\2110%@:\203y0%@@\202|0%@\nB\307\310\311\n@\"!\fB%A\211%\204G0\n\237\f\237\203\2670\315\nC\"\307\310\311\"!_\315\f_C\"\202\2730\n\f\n\f&''\203\3600&@\316\310\317'@\"DD\"B\"'@&@D#B#'A'&A&\202\3010*\2030_D#B#\320(\315$\205
$C\321!\316\310\317 \"DD\203+_\322\323ED\"B\202-\"B\237\324\2039\325\202:\324
B\203E\325\202F\324B\324!D\321 !D#B\237	BB\203b\325\202c\324\326(D
BB\257EC\".\fBBB\207\327(\330\331\332\326D\333BB)	@\203\223\324\334)\335BBB\202\225))\257\207" . [arg1 args largs largsr temps tempsr nil intern format "--%s--temp--" &aux &rest (&optional &key &allow-other-keys) append make-symbol "--cl-%s--" define-setf-method let* mapcar (lambda (_) (make-symbol "--cl-var--")) list list* quote defsetf (&rest args) (store) cons ((append args (list store))) 'progn (store) restarg rest-temps store-var store-temp lets1 lets2 docstr p p2 p1 func call])(#$ . 44214) nil 16 (#$ . 43286)]))
(byte-code "\300\301\302\303#\210\300\304\302\305#\210\300\306\302\307#\210\300\310\302\311#\210\300\312\302\313#\210\300\314\302\315#\210\300\316\302\317#\210\300\320\302\321#\210\300\322\302\323#\210\300\324\302\325#\210\300\326\302\327#\210\300\330\302\331#\210\300\332\302\333#\210\300\334\302\335#\210\300\336\302\337#\210\300\340\302\341#\210\300\342\302\343#\210\300\344\302\345#\210\300\346\302\347#\210\300\350\302\351#\210\300\352\302\353#\210\300\354\302\355#\210\300\356\302\357#\210\300\360\302\361#\210\300\362\302\363#\210\300\364\302\365#\210\300\366\302\367#\210\300\370\302\371#\210\300\372\302\373#\210\300\374\302\375#\210\300\376\302\377#\210\300\201@�\302\201A�#\210\300\201B�\302\201C�#\210\300\201D�\302\201E�#\210\300\201F�\302\201G�#\210\300\201H�\302\201I�#\210\300\201J�\302\201K�#\210\300\201L�\302\201M�#\210\300\201N�\302\201O�#\210\300\201P�\302\201Q�#\210\300\201R�\302\201S�#\210\300\201T�\302\201U�#\210\300\201V�\302\201W�#\210\300\201X�\302\201Y�#\210\300\201Z�\302\201[�#\210\300\201\\�\302\201]�#\210\300\201^�\302\201_�#\210\300\201`�\302\201a�#\210\300\201b�\302\201c�#\210\300\201d�\302\201e�#\210\300\201f�\302\201g�#\210\300\201h�\302\201i�#\210\300\201j�\302\201k�#\210\300\201l�\302\201m�#\210\300\201n�\302\201o�#\210\300\201p�\302\201q�#\210\300\201r�\302\201s�#\210\300\201t�\302\201u�#\210\300\201v�\302\201w�#\210\300\201x�\302\201y�#\210\300\201z�\302\201{�#\210\300\201|�\302\201}�#\210\300\201~�\302\201�#\210\300\201\200�\302\201\201�#\210\300\201\202�\302\201\203�#\210\300\201\204�\302\201\205�#\210\300\201\206�\302\201\207�#\210\300\201\210�\302\201\211�#\210\300\201\212�\302\201\213�#\210\300\201\214�\302\201\215�#\210\300\201\216�\302\201\217�#\210\300\201\220�\302\201\221�#\210\300\201\222�\302\201\223�#\210\300\201\224�\302\201\225�#\210\300\201\226�\302\201\227�#\210\300\201\230�\302\201\231�#\210\300\201\232�\302\201\233�#\210\300\201\234�\302\201\235�#\210\300\201\236�\302\201\237�#\210\300\201\240�\302\201\241�#\210\300\201\242�\302\201\243�#\210\300\201\244�\302\201\245�#\210\300\201\246�\302\201\247�#\210\300\201\250�\302\201\251�#\210\300\201\252�\302\201\253�#\210\300\201\254�\302\201\255�#\210\300\201\256�\302\201\257�#\210\300\201\260�\302\201\261�#\210\300\201\262�\302\201\263�#\210\300\201\264�\302\201\265�#\210\300\201\266�\302\201\267�#\210\300\201\270�\302\201\271�#\210\300\201\272�\302\201\273�#\210\300\201\274�\302\201\275�#\210\300\201\276�\302\201\277�#\210\300\201\300�\302\201\301�#\210\300\201\302�\302\201\303�#\210\300\201\304�\302\201\305�#\210\300\201\306�\302\201\307�#\210\300\201\310�\302\201\311�#\210\300\201\312�\302\201\313�#\207" [put aref setf-method #[(&rest args) "\304\305\"\306\307!	\nC	\n\310\311C\"*B\312	B\257*\207" [args --args--temp-- --store--temp-- store mapcar #[#1=(_) "\300\301!\207" [make-symbol #2="--cl-var--"] 2] make-symbol "--cl-store--" aset append aref] 7 "Not documented\n\n(fn &rest ARGS)"] car #[(&rest args) "\304\305\"\306\307!	\nC	\n\310\311C\"*B\312	B\257*\207" [args --args--temp-- --store--temp-- store mapcar #[#1# "\300\301!\207" [make-symbol #2#] 2] make-symbol "--cl-store--" setcar append car] 7 "Not documented\n\n(fn &rest ARGS)"] cdr #[(&rest args) "\304\305\"\306\307!	\nC	\n\310\311C\"*B\312	B\257*\207" [args --args--temp-- --store--temp-- store mapcar #[#1# "\300\301!\207" [make-symbol #2#] 2] make-symbol "--cl-store--" setcdr append cdr] 7 "Not documented\n\n(fn &rest ARGS)"] caar #[(x) "\304\305!\304\306!C\nC	C	\307\310\nDE*\311D\257*\207" [--x--temp-- --val--temp-- x val make-symbol "--cl-x--" "--cl-val--" setcar car caar] 6] cadr #[(x) "\304\305!\304\306!C\nC	C	\307\310\nDE*\311D\257*\207" [--x--temp-- --val--temp-- x val make-symbol "--cl-x--" "--cl-val--" setcar cdr cadr] 6] cdar #[(x) "\304\305!\304\306!C\nC	C	\307\310\nDE*\311D\257*\207" [--x--temp-- --val--temp-- x val make-symbol "--cl-x--" "--cl-val--" setcdr car cdar] 6] cddr #[(x) "\304\305!\304\306!C\nC	C	\307\310\nDE*\311D\257*\207" [--x--temp-- --val--temp-- x val make-symbol "--cl-x--" "--cl-val--" setcdr cdr cddr] 6] elt #[(seq n) "\306\307!\306\310!\306\311!	D\fD\nC	\n\312\313D\314\315\fE
E\316\f
FF+\317	E\257+\207" [--seq--temp-- --n--temp-- --store--temp-- seq n store make-symbol "--cl-seq--" "--cl-n--" "--cl-store--" if listp setcar nthcdr aset elt] 10] get #[(&rest args) "\304\305\"\306\307!	\nC	\n\310\311C\"*B\312	B\257*\207" [args --args--temp-- --store--temp-- store mapcar #[#1# "\300\301!\207" [make-symbol #2#] 2] make-symbol "--cl-store--" put append get] 7 "Not documented\n\n(fn &rest ARGS)"] get* #[(x y &optional d) "\306\307!\306\310!\306\311!\306\312!	\nE\f

EC	\n
\313\f
F,\314	\nF\257,\207" [--x--temp-- --y--temp-- --d--temp-- --store--temp-- x y make-symbol "--cl-x--" "--cl-y--" "--cl-d--" "--cl-store--" put get* d store] 8] gethash #[(x h &optional d) "\306\307!\306\310!\306\311!\306\312!	\nE\f

EC	\n
\313\f
F,\314	\nF\257,\207" [--x--temp-- --h--temp-- --d--temp-- --store--temp-- x h make-symbol "--cl-x--" "--cl-h--" "--cl-d--" "--cl-store--" puthash gethash d store] 8] nth #[(n x) "\306\307!\306\310!\306\311!	D\fD\nC	\n\312\313\fE
E+\314	E\257+\207" [--n--temp-- --x--temp-- --store--temp-- n x store make-symbol "--cl-n--" "--cl-x--" "--cl-store--" setcar nthcdr nth] 7] subseq #[(seq start &optional end) "\306\307!\306\310!\306\311!\306\312!	\nE\f
EC	\n\313\314\f\315
\316\257E,\317	\nF\257,\207" [--seq--temp-- --start--temp-- --end--temp-- --new--temp-- seq start make-symbol "--cl-seq--" "--cl-start--" "--cl-end--" "--cl-new--" progn replace :start1 :end1 subseq end new] 11] symbol-function #[(&rest args) "\304\305\"\306\307!	\nC	\n\310\311C\"*B\312	B\257*\207" [args --args--temp-- --store--temp-- store mapcar #[#1# "\300\301!\207" [make-symbol #2#] 2] make-symbol "--cl-store--" fset append symbol-function] 7 "Not documented\n\n(fn &rest ARGS)"] symbol-plist #[(&rest args) "\304\305\"\306\307!	\nC	\n\310\311C\"*B\312	B\257*\207" [args --args--temp-- --store--temp-- store mapcar #[#1# "\300\301!\207" [make-symbol #2#] 2] make-symbol "--cl-store--" setplist append symbol-plist] 7 "Not documented\n\n(fn &rest ARGS)"] symbol-value #[(&rest args) "\304\305\"\306\307!	\nC	\n\310\311C\"*B\312	B\257*\207" [args --args--temp-- --store--temp-- store mapcar #[#1# "\300\301!\207" [make-symbol #2#] 2] make-symbol "--cl-store--" set append symbol-value] 7 "Not documented\n\n(fn &rest ARGS)"] first #[(&rest args) "\304\305\"\306\307!	\nC	\n\310\311C\"*B\312	B\257*\207" [args --args--temp-- --store--temp-- store mapcar #[#1# "\300\301!\207" [make-symbol #2#] 2] make-symbol "--cl-store--" setcar append first] 7 "Not documented\n\n(fn &rest ARGS)"] second #[(x) "\304\305!\304\306!C\nC	C	\307\310\nDE*\311D\257*\207" [--x--temp-- --store--temp-- x store make-symbol "--cl-x--" "--cl-store--" setcar cdr second] 6] third #[(x) "\304\305!\304\306!C\nC	C	\307\310\nDE*\311D\257*\207" [--x--temp-- --store--temp-- x store make-symbol "--cl-x--" "--cl-store--" setcar cddr third] 6] fourth #[(x) "\304\305!\304\306!C\nC	C	\307\310\nDE*\311D\257*\207" [--x--temp-- --store--temp-- x store make-symbol "--cl-x--" "--cl-store--" setcar cdddr fourth] 6] fifth #[(x) "\304\305!\304\306!C\nC	C	\307\310\311\nEE*\312D\257*\207" [--x--temp-- --store--temp-- x store make-symbol "--cl-x--" "--cl-store--" setcar nthcdr 4 fifth] 7] sixth #[(x) "\304\305!\304\306!C\nC	C	\307\310\311\nEE*\312D\257*\207" [--x--temp-- --store--temp-- x store make-symbol "--cl-x--" "--cl-store--" setcar nthcdr 5 sixth] 7] seventh #[(x) "\304\305!\304\306!C\nC	C	\307\310\311\nEE*\312D\257*\207" [--x--temp-- --store--temp-- x store make-symbol "--cl-x--" "--cl-store--" setcar nthcdr 6 seventh] 7] eighth #[(x) "\304\305!\304\306!C\nC	C	\307\310\311\nEE*\312D\257*\207" [--x--temp-- --store--temp-- x store make-symbol "--cl-x--" "--cl-store--" setcar nthcdr 7 eighth] 7] ninth #[(x) "\304\305!\304\306!C\nC	C	\307\310\311\nEE*\312D\257*\207" [--x--temp-- --store--temp-- x store make-symbol "--cl-x--" "--cl-store--" setcar nthcdr 8 ninth] 7] tenth #[(x) "\304\305!\304\306!C\nC	C	\307\310\311\nEE*\312D\257*\207" [--x--temp-- --store--temp-- x store make-symbol "--cl-x--" "--cl-store--" setcar nthcdr 9 tenth] 7] rest #[(&rest args) "\304\305\"\306\307!	\nC	\n\310\311C\"*B\312	B\257*\207" [args --args--temp-- --store--temp-- store mapcar #[#1# "\300\301!\207" [make-symbol #2#] 2] make-symbol "--cl-store--" setcdr append rest] 7 "Not documented\n\n(fn &rest ARGS)"] buffer-file-name #[(&rest args) "\304\305\"\306\307!	\nC	\n\310\311\312C\"BE*\313	B\257*\207" [args --args--temp-- --store--temp-- store mapcar #[#1# "\300\301!\207" [make-symbol #2#] 2] make-symbol "--cl-store--" progn set-visited-file-name append buffer-file-name] 8 "Not documented\n\n(fn &rest ARGS)"] buffer-modified-p #[(&optional buf) "\304\305!\304\306!C\nC	C	\307\n\310DE*\311D\257*\207" [--buf--temp-- --flag--temp-- buf flag make-symbol "--cl-buf--" "--cl-flag--" with-current-buffer set-buffer-modified-p buffer-modified-p] 7] buffer-name #[(&rest args) "\304\305\"\306\307!	\nC	\n\310\311\312C\"BE*\313	B\257*\207" [args --args--temp-- --store--temp-- store mapcar #[#1# "\300\301!\207" [make-symbol #2#] 2] make-symbol "--cl-store--" progn rename-buffer append buffer-name] 8 "Not documented\n\n(fn &rest ARGS)"] buffer-string #[nil "\302\303!\304\211C\305\306\307	DE)\310C\257)\207" [--store--temp-- store make-symbol "--cl-store--" nil progn (erase-buffer) insert buffer-string] 7] buffer-substring #[(&rest args) "\304\305\"\306\307!	\nC	\n\310\311C\"*B\312	B\257*\207" [args --args--temp-- --store--temp-- store mapcar #[#1# "\300\301!\207" [make-symbol #2#] 2] make-symbol "--cl-store--" cl-set-buffer-substring append buffer-substring] 7 "Not documented\n\n(fn &rest ARGS)"] current-buffer #[(&rest args) "\304\305\"\306\307!	\nC	\n\310\311C\"*B\312	B\257*\207" [args --args--temp-- --store--temp-- store mapcar #[#1# "\300\301!\207" [make-symbol #2#] 2] make-symbol "--cl-store--" set-buffer append current-buffer] 7 "Not documented\n\n(fn &rest ARGS)"] current-case-table #[(&rest args) "\304\305\"\306\307!	\nC	\n\310\311C\"*B\312	B\257*\207" [args --args--temp-- --store--temp-- store mapcar #[#1# "\300\301!\207" [make-symbol #2#] 2] make-symbol "--cl-store--" set-case-table append current-case-table] 7 "Not documented\n\n(fn &rest ARGS)"] current-column #[(&rest args) "\304\305\"\306\307!	\nC	\n\310\311\312C\"BE*\313	B\257*\207" [args --args--temp-- --store--temp-- store mapcar #[#1# "\300\301!\207" [make-symbol #2#] 2] make-symbol "--cl-store--" progn move-to-column append current-column] 8 "Not documented\n\n(fn &rest ARGS)"] current-global-map #[(&rest args) "\304\305\"\306\307!	\nC	\n\310\311\312C\"BE*\313	B\257*\207" [args --args--temp-- --store--temp-- store mapcar #[#1# "\300\301!\207" [make-symbol #2#] 2] make-symbol "--cl-store--" progn use-global-map append current-global-map] 8 "Not documented\n\n(fn &rest ARGS)"] current-input-mode #[nil "\302\303!\304\211C\305\306\307	E	E)\310C\257)\207" [--store--temp-- store make-symbol "--cl-store--" nil progn apply set-input-mode current-input-mode] 7] current-local-map #[(&rest args) "\304\305\"\306\307!	\nC	\n\310\311\312C\"BE*\313	B\257*\207" [args --args--temp-- --store--temp-- store mapcar #[#1# "\300\301!\207" [make-symbol #2#] 2] make-symbol "--cl-store--" progn use-local-map append current-local-map] 8 "Not documented\n\n(fn &rest ARGS)"] current-window-configuration #[(&rest args) "\304\305\"\306\307!	\nC	\n\310\311\312C\"BE*\313	B\257*\207" [args --args--temp-- --store--temp-- store mapcar #[#1# "\300\301!\207" [make-symbol #2#] 2] make-symbol "--cl-store--" progn set-window-configuration append current-window-configuration] 8 "Not documented\n\n(fn &rest ARGS)"] default-file-modes #[(&rest args) "\304\305\"\306\307!	\nC	\n\310\311\312C\"BE*\313	B\257*\207" [args --args--temp-- --store--temp-- store mapcar #[#1# "\300\301!\207" [make-symbol #2#] 2] make-symbol "--cl-store--" progn set-default-file-modes append default-file-modes] 8 "Not documented\n\n(fn &rest ARGS)"] default-value #[(&rest args) "\304\305\"\306\307!	\nC	\n\310\311C\"*B\312	B\257*\207" [args --args--temp-- --store--temp-- store mapcar #[#1# "\300\301!\207" [make-symbol #2#] 2] make-symbol "--cl-store--" set-default append default-value] 7 "Not documented\n\n(fn &rest ARGS)"] documentation-property #[(&rest args) "\304\305\"\306\307!	\nC	\n\310\311C\"*B\312	B\257*\207" [args --args--temp-- --store--temp-- store mapcar #[#1# "\300\301!\207" [make-symbol #2#] 2] make-symbol "--cl-store--" put append documentation-property] 7 "Not documented\n\n(fn &rest ARGS)"] extent-data #[(&rest args) "\304\305\"\306\307!	\nC	\n\310\311C\"*B\312	B\257*\207" [args --args--temp-- --store--temp-- store mapcar #[#1# "\300\301!\207" [make-symbol #2#] 2] make-symbol "--cl-store--" set-extent-data append extent-data] 7 "Not documented\n\n(fn &rest ARGS)"] extent-face #[(&rest args) "\304\305\"\306\307!	\nC	\n\310\311C\"*B\312	B\257*\207" [args --args--temp-- --store--temp-- store mapcar #[#1# "\300\301!\207" [make-symbol #2#] 2] make-symbol "--cl-store--" set-extent-face append extent-face] 7 "Not documented\n\n(fn &rest ARGS)"] extent-priority #[(&rest args) "\304\305\"\306\307!	\nC	\n\310\311C\"*B\312	B\257*\207" [args --args--temp-- --store--temp-- store mapcar #[#1# "\300\301!\207" [make-symbol #2#] 2] make-symbol "--cl-store--" set-extent-priority append extent-priority] 7 "Not documented\n\n(fn &rest ARGS)"] extent-end-position #[(ext) "\304\305!\304\306!C\nC	C	\307\310\311\nDEE*\312D\257*\207" [--ext--temp-- --store--temp-- ext store make-symbol "--cl-ext--" "--cl-store--" progn set-extent-endpoints extent-start-position extent-end-position] 7] extent-start-position #[(ext) "\304\305!\304\306!C\nC	C	\307\310\311\nDEE*\312D\257*\207" [--ext--temp-- --store--temp-- ext store make-symbol "--cl-ext--" "--cl-store--" progn set-extent-endpoints extent-end-position extent-start-position] 8] face-background #[(f &optional s) "\306\307!\306\310!\306\311!	D\fD\nC	\n\312
\fF+\313	E\257+\207" [--f--temp-- --s--temp-- --x--temp-- f s x make-symbol "--cl-f--" "--cl-s--" "--cl-x--" set-face-background face-background] 7] face-background-pixmap #[(f &optional s) "\306\307!\306\310!\306\311!	D\fD\nC	\n\312
\fF+\313	E\257+\207" [--f--temp-- --s--temp-- --x--temp-- f s x make-symbol "--cl-f--" "--cl-s--" "--cl-x--" set-face-background-pixmap face-background-pixmap] 7] face-font #[(f &optional s) "\306\307!\306\310!\306\311!	D\fD\nC	\n\312
\fF+\313	E\257+\207" [--f--temp-- --s--temp-- --x--temp-- f s x make-symbol "--cl-f--" "--cl-s--" "--cl-x--" set-face-font face-font] 7] face-foreground #[(f &optional s) "\306\307!\306\310!\306\311!	D\fD\nC	\n\312
\fF+\313	E\257+\207" [--f--temp-- --s--temp-- --x--temp-- f s x make-symbol "--cl-f--" "--cl-s--" "--cl-x--" set-face-foreground face-foreground] 7] face-underline-p #[(f &optional s) "\306\307!\306\310!\306\311!	D\fD\nC	\n\312
\fF+\313	E\257+\207" [--f--temp-- --s--temp-- --x--temp-- f s x make-symbol "--cl-f--" "--cl-s--" "--cl-x--" set-face-underline-p face-underline-p] 7] file-modes #[(&rest args) "\304\305\"\306\307!	\nC	\n\310\311\312C\"BE*\313	B\257*\207" [args --args--temp-- --store--temp-- store mapcar #[#1# "\300\301!\207" [make-symbol #2#] 2] make-symbol "--cl-store--" progn set-file-modes append file-modes] 8 "Not documented\n\n(fn &rest ARGS)"] frame-height #[(&rest args) "\304\305\"\306\307!	\nC	\n\310\311\312C\"BE*\313	B\257*\207" [args --args--temp-- --store--temp-- store mapcar #[#1# "\300\301!\207" [make-symbol #2#] 2] make-symbol "--cl-store--" progn set-screen-height append frame-height] 8 "Not documented\n\n(fn &rest ARGS)"] frame-parameters #[(&rest args) "\304\305\"\306\307!	\nC	\n\310\311\312C\"BE*\313	B\257*\207" [args --args--temp-- --store--temp-- store mapcar #[#1# "\300\301!\207" [make-symbol #2#] 2] make-symbol "--cl-store--" progn modify-frame-parameters append frame-parameters] 8 "Not documented\n\n(fn &rest ARGS)"] frame-visible-p #[(&rest args) "\304\305\"\306\307!	\nC	\n\310\311C\"*B\312	B\257*\207" [args --args--temp-- --store--temp-- store mapcar #[#1# "\300\301!\207" [make-symbol #2#] 2] make-symbol "--cl-store--" cl-set-frame-visible-p append frame-visible-p] 7 "Not documented\n\n(fn &rest ARGS)"] frame-width #[(&rest args) "\304\305\"\306\307!	\nC	\n\310\311\312C\"BE*\313	B\257*\207" [args --args--temp-- --store--temp-- store mapcar #[#1# "\300\301!\207" [make-symbol #2#] 2] make-symbol "--cl-store--" progn set-screen-width append frame-width] 8 "Not documented\n\n(fn &rest ARGS)"] frame-parameter #[(&rest args) "\304\305\"\306\307!	\nC	\n\310\311\312C\"BE*\313	B\257*\207" [args --args--temp-- --store--temp-- store mapcar #[#1# "\300\301!\207" [make-symbol #2#] 2] make-symbol "--cl-store--" progn set-frame-parameter append frame-parameter] 8 "Not documented\n\n(fn &rest ARGS)"] getenv #[(&rest args) "\304\305\"\306\307!	\nC	\n\310\311\312C\"BE*\313	B\257*\207" [args --args--temp-- --store--temp-- store mapcar #[#1# "\300\301!\207" [make-symbol #2#] 2] make-symbol "--cl-store--" progn setenv append getenv] 8 "Not documented\n\n(fn &rest ARGS)"] get-register #[(&rest args) "\304\305\"\306\307!	\nC	\n\310\311C\"*B\312	B\257*\207" [args --args--temp-- --store--temp-- store mapcar #[#1# "\300\301!\207" [make-symbol #2#] 2] make-symbol "--cl-store--" set-register append get-register] 7 "Not documented\n\n(fn &rest ARGS)"] global-key-binding #[(&rest args) "\304\305\"\306\307!	\nC	\n\310\311C\"*B\312	B\257*\207" [args --args--temp-- --store--temp-- store mapcar #[#1# "\300\301!\207" [make-symbol #2#] 2] make-symbol "--cl-store--" global-set-key append global-key-binding] 7 "Not documented\n\n(fn &rest ARGS)"] keymap-parent #[(&rest args) "\304\305\"\306\307!	\nC	\n\310\311C\"*B\312	B\257*\207" [args --args--temp-- --store--temp-- store mapcar #[#1# "\300\301!\207" [make-symbol #2#] 2] make-symbol "--cl-store--" set-keymap-parent append keymap-parent] 7 "Not documented\n\n(fn &rest ARGS)"] local-key-binding #[(&rest args) "\304\305\"\306\307!	\nC	\n\310\311C\"*B\312	B\257*\207" [args --args--temp-- --store--temp-- store mapcar #[#1# "\300\301!\207" [make-symbol #2#] 2] make-symbol "--cl-store--" local-set-key append local-key-binding] 7 "Not documented\n\n(fn &rest ARGS)"] mark #[(&rest args) "\304\305\"\306\307!	\nC	\n\310\311\312C\"BE*\313	B\257*\207" [args --args--temp-- --store--temp-- store mapcar #[#1# "\300\301!\207" [make-symbol #2#] 2] make-symbol "--cl-store--" progn set-mark append mark] 8 "Not documented\n\n(fn &rest ARGS)"] mark-marker #[(&rest args) "\304\305\"\306\307!	\nC	\n\310\311\312C\"BE*\313	B\257*\207" [args --args--temp-- --store--temp-- store mapcar #[#1# "\300\301!\207" [make-symbol #2#] 2] make-symbol "--cl-store--" progn set-mark append mark-marker] 8 "Not documented\n\n(fn &rest ARGS)"] marker-position #[(&rest args) "\304\305\"\306\307!	\nC	\n\310\311\312C\"BE*\313	B\257*\207" [args --args--temp-- --store--temp-- store mapcar #[#1# "\300\301!\207" [make-symbol #2#] 2] make-symbol "--cl-store--" progn set-marker append marker-position] 8 "Not documented\n\n(fn &rest ARGS)"] match-data #[(&rest args) "\304\305\"\306\307!	\nC	\n\310\311\312C\"BE*\313	B\257*\207" [args --args--temp-- --store--temp-- store mapcar #[#1# "\300\301!\207" [make-symbol #2#] 2] make-symbol "--cl-store--" progn set-match-data append match-data] 8 "Not documented\n\n(fn &rest ARGS)"] mouse-position #[(scr) "\304\305!\304\306!C\nC	C	\307\n\310D\311D\312D\257*\313D\257*\207" [--scr--temp-- --store--temp-- scr store make-symbol "--cl-scr--" "--cl-store--" set-mouse-position car cadr cddr mouse-position] 9] overlay-get #[(&rest args) "\304\305\"\306\307!	\nC	\n\310\311C\"*B\312	B\257*\207" [args --args--temp-- --store--temp-- store mapcar #[#1# "\300\301!\207" [make-symbol #2#] 2] make-symbol "--cl-store--" overlay-put append overlay-get] 7 "Not documented\n\n(fn &rest ARGS)"] overlay-start #[(ov) "\304\305!\304\306!C\nC	C	\307\310\n\311\nDFE*\312D\257*\207" [--ov--temp-- --store--temp-- ov store make-symbol "--cl-ov--" "--cl-store--" progn move-overlay overlay-end overlay-start] 9] overlay-end #[(ov) "\304\305!\304\306!C\nC	C	\307\310\n\311\nDFE*\312D\257*\207" [--ov--temp-- --store--temp-- ov store make-symbol "--cl-ov--" "--cl-store--" progn move-overlay overlay-start overlay-end] 8] point #[(&rest args) "\304\305\"\306\307!	\nC	\n\310\311C\"*B\312	B\257*\207" [args --args--temp-- --store--temp-- store mapcar #[#1# "\300\301!\207" [make-symbol #2#] 2] make-symbol "--cl-store--" goto-char append point] 7 "Not documented\n\n(fn &rest ARGS)"] point-marker #[(&rest args) "\304\305\"\306\307!	\nC	\n\310\311\312C\"BE*\313	B\257*\207" [args --args--temp-- --store--temp-- store mapcar #[#1# "\300\301!\207" [make-symbol #2#] 2] make-symbol "--cl-store--" progn goto-char append point-marker] 8 "Not documented\n\n(fn &rest ARGS)"] point-max #[nil "\302\303!\304\211C\305\306\307	E	E)\310C\257)\207" [--store--temp-- store make-symbol "--cl-store--" nil progn narrow-to-region (point-min) point-max] 7] point-min #[nil "\302\303!\304\211C\305\306	\307E	E)\310C\257)\207" [--store--temp-- store make-symbol "--cl-store--" nil progn narrow-to-region (point-max) point-min] 7] process-buffer #[(&rest args) "\304\305\"\306\307!	\nC	\n\310\311C\"*B\312	B\257*\207" [args --args--temp-- --store--temp-- store mapcar #[#1# "\300\301!\207" [make-symbol #2#] 2] make-symbol "--cl-store--" set-process-buffer append process-buffer] 7 "Not documented\n\n(fn &rest ARGS)"] process-filter #[(&rest args) "\304\305\"\306\307!	\nC	\n\310\311C\"*B\312	B\257*\207" [args --args--temp-- --store--temp-- store mapcar #[#1# "\300\301!\207" [make-symbol #2#] 2] make-symbol "--cl-store--" set-process-filter append process-filter] 7 "Not documented\n\n(fn &rest ARGS)"] process-sentinel #[(&rest args) "\304\305\"\306\307!	\nC	\n\310\311C\"*B\312	B\257*\207" [args --args--temp-- --store--temp-- store mapcar #[#1# "\300\301!\207" [make-symbol #2#] 2] make-symbol "--cl-store--" set-process-sentinel append process-sentinel] 7 "Not documented\n\n(fn &rest ARGS)"] process-get #[(&rest args) "\304\305\"\306\307!	\nC	\n\310\311C\"*B\312	B\257*\207" [args --args--temp-- --store--temp-- store mapcar #[#1# "\300\301!\207" [make-symbol #2#] 2] make-symbol "--cl-store--" process-put append process-get] 7 "Not documented\n\n(fn &rest ARGS)"] read-mouse-position #[(scr) "\304\305!\304\306!C\nC	C	\307\n\310D\311DF*\312D\257*\207" [--scr--temp-- --store--temp-- scr store make-symbol "--cl-scr--" "--cl-store--" set-mouse-position car cdr read-mouse-position] 8] screen-height #[(&rest args) "\304\305\"\306\307!	\nC	\n\310\311\312C\"BE*\313	B\257*\207" [args --args--temp-- --store--temp-- store mapcar #[#1# "\300\301!\207" [make-symbol #2#] 2] make-symbol "--cl-store--" progn set-screen-height append screen-height] 8 "Not documented\n\n(fn &rest ARGS)"] screen-width #[(&rest args) "\304\305\"\306\307!	\nC	\n\310\311\312C\"BE*\313	B\257*\207" [args --args--temp-- --store--temp-- store mapcar #[#1# "\300\301!\207" [make-symbol #2#] 2] make-symbol "--cl-store--" progn set-screen-width append screen-width] 8 "Not documented\n\n(fn &rest ARGS)"] selected-window #[(&rest args) "\304\305\"\306\307!	\nC	\n\310\311C\"*B\312	B\257*\207" [args --args--temp-- --store--temp-- store mapcar #[#1# "\300\301!\207" [make-symbol #2#] 2] make-symbol "--cl-store--" select-window append selected-window] 7 "Not documented\n\n(fn &rest ARGS)"] selected-screen #[(&rest args) "\304\305\"\306\307!	\nC	\n\310\311C\"*B\312	B\257*\207" [args --args--temp-- --store--temp-- store mapcar #[#1# "\300\301!\207" [make-symbol #2#] 2] make-symbol "--cl-store--" select-screen append selected-screen] 7 "Not documented\n\n(fn &rest ARGS)"] selected-frame #[(&rest args) "\304\305\"\306\307!	\nC	\n\310\311C\"*B\312	B\257*\207" [args --args--temp-- --store--temp-- store mapcar #[#1# "\300\301!\207" [make-symbol #2#] 2] make-symbol "--cl-store--" select-frame append selected-frame] 7 "Not documented\n\n(fn &rest ARGS)"] standard-case-table #[(&rest args) "\304\305\"\306\307!	\nC	\n\310\311C\"*B\312	B\257*\207" [args --args--temp-- --store--temp-- store mapcar #[#1# "\300\301!\207" [make-symbol #2#] 2] make-symbol "--cl-store--" set-standard-case-table append standard-case-table] 7 "Not documented\n\n(fn &rest ARGS)"] syntax-table #[(&rest args) "\304\305\"\306\307!	\nC	\n\310\311C\"*B\312	B\257*\207" [args --args--temp-- --store--temp-- store mapcar #[#1# "\300\301!\207" [make-symbol #2#] 2] make-symbol "--cl-store--" set-syntax-table append syntax-table] 7 "Not documented\n\n(fn &rest ARGS)"] visited-file-modtime #[(&rest args) "\304\305\"\306\307!	\nC	\n\310\311\312C\"BE*\313	B\257*\207" [args --args--temp-- --store--temp-- store mapcar #[#1# "\300\301!\207" [make-symbol #2#] 2] make-symbol "--cl-store--" progn set-visited-file-modtime append visited-file-modtime] 8 "Not documented\n\n(fn &rest ARGS)"] window-buffer #[(&rest args) "\304\305\"\306\307!	\nC	\n\310\311\312C\"BE*\313	B\257*\207" [args --args--temp-- --store--temp-- store mapcar #[#1# "\300\301!\207" [make-symbol #2#] 2] make-symbol "--cl-store--" progn set-window-buffer append window-buffer] 8 "Not documented\n\n(fn &rest ARGS)"] window-display-table #[(&rest args) "\304\305\"\306\307!	\nC	\n\310\311\312C\"BE*\313	B\257*\207" [args --args--temp-- --store--temp-- store mapcar #[#1# "\300\301!\207" [make-symbol #2#] 2] make-symbol "--cl-store--" progn set-window-display-table append window-display-table] 8 "Not documented\n\n(fn &rest ARGS)"] window-dedicated-p #[(&rest args) "\304\305\"\306\307!	\nC	\n\310\311\312C\"BE*\313	B\257*\207" [args --args--temp-- --store--temp-- store mapcar #[#1# "\300\301!\207" [make-symbol #2#] 2] make-symbol "--cl-store--" progn set-window-dedicated-p append window-dedicated-p] 8 "Not documented\n\n(fn &rest ARGS)"] window-height #[nil "\302\303!\304\211C\305\306\307	\310ED	E)\311C\257)\207" [--store--temp-- store make-symbol "--cl-store--" nil progn enlarge-window - (window-height) window-height] 8] window-hscroll #[(&rest args) "\304\305\"\306\307!	\nC	\n\310\311C\"*B\312	B\257*\207" [args --args--temp-- --store--temp-- store mapcar #[#1# "\300\301!\207" [make-symbol #2#] 2] make-symbol "--cl-store--" set-window-hscroll append window-hscroll] 7 "Not documented\n\n(fn &rest ARGS)"] window-point #[(&rest args) "\304\305\"\306\307!	\nC	\n\310\311C\"*B\312	B\257*\207" [args --args--temp-- --store--temp-- store mapcar #[#1# "\300\301!\207" [make-symbol #2#] 2] make-symbol "--cl-store--" set-window-point append window-point] 7 "Not documented\n\n(fn &rest ARGS)"] window-start #[(&rest args) "\304\305\"\306\307!	\nC	\n\310\311C\"*B\312	B\257*\207" [args --args--temp-- --store--temp-- store mapcar #[#1# "\300\301!\207" [make-symbol #2#] 2] make-symbol "--cl-store--" set-window-start append window-start] 7 "Not documented\n\n(fn &rest ARGS)"] window-width #[nil "\302\303!\304\211C\305\306\307	\310E\311E	E)\312C\257)\207" [--store--temp-- store make-symbol "--cl-store--" nil progn enlarge-window - (window-width) t window-width] 8] x-get-cutbuffer #[(&rest args) "\304\305\"\306\307!	\nC	\n\310\311\312C\"BE*\313	B\257*\207" [args --args--temp-- --store--temp-- store mapcar #[#1# "\300\301!\207" [make-symbol #2#] 2] make-symbol "--cl-store--" progn x-store-cutbuffer append x-get-cutbuffer] 8 "Not documented\n\n(fn &rest ARGS)"] x-get-cut-buffer #[(&rest args) "\304\305\"\306\307!	\nC	\n\310\311\312C\"BE*\313	B\257*\207" [args --args--temp-- --store--temp-- store mapcar #[#1# "\300\301!\207" [make-symbol #2#] 2] make-symbol "--cl-store--" progn x-store-cut-buffer append x-get-cut-buffer] 8 "Not documented\n\n(fn &rest ARGS)"] x-get-secondary-selection #[(&rest args) "\304\305\"\306\307!	\nC	\n\310\311\312C\"BE*\313	B\257*\207" [args --args--temp-- --store--temp-- store mapcar #[#1# "\300\301!\207" [make-symbol #2#] 2] make-symbol "--cl-store--" progn x-own-secondary-selection append x-get-secondary-selection] 8 "Not documented\n\n(fn &rest ARGS)"] x-get-selection #[(&rest args) "\304\305\"\306\307!	\nC	\n\310\311\312C\"BE*\313	B\257*\207" [args --args--temp-- --store--temp-- store mapcar #[#1# "\300\301!\207" [make-symbol #2#] 2] make-symbol "--cl-store--" progn x-own-selection append x-get-selection] 8 "Not documented\n\n(fn &rest ARGS)"] apply #[(func arg1 &rest rest) "\242\306>\203�\243\2429\204�\307\310\"\210A@	\nBB\311\f\"\211@
A@\312
8\313\314
8\211A@)
@#\313\315
8\211A@)
@#\257*\207" [func arg1 rest form cl-macro-environment method (quote function function*) error "First arg to apply in setf is not (function SYM): %s" get-setf-method 2 cl-setf-make-apply 3 4 x] 9 "Not documented\n\n(fn FUNC ARG1 &rest REST)"]] 4)
(defalias 'cl-setf-make-apply #[(form func temps) #@232 ("@\304=\2030\304\305\211A@)\n#\211AA)BB\207\306!\306!\232\204*0\307\310\n\"\210\311\312@DABB\207" . [form x func temps progn cl-setf-make-apply last error "%s is not suitable for use with setf-of-apply" apply quote])(#$ . 75129) nil 6])
(byte-code "\300\301\302\303#\210\300\304\302\305#\210\300\306\302\307#\207" [put nthcdr setf-method #[(n place) "\306	\"\307\310!\307\311!\f@B
\fA@B\nC\312\313\f8@\314\315\f8\nFDC\316\f8\nF\317\315\f8E\257+\207" [place cl-macro-environment store-temp n-temp method n get-setf-method make-symbol "--cl-nthcdr-n--" "--cl-nthcdr-store--" let 2 cl-set-nthcdr 4 3 nthcdr] 9] getf #[(place tag &optional def) "\306	\"\307\310!\307\311!\307\312!\313
@\fD\"\313
A@D\"\nC\314\315
8@\316\317
8\f\nFDC\320
8\nF\321\317
8\fF\257,\207" [place cl-macro-environment store-temp def-temp tag-temp method get-setf-method make-symbol "--cl-getf-tag--" "--cl-getf-def--" "--cl-getf-store--" append let 2 cl-set-getf 4 3 getf tag def] 9] substring #[(place from &optional to) "\306	\"\307\310!\307\311!\307\312!\313
@\fD\"\313
A@D\"\nC\314\315
8@\316\317
8\f\n\257DC\320
8\nF\321\317
8\fF\257,\207" [place cl-macro-environment store-temp to-temp from-temp method get-setf-method make-symbol "--cl-substring-from--" "--cl-substring-to--" "--cl-substring-store--" append let 2 cl-set-substring 4 3 substring from to] 10]] 4)
#@168 Return a list of five values describing the setf-method for PLACE.
PLACE may be any Lisp form which can appear as the PLACE argument to
a macro like `setf' or `incf'.
(defalias 'get-setf-method #[(place &optional env) #@786 ("9\2030\306\307!\310\211	C\311	E\257)\207@9\203\2060@\312\n!\n\313N\310\f\203S0\314\fA\"\211)\203S0\f:\203L0\fG\315U\203L0\f\202P0\316\317\n\"\206\2020\320\310\321\322#,\203s0\323\324!!\206\2020\n\325=\205\2020\323GS8\",\206\2740\326\"\211=\203\2670@9\203\2610\327@!\203\2610@K9\203\2610\323@KAB\"\207\316\330@\"\207\323\"\207" . [place temp func name method case-fold-search make-symbol "--cl-setf--" nil setq symbol-name setf-method apply 5 error "Setf-method for %s returns malformed method" "\\`c[ad][ad][ad]?[ad]?r\\'" t string-match get-setf-method compiler-macroexpand edebug-after macroexpand fboundp "No setf-method known for %s" env cl-macro-environment start string regexp inhibit-changing-match-data])(#$ . 76749) nil 6 (#$ . 76524)])
(defalias 'cl-setf-do-modify #[(place opt-expr) #@479 ("\306	\"\211@\nA@\307\211\310=?\20500\311=\204'0\312!\20600\313\314\n8@\315\n8\"\211\205?0:\205?0\316A!\f\203u0\204Q0\317\f@!\203d0\211A@\f\211A@BB\202A0\211A@\f\211A@D
B\202A0
\237\314\n8@\320\315\n8\"B\320\321\n8\"E.\207" . [place cl-macro-environment method temps values lets get-setf-method nil no-opt unsafe cl-safe-expr-p cl-setf-simple-store-p 2 3 cl-simple-exprs-p cl-const-expr-p sublis 4 subs opt-expr optimize simple])(#$ . 77622) nil 7])
(defalias 'cl-setf-do-store #[(spec val) #@216 ("@A\304!\204\"0\305!\2030\306	\n\"\307=\204\"0\310\n	\"\203*0\311\n	#\20210\312\nDC	E*\207" . [spec form sym val cl-const-expr-p cl-simple-expr-p cl-expr-contains 1 cl-setf-simple-store-p subst let])(#$ . 78168) nil 4])
(defalias 'cl-setf-simple-store-p #[(sym form) #@136 (":\205,0\302	\"\303=\205,0GS8	=\205,0@9\205,0\304@!\205,0@K\242\305=?\207" . [form sym cl-expr-contains 1 fboundp macro])(#$ . 78457) nil 3])
#@323 Set each PLACE to the value of its VAL.
This is a generalized version of `setq'; the PLACEs may be symbolic
references such as (car x) or (aref x i), as well as plain symbols.
For example, (setf (cadar x) y) is equivalent to (setcar (cdar x) y).
The return value is the last VAL in the list.

(fn PLACE VAL PLACE VAL ...)
(defalias 'setf '(macro . #[(&rest args) #@248 ("AA\203$0\304\2030\305\211A@\211A@E	B\2020\306	\237)B\207@9\20320\205R0\307B\207\310@A@\"\311\nA@A@\"\n@\203P0\312\n@E\202Q0*\207" . [args sets method store nil setf progn setq cl-setf-do-modify cl-setf-do-store let*])(#$ . 78989) nil 4 (#$ . 78619)]))
#@203 Set PLACEs to the values VALs in parallel.
This is like `setf', except that all VAL forms are evaluated (in order)
before assigning any PLACEs to the corresponding values.

(fn PLACE VAL PLACE VAL ...)
(defalias 'psetf '(macro . #[(&rest args) #@416 ("\306\307\203A0@9\2030\310A@	\"\2030\307@	>\203(0\311\312@\"\210\211A@	B\20480\311\313!\210\211A@\210\2020\n\203N0\314\315B\307E\202~0\316!\315\211A@)@E\211AA)\211\203y0\315\211A@)\317@
EE\202]0\314
\307E)+\207" . [args vars simple p x expr t nil cl-expr-depends-p error "Destination duplicated in psetf: %s" "Odd number of arguments to psetf" progn setf reverse prog1])(#$ . 79528) nil 6 (#$ . 79277)]))
(defalias 'cl-do-pop #[(place) #@258 ("\303!\2030\304\305D\306\307DEE\207\310\311\"\312\313!\314\315	@\n\316	8DC\"\304\305\nD\317	A@\307\nD\"EE*\207" . [place method temp cl-simple-expr-p prog1 car setf cdr cl-setf-do-modify t make-symbol "--cl-pop--" let* append 2 cl-setf-do-store])(#$ . 80015) nil 8])
#@175 Remove TAG from property list PLACE.
PLACE may be a symbol, or any generalized variable allowed by `setf'.
The form returns true if TAG was found and removed, nil otherwise.
(defalias 'remf '(macro . #[(place tag) #@410 ("\306\307\"\310\n!?\2050\311\312!\313!?\2050\311\314!\206 0\n\f\206(0\315	8\316\317	@\f\20580\f\315	8DC\205@0\nDC#\320\321
\322DE\323\324	A@\325D\"\307E\326
EFE-\207" . [place method tag tag-temp val-temp ttag cl-setf-do-modify t cl-const-expr-p make-symbol "--cl-remf-tag--" cl-simple-expr-p "--cl-remf-place--" 2 let* append if eq car progn cl-setf-do-store cddr cl-do-remf tval])(#$ . 80520) nil 9 (#$ . 80299)]))
#@188 Shift left among PLACEs.
Example: (shiftf A B C) sets A to B, B to C, and returns the old A.
Each PLACE may be a symbol, or any generalized variable allowed by `setf'.

(fn PLACE... VAL)
(defalias 'shiftf '(macro . #[(place &rest args) #@192 ("\2040	\207	9\2030\303	\304	\305BEE\207\306	\307\"\310\n@\303\311\n8\312\nA@\305B\"EE)\207" . [args place method prog1 setq shiftf cl-setf-do-modify unsafe let* 2 cl-setf-do-store])(#$ . 81213) nil 8 (#$ . 80970)]))
#@192 Rotate left among PLACEs.
Example: (rotatef A B C) sets A to B, B to C, and C to A.  It returns nil.
Each PLACE may be a symbol, or any generalized variable allowed by `setf'.

(fn PLACE...)
(defalias 'rotatef '(macro . #[(&rest args) #@422 ("\306\307\310\">\20410A\2050\306@A\203&0\n\211A@@D\244\2020\311C\n\244@	D\244*\207\312!\313\314!\211A\203a0\315\211A@\316\"\317@\320\3218\322A@
\"EE)\202;0\315@\316\"\317\323@\f\3218DC\"\322A@
\"\306F,\207" . [args first sets places temp form nil mapcar symbolp psetf reverse make-symbol "--cl-rotatef--" cl-setf-do-modify unsafe let* prog1 2 cl-setf-do-store append method])(#$ . 81687) nil 8 (#$ . 81445)]))
#@531 Temporarily bind to PLACEs.
This is the analogue of `let', but with generalized variables (in the
sense of `setf') for the PLACEs.  Each PLACE is set to the corresponding
VALUE, then the BODY forms are executed.  On exit, either normally or
because of a `throw' or error, the PLACEs are set back to their original
values.  Note that this macro is *not* available in Common Lisp.
As a special case, if `(PLACE)' is used instead of `(PLACE VALUE)',
the PLACE is not modified before executing BODY.

(fn ((PLACE VALUE) ...) BODY...)
(defalias 'letf '(macro . #[(bindings &rest body) #@915 ("A\2040\211@A)\2030\211@@)9\2030\306\nBB\207\307\211\211\310!\203_\211@@)9\203D0\311\312\211@@)DD\202J0\211@@)_\211@A)@ \313_\314\"!\315\316!\"_@\317>\205l0\315\320!#\321 !?\205~0A\205~0\315\322!$!@#\203\2560#_@\311=\203\2260\323\202\2270\324\325!8A@DD\"\326#\325!8EDD\202\2660\"\325!8DC\244$\205\3020$ DC\244\244\327\330@A\203\3420\331!A@$\206\3340 \"\nB\202\3430\nB#\203\f\332#\331!A@\"\"_@\311=\2030\333\202\334\325!8A@DF\202\331!A@\"\"ECA.\202)0\335\n,BB\207" . [bindings x body rev unsets sets let nil reverse symbol-value quote cl-setf-do-modify no-opt make-symbol "--cl-letf-save--" (symbol-value symbol-function) "--cl-letf-bound--" cl-const-expr-p "--cl-letf-val--" boundp fboundp 2 and unwind-protect progn cl-setf-do-store if makunbound fmakunbound let* lets place value method save bound temp])(#$ . 82736) nil 9 (#$ . 82149)]))
#@532 Temporarily bind to PLACEs.
This is the analogue of `let*', but with generalized variables (in the
sense of `setf') for the PLACEs.  Each PLACE is set to the corresponding
VALUE, then the BODY forms are executed.  On exit, either normally or
because of a `throw' or error, the PLACEs are set back to their original
values.  Note that this macro is *not* available in Common Lisp.
As a special case, if `(PLACE)' is used instead of `(PLACE VALUE)',
the PLACE is not modified before executing BODY.

(fn ((PLACE VALUE) ...) BODY...)
(defalias 'letf* '(macro . #[(bindings &rest body) #@109 ("\2040\302	B\207\303!\203_0\304\211A@C	BBC\202\f0	@\207" . [bindings body progn reverse letf])(#$ . 84280) nil 3 (#$ . 83691)]))
#@174 Set PLACE to (FUNC PLACE ARGS...).
FUNC should be an unquoted function name.  PLACE may be a symbol,
or any generalized variable allowed by `setf'.

(fn FUNC PLACE ARGS...)
(defalias 'callf '(macro . #[(func place &rest args) #@186 ("\305\306	B\"\307\n8	B\310\n@\311\nA@\f9\203_0\fB\202&0\312\313\fDBB\"E*\207" . [place args method rargs func cl-setf-do-modify list 2 let* cl-setf-do-store funcall function])(#$ . 84662) nil 7 (#$ . 84429)]))
#@142 Set PLACE to (FUNC ARG1 PLACE ARGS...).
Like `callf', but PLACE is the second argument of FUNC, not the first.

(fn FUNC ARG1 PLACE ARGS...)
(defalias 'callf2 '(macro . #[(func arg1 place &rest args) #@393 ("\306!\2030\307	!\2030\n9\2030\310	\n	BBBE\207\311	\312B\"\313!?\205-0\314\315!\211\20630\316\f8BB\317\320
\205E0
DC\f@\"\321\fA@\n9\203X0\nB\202`0\322\323\nDBB\"E+\207" . [arg1 place func args method temp cl-safe-expr-p cl-simple-expr-p setf cl-setf-do-modify list cl-const-expr-p make-symbol "--cl-arg1--" 2 let* append cl-setf-do-store funcall function rargs])(#$ . 85095) nil 8 (#$ . 84888)]))
#@183 Define a `setf'-like modify macro.
If NAME is called, it combines its PLACE argument with the other arguments
from ARGLIST using FUNC: (define-modify-macro incf (&optional (n 1)) +)
(defalias 'define-modify-macro '(macro . #[(name arglist func &optional doc) #@282 ("\305>\203\n0\306\307!\210\310\311!\312\n	B\313>\2030\314\202_0\315\316\317\fD	\320!BBBB\257)\207" . [arglist place name doc func &key error "&key not allowed in define-modify-macro" make-symbol "--cl-place--" defmacro* &rest list* list 'callf quote cl-arglist-args])(#$ . 85794) nil 10 (#$ . 85528)]))
#@282 Define a struct type.
This macro defines a new Lisp data type called NAME, which contains data
stored in SLOTs.  This defines a `make-NAME' constructor, a `copy-NAME'
copier, a `NAME-p' predicate, and setf-able `NAME-SLOT' accessors.

(fn (NAME OPTIONS...) (SLOT SLOT-OPTS...)...)
(defalias 'defstruct '(macro . #[(struct &rest descs) #@4820 (":\203\n0@\2020\243\306\211\307	!\310P\311\312\313	\"!@\306A\311\312\314	\"!B\311\312\315	\"!C\306\211DE\316 \203D0F\202E0\317G\306H\311\312\320	\"!I\311\312\321	\"!J\306\211KL\306\211MN\306\211OP\306QR@;\203\2100\322\323	D\324R\211AR@FOBO\325\326\327R\"BR\n\203\210\n@:\203\2450\n\211S@@)\202\2470\n@\n\211A@\243T\211U\330=\203\3170T\203\204T@\203\3120\307T@!\202\3130\331\202\204U\332=\203\3770TA\203\3620T@@=\203\3500\306@TABA\202\204T\203\204T@@\202\204U\333=\203T\203\204T@B\202\204U\334=\203'T\203\204T@C\202\204U\335=\203>T@H\326\336TA\"K\202\204U\337=\203MT@D\202\204U\340=\203\\T@M\202\204U\341=\203i\342N\202\204U\343=\203~\344T@\345\"R\244R\202\204\346\347U\"\210*\202\2210D\203\237\350\351\352DD\353\354\355\257\342ED\202\316M\204\316H\203\260H\356N\203\316\342EH\204\275M\203\303D?\205\314\350\357\312\360	\"\354EDDH\203}H\361NH\362NV\211W\204\351\346\363H\"\210M\203\374W@M=\204\374\346\364	\"\210K\203+K\211S@@)V\236\206\346\365K\211S@@)H#V>K\211AK@\240\210\202\374\366V\367\370R\236R\"\"RW@M\370R\236NW\211SA@)\203U	I\342NH\211X\203y\371\323ID\311\312\321X\"!EOBOX\372N\211X\204]+\202\240M\203\232M\373>\204\217\346\374M\"\210N\203\240	I\202\240\375M\376NN\204\257\367\370R\236R\"R\377JDOBON\205RG\370R\236R>GZYM\375=\203\363\201`0\201a0\201b0\201c0RGE\201d0\201e0\353YEJEF\202Y\201f0U\203\201d0\201g0JE\202\201`0\201h0\201d0\201i0Y\353EJEE)\211P\205WG\201f0V\205WP\211SA@)@\201j0=\203UG\201k0U\203U\201`0P\211SAA)AB\202WPQ\201f0RZYZ\203\205Z\211AZ@\211[@\211\\\201l0>\203\221\306B\\\370=\205\213\323ID\fB\202|\\Z\236\203\242\346\201m0\\	#\210\311\312\201n0
\\#!]\\B[A@\fB\201o0]\201p0\366Q\205\331\201q0Q\346\312\201r0]	#DECM\375=\203\352\201e0\353YE\2020Y\201f0U\203\371\201s0\2020\201i0Y\353EC\"BBBOBO]\342BLBL\201t0]\201u0\201v0[\211SAA)>\211SA@)\203<\346\312\201w0]\"D\202X\201x0\201y0\353\323	D\323]DQ\205S\323QDY\257DFOBOE\203{D\357\312\201z0\\\"\354E\201{0]\353D\354ED\244\210)*YTY\202b*\237\f\237C\203\312P\203\312\201o0C\201|0P@\201`0=\203\262\366P\201}0\"\202\271\201`0P\342EFOBOC\201~0BLBLB\203\351\2010B\201\2000\201\2010FOBOB\342BLBL@\203@\201\2020\367\306\201\2030!\"BDABAA\203jA\211S@@)A\211AA@\211SA@)T\201\2040T!^\201\2050\201\2060\f#_\201o0	\201\2070\323\306RBDTBBM_BFOBO\201\2100\350\326\201\2110R\"B!\203f	\342BLBL,\202E\203xD\201\2120\342D\244\210D\203\232\201\2130\352\201\2140\201\2150\201`0PDEED\201\2160EOBO\201\2170J\201\2200\323IDDEOBO\201\2210\201\2220\322\323	D\201\2230\323RDF\322\323	D\201\2240\323MN\342=DDF\322\323	D\201\2250\323HDF\322\323	D\201\2260EF\326\201\2270L\"BBBBBBOBO\350\323	DOB\237.B\207" . [struct name opts slots defaults conc-name nil symbol-name "-" intern format "make-%s" "copy-%s" "%s-p" cl-compiling-file 3 "cl-struct-%s" "cl-struct-%s-tags" put quote 'structure-documentation (cl-tag-slot) mapcar #[(x) ":\2030\207C\207" [x] 1] :conc-name "" :constructor :copier :predicate :include #[(x) ":\2030\207C\207" [x] 1] :print-function :type :named t :initial-offset make-list (cl-skip-slot) error "Slot option %s unrecognized" progn funcall function cl-x cl-s cl-n cl-struct-print princ "#S(%s" cl-struct-type cl-struct-slots "%s is not a struct name" ":type disagrees with :include for %s" "No slot %s in included struct %s" append delq cl-tag-slot pushnew cl-struct-include (vector list) "Invalid :type specifier: %s" vector true defvar constructor constrs copier predicate print-func print-auto cl-optimize-safety safety include tag tag-symbol include-descs side-eff type named forms pred-form pred-check descs x args opt old-descs inc-type incl pos descp desc slot accessor anames make and (vectorp cl-x) >= (length cl-x) memq aref 0 (car-safe cl-x) (consp cl-x) nth vectorp 1 (cl-tag-slot cl-skip-slot) "Duplicate slots named %s in %s" "%s%s" defsubst* (cl-x) or "%s accessing a non-%s" (car cl-x) define-setf-method (cl-x) :read-only "%s is a read-only slot" with-no-warnings cl-struct-setf-expander " %s" prin1 (cl-x) (t) error-free defun (x) (copy-sequence x) &key copy-sequence cl-arglist-args mapcar* #[(s d) "	>\2030\207\n\207" [s anames d] 2] &cl-defs cl-safe-expr-p second (princ ")" cl-s) push lambda (cl-x cl-s cl-n) custom-print-functions setq list eval-when (compile load eval) 'cl-struct-slots 'cl-struct-type 'cl-struct-include 'cl-struct-print #[(x) "\301\302@D\303\302ADF\207" [x put quote 'side-effect-free] 5]])(#$ . 86460) nil 12 (#$ . 86117)]))
(defalias 'cl-struct-setf-expander #[(x name accessor pred-form pos) #@411 ("\306\307!\306\310!C\nC	C\311\312\205#0\313\314\315#\316\317\320\f
#DEC
\321N@\322=\20350\323	F\202a0\324\325X\203Z0S\211\326Y\203T0\327D\202@0)\202_0\330E	EC#\fD\257*\207" . [temp store x pred-form accessor name make-symbol "--cl-x--" "--cl-store--" append (progn) or subst cl-x error format "%s storing a non-%s" cl-struct-type vector aset setcar 5 0 cdr nthcdr pos xx])(#$ . 91390) nil 12])
#@98 Define NAME as a new data type.
The type name can then be used in `typecase', `check-type', etc.
(defalias 'deftype '(macro . #[(name arglist &rest body) #@160 ("\303\304\305\306\307\310	BB\nB#E\207" . [name arglist body eval-when (compile load eval) cl-transform-function-property cl-deftype-handler &cl-defs '('*)])(#$ . 91988) nil 8 (#$ . 91827)]))
(defalias 'cl-make-type-test #[(val type) #@1079 ("9\203v0\305N\2030\306	\305N \"\207\307>\2030\207\310=\203%0\310	D\207\311=\203/0\311	D\207\312=\20390\313	D\207\314=\203C0\315	D\207\316=\203M0\317	D\207\320>\203W0\321	D\207\322!\323\n\324P!\325!\203m0	D\202t0\323\n\326P!	D*\207@\305N\203\2110\306	\327@\305NA\"\"\207@\330>\203\3750\331\332\333\306	@\"\211A@)\334>\203\2470\332\202\3070\211A@):\203\2760\335	\211A@)@E\202\3070\336	\211A@)E\211AA)@\337>\203\3270\332\202\3720\211AA)@:\203\3600\340	\211AA)@@E\202\3720\341	\211AA)@EF\"\207@\342>\203
@\343\344A\"B\207@\345>\203_\333\346	\347ADE\332E\207@\350=\203/\211A@)	D\207\351\352\"\207" . [type val name namep x cl-deftype-handler cl-make-type-test (nil t) null atom float floatp-safe real numberp fixnum integerp (character string-char) characterp symbol-name intern "p" fboundp "-p" apply (integer float real number) delq t and (* nil) > >= (* nil) < <= (and or not) mapcar #[(x) "\302	\"\207" [val x cl-make-type-test] 3] (member member*) member* quote satisfies error "Bad type spec: %s"])(#$ . 92231) nil 9])
#@80 Check that OBJECT is of type TYPE.
TYPE is a Common Lisp-style type specifier.
(defalias 'typep #[(object type) #@65 ("\301\302\303\"!\207" . [type eval cl-make-type-test object])(#$ . 93453) nil 4 (#$ . 93335)])
#@114 Verify that FORM is of type TYPE; signal an error if not.
STRING is an optional description of the desired type.
(defalias 'check-type '(macro . #[(form type &optional string) #@390 ("\306 \2030\307W\2040	\307U\205P0\310\n\307\"\2030\n\202_0\311\312!\313\314\f\"\315\316\317
\206/0\320\fD\320\nDFEE\n=\203F0\321\322E\202O0\323\nDC\322F*\207" . [cl-optimize-speed cl-optimize-safety form temp type string cl-compiling-file 3 cl-simple-expr-p make-symbol "--cl-var--" or cl-make-type-test signal 'wrong-type-argument list quote progn nil let body])(#$ . 93740) nil 9 (#$ . 93557)]))
#@317 Verify that FORM returns non-nil; signal an error if not.
Second arg SHOW-ARGS means to include arguments of FORM in message.
Other args STRING and ARGS... are arguments to be passed to `error'.
They are not evaluated unless the assertion fails.  If STRING is
omitted, a default message listing FORM itself is used.
(defalias 'assert '(macro . #[(form &optional show-args string &rest args) #@373 ("\306 \2030\307W\2040	\307U\205?0\n\2050\310\311\312\313A\"\"\314\315
\20310\316
\317\f\"BB\202;0\320\321\322\323D\fBBEE\311E)\207" . [cl-optimize-speed cl-optimize-safety show-args form sargs string cl-compiling-file 3 delq nil mapcar #[(x) "\301!?\2050\207" [x cl-const-expr-p] 2] progn or error append signal 'cl-assertion-failed list quote args])(#$ . 94568) nil 8 (#$ . 94170)]))
#@638 Define a compiler-only macro.
This is like `defmacro', but macro expansion occurs only if the call to
FUNC is compiled (i.e., not interpreted).  Compiler macros should be used
for optimizing the way calls to FUNC are compiled; the form returned by
BODY should do the same thing as a call to the normal function called
FUNC, though possibly more efficiently.  Note that, like regular macros,
compiler macros are expanded repeatedly until no further expansions are
possible.  Unlike regular macros, BODY can decide to "punt" and leave the
original function call alone by declaring an initial `&whole foo' parameter
and then returning foo.
(defalias 'define-compiler-macro '(macro . #[(func args &rest body) #@391 ("\305\n:\2030\n\211A@	B\2020	\237\n\2050\306\nD\244*\307\310\311\312\313>\20320\314\313\"\20250\315B\fB#\316\317\320D\321E\322\320D\323\324FEF\207" . [args res p func body nil &rest eval-when (compile load eval) cl-transform-function-property cl-compiler-macro &whole delq --cl-whole-arg-- or get quote 'byte-compile put 'byte-compile 'cl-byte-compile-compiler-macro])(#$ . 95693) nil 9 (#$ . 94981)]))
(defalias 'compiler-macroexpand #[(form) #@227 ("\242\303\2119\20300\n\304N\211\20400\305\n!\20300\nK\242\306=\203)0\307\nKA@!\20300\nK\211\2020	\205?0\310	\211A#\211=?*\20400\207" . [form handler func nil cl-compiler-macro fboundp autoload load apply])(#$ . 96165) nil 6])
(defalias 'cl-byte-compile-compiler-macro #[(form) #@119 ("\301!\211=\2030\302!\207\303!\207" . [form compiler-macroexpand byte-compile-normal-call byte-compile-form])(#$ . 96469) nil 3])
#@237 Define NAME as a function.
Like `defun', except the function is automatically declared `inline',
ARGLIST allows full Common Lisp conventions, and BODY is implicitly
surrounded by (block NAME ...).

(fn NAME ARGLIST [DOCSTRING] BODY...)
(defalias 'defsubst* '(macro . #[(name args &rest body) #@440 ("\306!\211\307B\310\f!?\n\203&0\311\n@\"\312=\203&0\n\211A@\210\2020\307\n?\205g0\313\314>\203?0\315\316\317BBB\202B0\317B\320\321	D\321\322BBD
\206V0\323\f	\"?\314>\205^0\316
	BBBBBBF\324BBBE,\207" . [args argns p body pbody unsafe cl-arglist-args progn cl-safe-expr-p cl-expr-contains 1 define-compiler-macro &key &whole cl-whole &cl-quote cl-defsubst-expand quote block cl-expr-access-order defun* name])(#$ . 96913) nil 12 (#$ . 96614)]))
(defalias 'cl-defsubst-expand #[(argns body simple whole unsafe &rest argvs) #@340 ("\2030\306\307	B!\2040\207\310	!\2030\311\312\313\314\315	#\"\211\203*0\316\f
E\202+0
)\207" . [whole argvs simple argns lets body cl-safe-expr-p progn cl-simple-exprs-p t delq nil mapcar* #[(argn argv) "\204\n0\305	!\2030\306	\n#\f\2050\n	D\207\n	D\207" [simple argv argn body unsafe cl-const-expr-p subst] 4] let])(#$ . 97471) nil 7])
(byte-code "\300\301\302\303#\210\300\301\304\305#\210\301\302N\204�\300\301\302\306#\210\300\307\304\310#\210\307\302N\204*�\300\307\302\306#\210\300\311\304\312#\210\311\302N\204<�\300\311\302\306#\210\300\313\304\314#\210\313\302N\204N�\300\313\302\306#\210\300\315\304\316#\210\315\302N\204`�\300\315\302\306#\210\300\317\304\320#\210\317\302N\204r�\300\317\302\306#\210\300\321\304\322#\210\321\302N\204\204�\300\321\302\306#\210\323\324\325\"\210\326\327!\210\323\330\331\"\210\323\332\333\"\210\334\335!\207" [put eql byte-compile nil cl-compiler-macro #[(form a b) "\304!\305=\203#�\306!\211\247\203�	\250\204�\307\nE\202!�\310\nE)\207\304\n!\305=\203F�\306\n!\211\247\203@�	\250\204@�\307\nE\202D�\310\nE)\207\311\312\"\203[�\313\314D\307\nE\310\nEF\207\315!\203v�\311\n\312\"\203v�\313\314\nD\307\nE\310\nEF\207\207" [a val b form cl-const-expr-p t cl-const-expr-val equal eq cl-simple-expr-p 5 if numberp cl-safe-expr-p] 7] cl-byte-compile-compiler-macro member* #[(form a list &rest keys) "G\305U\205�@\306=\205�\307A@!\211\310=\203!�\311\nE\202@�	\312=\203.�\313\nE\202@�\2038�	\314=\203?�\315\nE\202@�\f)\207" [keys test a list form 2 :test cl-const-expr-val eq memq equal member eql memql] 4 "Not documented\n\n(fn FORM A LIST &rest KEYS)"] assoc* #[(form a list &rest keys) "G\306U\205�@\307=\205�\310A@!\211\311=\203!�\312\nE\202_�	\313=\203.�\314\nE\202_�\315\n!\316=\203^�\203@�	\317=\203^�\310\n!\211\247\205L�\f\250?)\203W�\314\nE\202_�\312\nE\202_�
)\207" [keys test a list object form 2 :test cl-const-expr-val eq assq equal assoc cl-const-expr-p t eql] 4 "Not documented\n\n(fn FORM A LIST &rest KEYS)"] adjoin #[(form a list &rest keys) "\304!\203!�\304	!\203!�\305\n>\204!�\306\307	\nBBB	\310	EF\207\207" [a list keys form cl-simple-expr-p :key if member* cons] 6 "Not documented\n\n(fn FORM A LIST &rest KEYS)"] list* #[(--cl-whole-arg-- arg &rest others) "\304	B!\211@\nA\211\203�\305\n@E\202	�*\207" [arg others args form reverse cons] 4 "Not documented\n\n(fn --CL-WHOLE-ARG-- ARG &rest OTHERS)"] get* #[(--cl-whole-arg-- sym prop &optional def) "\203\f�\303\304	D\nF\207\305	\nE\207" [def sym prop getf symbol-plist get] 4] typep #[(form val type) "\305!\2032�\306	\307!\"\310\n	\"\311>\204�\312	!\203 �\n\2020�\313\314!\315	DC\316	\n#E))\207\f\207" [type val res temp form cl-const-expr-p cl-make-type-test cl-const-expr-val cl-expr-contains (nil 1) cl-simple-expr-p make-symbol "--cl-var--" let subst] 6] mapc #[(y) "\302@\303\304#\210\302@\305\306#\210\302@\307\310\311\211A@)9\2038�\312\313\211A@)D\312\313\211AA)@D\314BBE\202<�\312ABE#\207" [y x put side-effect-free t byte-compile cl-byte-compile-compiler-macro cl-compiler-macro lambda (w x) list quote (x)] 11] ((first 'car x) (second 'cadr x) (third 'caddr x) (fourth 'cadddr x) (fifth 'nth 4 x) (sixth 'nth 5 x) (seventh 'nth 6 x) (eighth 'nth 7 x) (ninth 'nth 8 x) (tenth 'nth 9 x) (rest 'cdr x) (endp 'null x) (plusp '> x 0) (minusp '< x 0) (caaar car caar) (caadr car cadr) (cadar car cdar) (caddr car cddr) (cdaar cdr caar) (cdadr cdr cadr) (cddar cdr cdar) (cdddr cdr cddr) (caaaar car caaar) (caaadr car caadr) (caadar car cadar) (caaddr car caddr) (cadaar car cdaar) (cadadr car cdadr) (caddar car cddar) (cadddr car cdddr) (cdaaar cdr caaar) (cdaadr cdr caadr) (cdadar cdr cadar) (cdaddr cdr caddr) (cddaar cdr cdaar) (cddadr cdr cdadr) (cdddar cdr cddar) (cddddr cdr cdddr)) proclaim (inline floatp-safe acons map concatenate notany notevery cl-set-elt revappend nreconc gethash) #[(x) "\301\302\303#\207" [x put side-effect-free t] 4] (oddp evenp signum last butlast ldiff pairlis gcd lcm isqrt floor* ceiling* truncate* round* mod* rem* subseq list-length get* getf) #[(x) "\301\302\303#\207" [x put side-effect-free error-free] 4] (eql floatp-safe list* subst acons equalp random-state-p copy-tree sublis) run-hooks cl-macs-load-hook] 4)

${this.title}

Code Editor : cl-macs.elc