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.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:02:54 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/emacs-lisp/cl.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.el' was compiled for Emacs 19.29 or later"))

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

(byte-code "\301B\302\301!\204�\303\301\304\"\210\305B\302\305!\204�\303\305\304\"\210\301\207" [current-load-list cl-optimize-speed default-boundp set-default 1 cl-optimize-safety] 3)
#@445 This is a list of functions that format user objects for printing.
Each function is called in turn with three arguments: the object, the
stream, and the print level (currently ignored).  If it is able to
print the object it returns true; otherwise it returns nil and the
printer proceeds to the next function on the list.

This variable is not used at present, but it is defined in hopes that
a future Emacs interpreter will be able to use it.
(defvar custom-print-functions nil (#$ . 840))
#@47 Stop unloading of the Common Lisp extensions.
(defalias 'cl-unload-function #[nil #@74 ("\300\301!\210\302\207" . [message "Cannot unload the feature `cl'" t])(#$ . 1425) nil 2 (#$ . 1337)])
#@160 Increment PLACE by X (1 by default).
PLACE may be a symbol, or any generalized variable allowed by `setf'.
The return value is the incremented value of PLACE.
(defalias 'incf '(macro . #[(place &optional x) #@110 ("9\2030\302	\2030\303	E\2020\304DE\207\305\303	\206_0\306F\207" . [place x setq + 1+ callf 1])(#$ . 1750) nil 5 (#$ . 1536)]))
#@160 Decrement PLACE by X (1 by default).
PLACE may be a symbol, or any generalized variable allowed by `setf'.
The return value is the decremented value of PLACE.
(defalias 'decf '(macro . #[(place &optional x) #@110 ("9\2030\302	\2030\303	E\2020\304DE\207\305\303	\206_0\306F\207" . [place x setq - 1- callf 1])(#$ . 2112) nil 5 (#$ . 1898)]))
#@271 Remove and return the head of the list stored in PLACE.
Analogous to (prog1 (car PLACE) (setf PLACE (cdr PLACE))), though more
careful about evaluating each argument only once and in the right order.
PLACE may be a symbol, or any generalized variable allowed by `setf'.
(defalias 'pop '(macro . #[(place) #@91 ("9\2030\301\302\303\304DEED\207\305!\207" . [place car prog1 setq cdr cl-do-pop])(#$ . 2571) nil 7 (#$ . 2260)]))
#@249 Insert X at the head of the list stored in PLACE.
Analogous to (setf PLACE (cons X PLACE)), though more careful about
evaluating each argument only once and in the right order.  PLACE may
be a symbol, or any generalized variable allowed by `setf'.
(defalias 'push '(macro . #[(x place) #@76 ("9\203
0\302\303	EE\207\304\303	F\207" . [place x setq cons callf2])(#$ . 2992) nil 5 (#$ . 2700)]))
#@256 (pushnew X PLACE): insert X at the head of the list if not already there.
Like (push X PLACE), except that the list is unmodified if X is `eql' to
an element already on the list.

Keywords supported:  :test :test-not :key

(fn X PLACE [KEYWORD VALUE]...)
(defalias 'pushnew '(macro . #[(x place &rest keys) #@176 ("9\203(0	\2040\303\302\nDC\304\305\302E\306\307\302EEFE\207\306\310\311\n	$E\207\310\312\311\n	%\207" . [place keys x let if memql setq cons list* adjoin callf2])(#$ . 3420) nil 10 (#$ . 3106)]))
(defalias 'cl-set-elt #[(seq n val) #@54 ("<\2030	\233\n\240\207	\nI\207" . [seq n val])(#$ . 3670) nil 3])
(defalias 'cl-set-nthcdr #[(n list x) #@62 ("\303X\2030	\207S\n\233	\241\210\n\207" . [n x list 0])(#$ . 3786) nil 2])
(put 'cl-set-nthcdr 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'cl-set-buffer-substring #[(start end val) #@55 ("\212	|\210b\210\nc\210\n)\207" . [start end val])(#$ . 3990) nil 2])
(defalias 'cl-set-substring #[(str start end val) #@138 ("\2030\304W\2030	G\\\2020	G\n\304W\203 0\n	G\\\n\304V\205*0	\304\nO	GW\20560	\305OQ\207" . [end str start val 0 nil])(#$ . 4120) nil 5])
(defalias 'cl-map-extents #[(&rest cl-args) #@55 ("\301\302\"\207" . [cl-args apply cl-map-overlays])(#$ . 4326) nil 3])
(byte-code "\300\301\302\"\210\300\303\304\"\207" [defalias cl-block-wrapper identity cl-block-throw throw] 3)
#@129 Return multiple values, Common Lisp style.
The arguments of `values' are the values
that the containing function should return.
(defalias 'values #[(&rest values) #@22 ("\207" . [values])(#$ . 4686) nil 1 (#$ . 4517)])
(put 'values 'byte-optimizer 'byte-compile-inline-expand)
#@141 Return multiple values, Common Lisp style, taken from a list.
LIST specifies the list of values
that the containing function should return.
(defalias 'values-list #[(list) #@20 ("\207" . [list])(#$ . 4981) nil 1 (#$ . 4803)])
(put 'values-list 'byte-optimizer 'byte-compile-inline-expand)
#@223 Return a list of the multiple values produced by EXPRESSION.
This handles multiple values in Common Lisp style, but it does not
work right when EXPRESSION calls an ordinary Emacs Lisp function
that returns just one value.
(defalias 'multiple-value-list #[(expression) #@26 ("\207" . [expression])(#$ . 5375) nil 1 (#$ . 5101)])
(put 'multiple-value-list 'byte-optimizer 'byte-compile-inline-expand)
#@233 Evaluate EXPRESSION to get multiple values and apply FUNCTION to them.
This handles multiple values in Common Lisp style, but it does not work
right when EXPRESSION calls an ordinary Emacs Lisp function that returns just
one value.
(defalias 'multiple-value-apply #[#'expression #@48 ("\302	\"\207" . [function expression apply])(#$ . 5794) nil 3 (#$ . 5509)])
(byte-code "\300\301\302\303#\210\304\305\306\307#\207" [put multiple-value-apply byte-optimizer byte-compile-inline-expand defalias multiple-value-call apply "Apply FUNCTION to ARGUMENTS, taking multiple values into account.\nThis implementation only handles the case where there is only one argument."] 4)
#@229 Evaluate EXPRESSION to get multiple values and return the Nth one.
This handles multiple values in Common Lisp style, but it does not work
right when EXPRESSION calls an ordinary Emacs Lisp function that returns just
one value.
(defalias 'nth-value #[(n expression) #@30 ("	8\207" . [n expression])(#$ . 6459) nil 2 (#$ . 6187)])
(byte-code "\301\302\303\304#\210\305B\306\305!\204�\307\305\310\"\210\311B\306\311!\204*�\307\311\312K\313\312\314\"\210\"\210\310\207" [current-load-list put nth-value byte-optimizer byte-compile-inline-expand cl-macro-environment default-boundp set-default nil cl-old-macroexpand macroexpand defalias cl-macroexpand] 6)
#@419 Return result of expanding macros at top level of FORM.
If FORM is not a macro call, it is returned unchanged.
Otherwise, the macro is expanded and the expansion is considered
in place of FORM.  When a non-macro-call results, it is returned.

The second optional arg ENVIRONMENT specifies an environment of macro
definitions to shadow the loaded ones for use in file byte-compilation.

(fn FORM &optional ENVIRONMENT)
(defalias 'cl-macroexpand #[(cl-macro &optional cl-env) #@153 ("\n\"\2119\203#0\305!\236A\203#0\305!\236\211A@)\2020)\207" . [cl-env cl-macro-environment cl-old-macroexpand cl-macro x symbol-name])(#$ . 7335) nil 4 (#$ . 6854)])
(byte-code "\301B\302\301!\204�\303\301\304\"\210\304\207" [current-load-list cl-compiling-file default-boundp set-default nil] 3)
(defalias 'cl-compiling-file #[nil #@149 ("\2060\301\302!\2050\303\302J!\2050\304\302J!\305\232\207" . [cl-compiling-file boundp outbuffer bufferp buffer-name " *Compiler Output*"])(#$ . 7694) nil 2])
(byte-code "\301B\302\301!\204�\303\301\304\"\210\304\207" [current-load-list cl-proclaims-deferred default-boundp set-default nil] 3)
(defalias 'proclaim #[(spec) #@116 ("\302\303!\2030\303\304\"\210\2020	B\305\207" . [spec cl-proclaims-deferred fboundp cl-do-proclaim t nil])(#$ . 8035) nil 3])
(defalias 'declaim '(macro . #[(&rest specs) #@190 ("\302\303\"\304 \2030\305\306\307	#\2020\310	B)\207" . [specs body mapcar #[(x) "\301\302DD\207" [x proclaim quote] 3] cl-compiling-file list* eval-when (compile load eval) progn])(#$ . 8221) nil 4]))
(defalias 'cl-random-time #[nil #@126 ("\303\304 !\211G\305	S\211\305Y\2030\n\306_	H\\\202\n0\n+\207" . [time i v copy-sequence current-time-string 0 3])(#$ . 8469) nil 4])
(byte-code "\301B\302\301!\204�\303\301\304\305 \306\"\307_\"\210\301\207" [current-load-list *gensym-counter* default-boundp set-default logand cl-random-time 1023 100] 5)
#@134 Return t if OBJECT is a floating point number.
On Emacs versions that lack floating-point support, this function
always returns nil.
(defalias 'floatp-safe #[(object) #@39 ("\247\2050\250?\207" . [object])(#$ . 8969) nil 1 (#$ . 8796)])
#@33 Return t if NUMBER is positive.
(defalias 'plusp #[(number) #@29 ("\301V\207" . [number 0])(#$ . 9110) nil 2 (#$ . 9044)])
#@33 Return t if NUMBER is negative.
(defalias 'minusp #[(number) #@29 ("\301W\207" . [number 0])(#$ . 9242) nil 2 (#$ . 9175)])
#@29 Return t if INTEGER is odd.
(defalias 'oddp #[(integer) #@47 ("\301\302\"\302=\207" . [integer logand 1])(#$ . 9369) nil 3 (#$ . 9307)])
#@30 Return t if INTEGER is even.
(defalias 'evenp #[(integer) #@49 ("\301\302\"\303=\207" . [integer logand 1 0])(#$ . 9516) nil 3 (#$ . 9452)])
(byte-code "\301B\302\301!\204�\303\301\304\305\306\307\310 $\"\210\311B\312\313!\210\314B\315\313!\210\316B\317\313!\210\320B\321\313!\210\322B\323\313!\210\324B\325\313!\210\326B\327\313!\210\330B\331\313!\210\332\333\334\"\207" [current-load-list *random-state* default-boundp set-default vector cl-random-state-tag -1 30 cl-random-time most-positive-float (lambda (#1=#:defconst-tmp-var) (defconst most-positive-float #1#)) nil most-negative-float (lambda (#2=#:defconst-tmp-var) (defconst most-negative-float #2#)) least-positive-float (lambda (#3=#:defconst-tmp-var) (defconst least-positive-float #3#)) least-negative-float (lambda (#4=#:defconst-tmp-var) (defconst least-negative-float #4#)) least-positive-normalized-float (lambda (#5=#:defconst-tmp-var) (defconst least-positive-normalized-float #5#)) least-negative-normalized-float (lambda (#6=#:defconst-tmp-var) (defconst least-negative-normalized-float #6#)) float-epsilon (lambda (#7=#:defconst-tmp-var) (defconst float-epsilon #7#)) float-negative-epsilon (lambda (#8=#:defconst-tmp-var) (defconst float-negative-epsilon #8#)) defalias copy-seq copy-sequence] 7)
#@364 Apply FUNCTION to each element of SEQ, and make a list of the results.
If there are several SEQs, FUNCTION is called with that many arguments,
and mapping stops as soon as the shortest list runs out.  With just one
SEQ, this is like `mapcar'.  With several, it is like the Common Lisp
`mapcar' function extended to arbitrary sequence types.

(fn FUNCTION SEQ...)
(defalias 'mapcar* #[(cl-func cl-x &rest cl-rest) #@199 ("\203>0A\2040	<\2030@<\2040\305\n	B\"\207\306@	\203:0\203:0\n	\211A@\211A@\"\fB\202 0\f\237*\207\307\n	\"\207" . [cl-rest cl-x cl-func cl-y cl-res cl-mapcar-many nil mapcar])(#$ . 11171) nil 4 (#$ . 10751)])
(byte-code "\300\301\302\"\210\300\303\304\"\210\300\305\306\"\210\300\307\310\"\210\300\311\312\"\207" [defalias svref aref first car second cadr rest cdr endp null] 3)
#@41 Return the third element of the list X.
(defalias 'third #[(x) #@20 ("AA@\207" . [x])(#$ . 11647) nil 1 (#$ . 11578)])
#@42 Return the fourth element of the list X.
(defalias 'fourth #[(x) #@24 ("\3018\207" . [x 3])(#$ . 11776) nil 2 (#$ . 11705)])
#@41 Return the fifth element of the list X.
(defalias 'fifth #[(x) #@24 ("\3018\207" . [x 4])(#$ . 11907) nil 2 (#$ . 11838)])
#@41 Return the sixth element of the list X.
(defalias 'sixth #[(x) #@24 ("\3018\207" . [x 5])(#$ . 12038) nil 2 (#$ . 11969)])
#@43 Return the seventh element of the list X.
(defalias 'seventh #[(x) #@24 ("\3018\207" . [x 6])(#$ . 12173) nil 2 (#$ . 12100)])
#@42 Return the eighth element of the list X.
(defalias 'eighth #[(x) #@24 ("\3018\207" . [x 7])(#$ . 12306) nil 2 (#$ . 12235)])
#@41 Return the ninth element of the list X.
(defalias 'ninth #[(x) #@24 ("\3018\207" . [x 8])(#$ . 12437) nil 2 (#$ . 12368)])
#@41 Return the tenth element of the list X.
(defalias 'tenth #[(x) #@24 ("\3018\207" . [x 9])(#$ . 12568) nil 2 (#$ . 12499)])
#@50 Return the `car' of the `car' of the `car' of X.
(defalias 'caaar #[(x) #@20 ("@@@\207" . [x])(#$ . 12708) nil 1 (#$ . 12630)])
#@50 Return the `car' of the `car' of the `cdr' of X.
(defalias 'caadr #[(x) #@20 ("A@@\207" . [x])(#$ . 12844) nil 1 (#$ . 12766)])
#@50 Return the `car' of the `cdr' of the `car' of X.
(defalias 'cadar #[(x) #@20 ("@A@\207" . [x])(#$ . 12980) nil 1 (#$ . 12902)])
#@50 Return the `car' of the `cdr' of the `cdr' of X.
(defalias 'caddr #[(x) #@20 ("AA@\207" . [x])(#$ . 13116) nil 1 (#$ . 13038)])
#@50 Return the `cdr' of the `car' of the `car' of X.
(defalias 'cdaar #[(x) #@20 ("@@A\207" . [x])(#$ . 13252) nil 1 (#$ . 13174)])
#@50 Return the `cdr' of the `car' of the `cdr' of X.
(defalias 'cdadr #[(x) #@20 ("A@A\207" . [x])(#$ . 13388) nil 1 (#$ . 13310)])
#@50 Return the `cdr' of the `cdr' of the `car' of X.
(defalias 'cddar #[(x) #@20 ("@AA\207" . [x])(#$ . 13524) nil 1 (#$ . 13446)])
#@50 Return the `cdr' of the `cdr' of the `cdr' of X.
(defalias 'cdddr #[(x) #@20 ("AAA\207" . [x])(#$ . 13660) nil 1 (#$ . 13582)])
#@63 Return the `car' of the `car' of the `car' of the `car' of X.
(defalias 'caaaar #[(x) #@21 ("@@@@\207" . [x])(#$ . 13810) nil 1 (#$ . 13718)])
#@63 Return the `car' of the `car' of the `car' of the `cdr' of X.
(defalias 'caaadr #[(x) #@21 ("A@@@\207" . [x])(#$ . 13961) nil 1 (#$ . 13869)])
#@63 Return the `car' of the `car' of the `cdr' of the `car' of X.
(defalias 'caadar #[(x) #@21 ("@A@@\207" . [x])(#$ . 14112) nil 1 (#$ . 14020)])
#@63 Return the `car' of the `car' of the `cdr' of the `cdr' of X.
(defalias 'caaddr #[(x) #@21 ("AA@@\207" . [x])(#$ . 14263) nil 1 (#$ . 14171)])
#@63 Return the `car' of the `cdr' of the `car' of the `car' of X.
(defalias 'cadaar #[(x) #@21 ("@@A@\207" . [x])(#$ . 14414) nil 1 (#$ . 14322)])
#@63 Return the `car' of the `cdr' of the `car' of the `cdr' of X.
(defalias 'cadadr #[(x) #@21 ("A@A@\207" . [x])(#$ . 14565) nil 1 (#$ . 14473)])
#@63 Return the `car' of the `cdr' of the `cdr' of the `car' of X.
(defalias 'caddar #[(x) #@21 ("@AA@\207" . [x])(#$ . 14716) nil 1 (#$ . 14624)])
#@63 Return the `car' of the `cdr' of the `cdr' of the `cdr' of X.
(defalias 'cadddr #[(x) #@21 ("AAA@\207" . [x])(#$ . 14867) nil 1 (#$ . 14775)])
#@63 Return the `cdr' of the `car' of the `car' of the `car' of X.
(defalias 'cdaaar #[(x) #@21 ("@@@A\207" . [x])(#$ . 15018) nil 1 (#$ . 14926)])
#@63 Return the `cdr' of the `car' of the `car' of the `cdr' of X.
(defalias 'cdaadr #[(x) #@21 ("A@@A\207" . [x])(#$ . 15169) nil 1 (#$ . 15077)])
#@63 Return the `cdr' of the `car' of the `cdr' of the `car' of X.
(defalias 'cdadar #[(x) #@21 ("@A@A\207" . [x])(#$ . 15320) nil 1 (#$ . 15228)])
#@63 Return the `cdr' of the `car' of the `cdr' of the `cdr' of X.
(defalias 'cdaddr #[(x) #@21 ("AA@A\207" . [x])(#$ . 15471) nil 1 (#$ . 15379)])
#@63 Return the `cdr' of the `cdr' of the `car' of the `car' of X.
(defalias 'cddaar #[(x) #@21 ("@@AA\207" . [x])(#$ . 15622) nil 1 (#$ . 15530)])
#@63 Return the `cdr' of the `cdr' of the `car' of the `cdr' of X.
(defalias 'cddadr #[(x) #@21 ("A@AA\207" . [x])(#$ . 15773) nil 1 (#$ . 15681)])
#@63 Return the `cdr' of the `cdr' of the `cdr' of the `car' of X.
(defalias 'cdddar #[(x) #@21 ("@AAA\207" . [x])(#$ . 15924) nil 1 (#$ . 15832)])
#@63 Return the `cdr' of the `cdr' of the `cdr' of the `cdr' of X.
(defalias 'cddddr #[(x) #@21 ("AAAA\207" . [x])(#$ . 16075) nil 1 (#$ . 15983)])
#@190 Return a new list with specified ARGs as elements, consed to last ARG.
Thus, `(list* A B C D)' is equivalent to `(nconc (list A B C) D)', or to
`(cons A (cons B (cons C D)))'.

(fn ARG...)
(defalias 'list* #[(arg &rest rest) #@126 ("\2040	\207A\2040	@B\207G\305!\n\306Z\233\211\211A@\241\210	+B\207" . [rest arg n copy last copy-sequence 2])(#$ . 16367) nil 3 (#$ . 16135)])
#@54 Return a copy of LIST with the tail SUBLIST removed.
(defalias 'ldiff #[(list sublist) #@84 ("\303	:\2030	\n=\2040	\211A@B\2020\237)\207" . [res list sublist nil])(#$ . 16624) nil 2 (#$ . 16531)])
#@121 Return a copy of LIST, which may be a dotted list.
The elements of LIST are not copied, just the list structure itself.
(defalias 'copy-list #[(list) #@91 (":\203_0\302:\2030\211A@	B\2020	\237	\241\210)\207@\207" . [list res nil])(#$ . 16903) nil 3 (#$ . 16747)])
(defalias 'cl-maclisp-member #[(item list) #@61 ("\2030	@\232\2040A\211\2040\207" . [list item])(#$ . 17075) nil 3])
(byte-code "\300\301\302\"\210\300\303\304\"\210\300\305\306\"\210\300\307\310\"\210\300\311\312\"\210\300\313\314\"\207" [defalias cl-member memq cl-floor floor* cl-ceiling ceiling* cl-truncate truncate* cl-round round* cl-mod mod*] 3)
#@188 Return ITEM consed onto the front of LIST only if it's not already there.
Otherwise, return LIST unmodified.

Keywords supported:  :test :test-not :key

(fn ITEM LIST [KEYWORD VALUE]...)
(defalias 'adjoin #[(cl-item cl-list &rest cl-keys) #@205 ("\303\232\2040\2040	\247\2040	\n>\2030\n\207	\nB\207\304\232\204%0\20410	\n\235\203-0\n\207	\nB\207\305\306	\n$\207" . [cl-keys cl-item cl-list (:test eq) (:test equal) apply cl-adjoin])(#$ . 17645) nil 5 (#$ . 17399)])
#@215 Substitute NEW for OLD everywhere in TREE (non-destructively).
Return a copy of TREE with all elements `eql' to OLD replaced by NEW.

Keywords supported:  :test :test-not :key

(fn NEW OLD TREE [KEYWORD VALUE]...)
(defalias 'subst #[(cl-new cl-old cl-tree &rest cl-keys) #@130 ("\2040	\247\2030	\250\2040\304\305	\nBC$\207\306\n	#\207" . [cl-keys cl-old cl-new cl-tree apply sublis cl-do-subst])(#$ . 18167) nil 5 (#$ . 17889)])
(defalias 'cl-do-subst #[(cl-new cl-old cl-tree) #@142 ("	=\2030\n\207:\20320\305\n	@#\305\n	A#\211@=\203-0A=\203-0\20200\fB*\207\207" . [cl-tree cl-old cl-new d a cl-do-subst])(#$ . 18385) nil 6])
#@94 Add KEY and VALUE to ALIST.
Return a new list with (cons KEY VALUE) as car and ALIST as cdr.
(defalias 'acons #[(key value alist) #@36 ("	B\nB\207" . [key value alist])(#$ . 18688) nil 2 (#$ . 18552)])
#@219 Make an alist from KEYS and VALUES.
Return a new alist composed by associating KEYS to corresponding VALUES;
the process stops as soon as KEYS or VALUES run out.
If ALIST is non-nil, the new pairs are prepended to it.
(defalias 'pairlis #[(keys values &optional alist) #@62 ("\303\304	#\n\244\207" . [keys values alist mapcar* cons])(#$ . 19038) nil 4 (#$ . 18763)])
(byte-code "\304\305\211\203D�	@\211@\305\211\203<�	@\306\n\307A@#\210\306\n\310A@#\210\n\311N\2045�\306\n\311\3128#\210	A\211\204�*	A\211\204�*\313\314!\210\313\315!\210\313\316!\210\317\320\305\321#\210\322\323!\210\322\324!\210\325B\326\325!\204n�\327\325\305\"\210\305\207" [entry --dolist-tail-- func current-load-list (((defun* defmacro*) 2) ((function*) nil (&or symbolp ([&optional 'macro] 'lambda (&rest sexp) &rest form))) ((eval-when) 1 (sexp &rest form)) ((declare) nil (&rest sexp)) ((the) 1 (sexp &rest form)) ((case ecase typecase etypecase) 1 (form &rest (sexp &rest form))) ((block return-from) 1 (sexp &rest form)) ((return) nil (&optional form)) ((do do*) 2 ((&rest &or symbolp (symbolp &optional form form)) (form &rest form) &rest form)) ((do-symbols) 1 ((symbolp form &optional form form) &rest form)) ((do-all-symbols) 1 ((symbolp form &optional form) &rest form)) ((psetq setf psetf) nil edebug-setq-form) ((progv) 2 (&rest form)) ((flet labels macrolet) 1 ((&rest (sexp sexp &rest form)) &rest form)) ((symbol-macrolet lexical-let lexical-let*) 1 ((&rest &or symbolp (symbolp form)) &rest form)) ((multiple-value-bind) 2 ((&rest symbolp) &rest form)) ((multiple-value-setq) 1 ((&rest symbolp) &rest form)) ((incf decf remf pushnew shiftf rotatef) nil (&rest form)) ((letf letf*) 1 ((&rest (&rest form)) &rest form)) ((callf destructuring-bind) 2 (sexp form &rest form)) ((callf2) 3 (sexp form form &rest form)) ((loop) nil (&rest &or symbolp form)) ((ignore-errors) 0 (&rest form))) nil put lisp-indent-function lisp-indent-hook edebug-form-spec 2 fmakunbound dolist dotimes declare load "cl-loaddefs" quiet provide cl-19 cl cl-hacked-flag default-boundp set-default] 6)
(defalias 'cl-hack-byte-compiler #[nil #@173 ("?\2050\301\302!\2050\303\304\305\306\303#\210\307\310!\207" . [cl-hacked-flag fboundp byte-compile-file-form t load "cl-macs" nil run-hooks cl-hack-bytecomp-hook])(#$ . 20889) nil 4])
(byte-code "\300 \210\301\302\300\"\210\303\304!\210\305\306!\207" [cl-hack-byte-compiler add-hook bytecomp-load-hook provide cl run-hooks cl-load-hook] 3)

${this.title}

Code Editor : cl.elc