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-extra.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-extra.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-extra.el' was compiled for Emacs 19.29 or later"))

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

(require 'cl)
#@85 Coerce OBJECT to type TYPE.
TYPE is a Common Lisp type specifier.

(fn OBJECT TYPE)
(defalias 'coerce #[(x type) #@464 ("\302=\2030	<\203
0	\207\303	\304\"\207\305=\203$0\306	!\203 0	\207\307	!\207\310=\20350	;\20310	\207	\260\207\311=\203G0\312	!\203C0	\207\307	!\207\313=\203]0	;\203]0	G\314U\203]0	\315H\207\313=\203o0	9\203o0\316\317	!\"\207\320=\203y0\320	!\207\321	\"\203\2020	\207\322\323	#\207" . [type x list append nil vector vectorp vconcat string array arrayp character 1 0 coerce symbol-name float typep error "Can't coerce %s to type %s"])(#$ . 794) nil 4 (#$ . 674)])
#@225 Return t if two Lisp objects have similar structures and contents.
This is like `equal', except that it accepts numerically equal
numbers of different types (float vs. integer), and also compares
strings case-insensitively.
(defalias 'equalp #[(x y) #@352 ("	=\2030\303\207;\203&0	;\205\2230G	GU\205\2230	\230\206%0\227	\227\230\207\247\20340	\247\205\2230	U\207:\203`0:\203U0	:\203U0\304@	@\"\203U0A	A\20290:?\205\2230\304	\"\207\305!\203\2200\305	!\205\2230G	GU\205\2230G\nS\211\306Y\203\2130\304\nH	\nH\"\204w0\n\306W)\207	\232\207" . [x y i t equalp vectorp 0])(#$ . 1550) nil 4 (#$ . 1293)])
(defalias 'cl-mapcar-many #[(cl-func cl-seqs) #@460 ("AA\203g0\306\307\310\311\312\"\"\313\314!\306\211\314!\nW\203b0\f
\203S0
@:\203B0
@@
\211@A\240\210\202F0
@H\240\210
AA\202*0\307\f\"	BT\211\202 0	\237.\207\306@A@GG^\315T\211\nW\203\2660:\203\2270\211A@\202\2330H:\203\2530\211A@\202\2570H\"	B\202|0*	\237+\207" . [cl-seqs cl-res cl-n cl-i cl-args cl-p1 nil apply min mapcar length 0 copy-sequence -1 cl-p2 cl-func cl-y cl-x])(#$ . 1985) nil 6])
#@137 Map a FUNCTION across one or more SEQUENCEs, returning a sequence.
TYPE is the sequence type to return.

(fn TYPE FUNCTION SEQUENCE...)
(defalias 'map #[(cl-type cl-func cl-seq &rest cl-rest) #@106 ("\305\306	\n$\f\2050\307\f\")\207" . [cl-func cl-seq cl-rest cl-res cl-type apply mapcar* coerce])(#$ . 2669) nil 5 (#$ . 2470)])
#@166 Map FUNCTION to each sublist of LIST or LISTs.
Like `mapcar', except applies to lists and their cdr's rather than to
the elements themselves.

(fn FUNCTION LIST...)
(defalias 'maplist #[(cl-func cl-list &rest cl-rest) #@226 ("\20310\306	\307!B\306\306>\204-0\310
\"\fB\n\2030\n\211\211A@A\240\210\2020\f\237+\207\306	\203D0
	!\fB	A\211\20470\f\237)\207" . [cl-rest cl-list cl-p cl-args cl-res cl-func nil copy-sequence apply])(#$ . 3037) nil 5 (#$ . 2812)])
#@100 Like `mapcar', but does not accumulate values returned by the function.

(fn FUNCTION SEQUENCE...)
(defalias 'cl-mapc #[(cl-func cl-seq &rest cl-rest) #@100 ("\2030\303\304\305	\n%\210\n\207\306	\n\"\207" . [cl-rest cl-func cl-seq apply map nil mapc])(#$ . 3458) nil 6 (#$ . 3300)])
#@97 Like `maplist', but does not accumulate values returned by the function.

(fn FUNCTION LIST...)
(defalias 'mapl #[(cl-func cl-list &rest cl-rest) #@128 ("\2030\304\305	\n$\210\202 0\n\211\203_0	!\210A\211\2040)\n\207" . [cl-rest cl-func cl-list cl-p apply maplist])(#$ . 3747) nil 6 (#$ . 3594)])
#@101 Like `mapcar', but nconc's together the values returned by the function.

(fn FUNCTION SEQUENCE...)
(defalias 'mapcan #[(cl-func cl-seq &rest cl-rest) #@80 ("\303\304\303\305	\n$\"\207" . [cl-func cl-seq cl-rest apply nconc mapcar*])(#$ . 4069) nil 7 (#$ . 3912)])
#@98 Like `maplist', but nconc's together the values returned by the function.

(fn FUNCTION LIST...)
(defalias 'mapcon #[(cl-func cl-list &rest cl-rest) #@81 ("\303\304\303\305	\n$\"\207" . [cl-func cl-list cl-rest apply nconc maplist])(#$ . 4340) nil 7 (#$ . 4185)])
#@150 Return true if PREDICATE is true of any element of SEQ or SEQs.
If so, return the true (non-nil) value returned by PREDICATE.

(fn PREDICATE SEQ...)
(defalias 'some #[(cl-pred cl-seq &rest cl-rest) #@305 ("\204	0	<\204
0\304\305\215\207\306	\203_0	\211A@!\211\2030\n)\207" . [cl-rest cl-seq cl-x cl-pred cl-some (byte-code "\302\303\304\305	%\210\304\207" [cl-seq cl-rest apply map nil #[(&rest cl-x) "\303	\"\211\205
0\304\305\n\")\207" [cl-pred cl-x cl-res apply throw cl-some] 4]] 6) nil])(#$ . 4663) nil 3 (#$ . 4458)])
#@90 Return true if PREDICATE is true of every element of SEQ or SEQs.

(fn PREDICATE SEQ...)
(defalias 'every #[(cl-pred cl-seq &rest cl-rest) #@292 ("\204	0	<\204
0\303\304\215\207	\203_0\n	@!\203_0	A\211\2040	?\207" . [cl-rest cl-seq cl-pred cl-every (byte-code "\302\303\304\305	%\210\306\207" [cl-seq cl-rest apply map nil #[(&rest cl-x) "\302	\"\2060\303\304\305\"\207" [cl-pred cl-x apply throw cl-every nil] 3] t] 6)])(#$ . 5150) nil 3 (#$ . 5004)])
#@91 Return true if PREDICATE is false of every element of SEQ or SEQs.

(fn PREDICATE SEQ...)
(defalias 'notany #[(cl-pred cl-seq &rest cl-rest) #@62 ("\303\304	\n$?\207" . [cl-pred cl-seq cl-rest apply some])(#$ . 5625) nil 5 (#$ . 5478)])
#@90 Return true if PREDICATE is false of some element of SEQ or SEQs.

(fn PREDICATE SEQ...)
(defalias 'notevery #[(cl-pred cl-seq &rest cl-rest) #@63 ("\303\304	\n$?\207" . [cl-pred cl-seq cl-rest apply every])(#$ . 5871) nil 5 (#$ . 5723)])
(defalias 'cl-map-keymap 'map-keymap)
(defalias 'cl-map-keymap-recursively #[(cl-func-rec cl-map &optional cl-base) #@254 ("\2040\302\303!\304\305	\"\207" . [cl-base cl-map copy-sequence [0] map-keymap #[(cl-key cl-bind) "\211GS	I\210\304\n!\2030\305\n\306\307C\"#\207\n\"\207" [cl-base cl-key cl-bind cl-func-rec keymapp cl-map-keymap-recursively vconcat 0] 6]])(#$ . 6087) nil 3])
(defalias 'cl-map-intervals #[(cl-func &optional cl-what cl-prop cl-start cl-end) #@578 ("\2040p\306!\203\2000\307\211\310\307rq\210\311
\2060e!\205)0\311!)\n\203q0\20390\fW\203q0\203G0\312\f#\202K0\313\f\"\211\206V0rq\210d)\314\f!\f	\307\223\210\203k0	^\202l0	\"\210\202+0\f\307\211\223\210\205~0\307\211\223,\207
\204\2060\315\204\2170G
W\205\2750\203\2440\312
#\202\2500\313
\"\206\2550
\n^\"\210\n)\202\2170\207" . [cl-what cl-next2 cl-next cl-mark2 cl-mark cl-start bufferp nil t copy-marker next-single-property-change next-property-change marker-position 0 cl-end cl-prop cl-func])(#$ . 6448) nil 6])
(defalias 'cl-map-overlays #[(cl-func &optional cl-buffer cl-start cl-end cl-arg) #@742 ("\2040p\306\307!\203s0\310rq\210\307 \n\2030\311\n!\203%0\311!)	@	A\244\211\203`0\312	@!\203Y0\203D0\312	@!Y\204Y0\n\203Q0\313	@!\nX\204Y0\f	@
\"\204`0	A\211\20400\n\203i0\n\310\211\223\210\205q0\310\211\223)\207rq\210\311\n\206}0e!)\205\2130rq\210\311!)\310\211\212\314!\211\205\2730\206\2470dW\205\2730q\210\315!\316!\310\223)\203\3470	\203\2240\312	@!U\203\3350\f	@
\"\203\3350\310\211\223\204\2240	A\211\204\3030\202\2240\310\211\223\210\205\3670\310\211\223,\207" . [cl-buffer cl-ovl cl-start cl-end cl-func cl-arg fboundp overlay-lists nil copy-marker overlay-start overlay-end marker-position overlays-at next-overlay-change cl-pos cl-mark2 cl-mark])(#$ . 7133) nil 5])
(defalias 'cl-set-frame-visible-p #[(frame val) #@149 ("\2040\302	!\210\2020\303=\2030\304	!\210\2020\305	!\210\207" . [val frame make-frame-invisible icon iconify-frame make-frame-visible])(#$ . 7948) nil 2])
(defalias 'cl-progv-before #[(syms values) #@162 ("\20570\303@!\2030@@JB\2020@	B\n\203,0\211A@\n\211A@L\210\20200\304\211A@!\210\20200\207" . [syms cl-progv-save values boundp makunbound])(#$ . 8165) nil 3])
(defalias 'cl-progv-after #[nil #@106 ("\205#0@:\2030@@@AL\210\2020\301@!\210\211A@\210\20200\207" . [cl-progv-save makunbound])(#$ . 8384) nil 2])
#@54 Return the greatest common divisor of the arguments.
(defalias 'gcd #[(&rest args) #@128 ("\303\211A@\206\n0\304!\203,0\303\211A@!\211\304V\203(0	\n\211\246\211\2020)\202\f0	)\207" . [args a b abs 0])(#$ . 8604) nil 4 (#$ . 8514)])
#@52 Return the least common multiple of the arguments.
(defalias 'lcm #[(&rest args) #@131 ("\303>\2030\303\207\304\211A@\2060\305!\203-0\304\211A@!	\306	\n\"\245\n_)\2020	)\207" . [args a b 0 abs 1 gcd])(#$ . 8856) nil 4 (#$ . 8768)])
#@49 Return the integer square root of the argument.
(defalias 'isqrt #[(x) #@270 ("\250\203D0\303V\203D0\304X\2030\305\202*0\306X\203_0\304\202*0\307X\203)0\310\202*0\311\211\n\245\\\312\245\211\nW\203A0	\211\202.0\n*\207\303=\203L0\303\207\313\314\311\"\207" . [x g2 g 0 100 10 10000 1000000 1000 nil 2 signal arith-error])(#$ . 9101) nil 4 (#$ . 9023)])
#@129 Return a list of the floor of X and the fractional part of X.
With two arguments, return floor and remainder of their quotient.
(defalias 'floor* #[(x &optional y) #@64 ("\303	\"\211	\2030	\n_\2020\nZ)D\207" . [x y q floor])(#$ . 9578) nil 5 (#$ . 9408)])
#@133 Return a list of the ceiling of X and the fractional part of X.
With two arguments, return ceiling and remainder of their quotient.
(defalias 'ceiling* #[(x &optional y) #@92 ("\303	\"\211A@\304U\2030\n\2020\n@T\nA@	\2060\305ZD)\207" . [x y res floor* 0 1])(#$ . 9855) nil 4 (#$ . 9679)])
#@141 Return a list of the integer part of X and the fractional part of X.
With two arguments, return truncation and remainder of their quotient.
(defalias 'truncate* #[(x &optional y) #@85 ("\302Y	?\2060	\302Y=\2030\303	\"\207\304	\"\207" . [x y 0 floor* ceiling*])(#$ . 10169) nil 3 (#$ . 9984)])
#@139 Return a list of X rounded to the nearest integer and the remainder.
With two arguments, return rounding and remainder of their quotient.
(defalias 'round* #[(x &optional y) #@251 ("\203S0	\250\203D0\250\203D0\305\245\306	\n\\\"\211A@\307U\203:0\n\211\\U\203:0@\305\246\307U\204:0@S\nD\202B0@A@\nZD*\207\310	\245!\211	\f_Z)D\207	\250\203\\0	\307D\207\310	!\211	\fZ)D\207" . [y x hy res q 2 floor* 0 round])(#$ . 10473) nil 5 (#$ . 10292)])
#@59 The remainder of X divided by Y, with the same sign as Y.
(defalias 'mod* #[(x y) #@35 ("\302	\"A@\207" . [x y floor*])(#$ . 10850) nil 3 (#$ . 10762)])
#@59 The remainder of X divided by Y, with the same sign as X.
(defalias 'rem* #[(x y) #@38 ("\302	\"A@\207" . [x y truncate*])(#$ . 11011) nil 3 (#$ . 10923)])
#@55 Return 1 if X is positive, -1 if negative, 0 if zero.
(defalias 'signum #[(x) #@69 ("\301V\2030\302\207\301W\2030\303\207\301\207" . [x 0 1 -1])(#$ . 11171) nil 2 (#$ . 11087)])
#@124 Return a random nonnegative number less than LIM, an integer or float.
Optional second arg STATE is a random-state object.
(defalias 'random* #[(lim &optional state) #@652 ("\2040	\306H\211\250\203V0\307\310\311\n!\312\246Z\313\306\314\315\316\"\211I\210\n\307\fI\210
\317\\\315\246\211\307V\203D0\n
\fZ\211I\210\202*0
T\211\320W\203U0\321\322\"\210\202D0+\313\313HT\315\246I\322\322HT\315\246I\323\n
\n
H\n\fHZI\324\"\250\203\3240\325X\203\2160\246\202\3330\324V\203\2410\326\327\"\321\325\"\\\330\211SW\203\2670\211\\T\211\202\2450\323\"\211W\203\3130\202\3200\321\")\202\3330\331\245_,\207" . [state *random-state* vec k j i 3 0 1357335 abs 1357333 1 make-vector 55 nil 21 200 random* 2 logand 8388607 512 lsh 9 1023 8388608.0 n lim mask])(#$ . 11452) nil 7 (#$ . 11279)])
#@143 Return a copy of random-state STATE, or of `*random-state*' if omitted.
If STATE is t, return a new state object seeded from the time of day.
(defalias 'make-random-state #[(&optional state) #@215 ("\2040\302	!\207\303!\2030\304\305\"\207\250\203_0\306\307\310\311$\207\302\312 !\207" . [state *random-state* make-random-state vectorp cl-copy-tree t vector cl-random-state-tag -1 30 cl-random-time])(#$ . 12341) nil 5 (#$ . 12143)])
#@46 Return t if OBJECT is a random-state object.
(defalias 'random-state-p #[(object) #@91 ("\301!\2050G\302U\2050\303H\304=\207" . [object vectorp 4 0 cl-random-state-tag])(#$ . 12682) nil 2 (#$ . 12594)])
(defalias 'cl-finite-do #[(func a b) #@134 ("\300\301\302\217\207" . [err (byte-code "	\n\"\211\247\2050\211\304\245U?\2050)\207" [func a b res 2] 4) ((arith-error))])(#$ . 12849) nil 3])
(defalias 'cl-float-limits #[nil #@920 ("\204\3220\306\247\203\3220\307\310\211\311\312\211#\2030\211_\2020\311\312\211\313\245#\20310\211\313\245_\2020\311\314\211#\203@0\211\\\20210\313\245\311\314\n#\203a0\n\\U\204a0\n\\\n\313\245\202F0[	\245\315	\245\n_\316\317\320\217\203\2040\313\245\n\313\245\202r0\n\n[\321	\245\211\316\322\323\217\203\2360\313\245\202\2200[\324\325\\\326U\204\2660\313\245\202\2470\313_\327\330Z\331U\204\3140\313\245\202\2750\313_+\310\207" . [most-positive-float z y x most-negative-float least-positive-normalized-float 20.0 2.0 nil cl-finite-do * 2 + 16 err (byte-code "\211\302\245\302_U\2050	\302\245\303V\207" [x y 2 0] 3) ((arith-error)) 1 (byte-code "\301\245\302V\207" [x 2 0] 2) ((arith-error)) 1.0 1.0 1.0 1.0 1.0 1.0 least-negative-normalized-float least-positive-float least-negative-float float-epsilon float-negative-epsilon])(#$ . 13042) nil 6])
#@165 Return the subsequence of SEQ from START to END.
If END is omitted, it defaults to the length of the sequence.
If START or END is negative, it counts from the end.
(defalias 'subseq #[(seq start &optional end) #@364 (";\203\n0	\nO\207\306\n\2030\n\307W\2030\nG\211\\	\307W\203.0	\206,0G\211\\<\203c0	\307V\203=0	\233\n\203]0\306\nS\211	Y\203W0\211A@\fB\202C0\f\237)\202\2220\310!\202\2220\n\204n0\206m0G\311\n	Z\307]\306\"\307	\nW\203\2200\f
	HI\210
T	T\211\202z0\f*)\207" . [seq start end len res i nil 0 copy-sequence make-vector])(#$ . 14205) nil 5 (#$ . 13988)])
#@91 Concatenate, into a sequence of type TYPE, the argument SEQUENCEs.

(fn TYPE SEQUENCE...)
(defalias 'concatenate #[(type &rest seqs) #@219 ("\302=\2030\303\304	\"\207\305=\2030\303\306	\"\207\307=\203$0\303\310\211	\311\"\"\207\312\313\"\207" . [type seqs vector apply vconcat string concat list append (nil) error "Not a sequence type name: %s"])(#$ . 14747) nil 5 (#$ . 14607)])
#@39 Equivalent to (append (reverse X) Y).
(defalias 'revappend #[(x y) #@37 ("\302!	\244\207" . [x y reverse])(#$ . 15077) nil 2 (#$ . 15004)])
#@39 Equivalent to (nconc (nreverse X) Y).
(defalias 'nreconc #[(x y) #@28 ("\237	\244\207" . [x y])(#$ . 15223) nil 2 (#$ . 15152)])
#@63 Return the length of list X.  Return nil if list is circular.
(defalias 'list-length #[(x) #@132 ("\304\211\nA\203%0\n	=\2030\304V\204%0\305\\\nAA	A\2020\n\20340\nA?\20550T\20250+\207" . [x slow fast n 0 2])(#$ . 15387) nil 3 (#$ . 15289)])
#@43 Return true if SUBLIST is a tail of LIST.
(defalias 'tailp #[(sublist list) #@86 (":\2030	=\2040A\211\2020	\247\2030	\232\207	=\207" . [list sublist])(#$ . 15639) nil 3 (#$ . 15557)])
(defalias 'cl-copy-tree 'copy-tree)
#@109 Return the value of SYMBOL's PROPNAME property, or DEFAULT if none.

(fn SYMBOL PROPNAME &optional DEFAULT)
(defalias 'get* #[(sym tag &optional def) #@129 ("	N\206-0\n\205-0\304!\211\203!0@	=\204!0AA\211\2040\203+0A@\202,0\n)\207" . [sym tag def plist symbol-plist])(#$ . 15957) nil 3 (#$ . 15800)])
#@170 Search PROPLIST for property PROPNAME; return its value or DEFAULT.
PROPLIST is a list of the sort returned by `symbol-plist'.

(fn PROPLIST PROPNAME &optional DEFAULT)
(defalias 'getf #[(plist tag &optional def) #@146 ("\303\304\"\210\304	N\206+0\n\205+0\203\"0@	=\204\"0AA\211\2040\203*0A@\207\n\207" . [plist tag def setplist --cl-getf-symbol--])(#$ . 16345) nil 4 (#$ . 16125)])
(defalias 'cl-set-getf #[(plist tag val) #@105 ("\211\2030	@\n=\2040	AA\211\2040	\203\"0	A\240\210\202'0\nBB)\207" . [plist p tag val])(#$ . 16571) nil 4])
(defalias 'cl-do-remf #[(plist tag) #@101 ("A\211A\2030	A@\n=\2040	AA\211\2020	A\205%0	\211AAA\241\210\303)\207" . [plist p tag t])(#$ . 16738) nil 3])
#@87 Remove from SYMBOL's plist the property PROPNAME and its value.

(fn SYMBOL PROPNAME)
(defalias 'cl-remprop #[(sym tag) #@128 ("\303!\211\2030\n	@=\2030\304	AA\"\210\305\2020\306	\n\")\207" . [sym plist tag symbol-plist setplist t cl-do-remf])(#$ . 16991) nil 4 (#$ . 16864)])
(defalias 'remprop 'cl-remprop)
(defalias 'cl-not-hash-table #[(x &optional y &rest z) #@85 ("\302\303\304\2060	D\"\207" . [y x signal wrong-type-argument cl-hash-table-p])(#$ . 17244) nil 4])
(byte-code "\301B\302\301!\204�\303\301\304K\"\210\305B\302\305!\204 �\303\305\306K\"\210\307B\302\307!\2040�\303\307\310K\"\210\311B\302\311!\204@�\303\311\312K\"\210\313\314\304\"\210\313\315\316\"\210\313\317\306\"\210\313\320\310\"\210\313\321\312\"\210\313\322\323\"\210\313\324\325\"\210\313\326\327\"\207" [current-load-list cl-builtin-gethash default-boundp set-default gethash cl-builtin-remhash remhash cl-builtin-clrhash clrhash cl-builtin-maphash maphash defalias cl-gethash cl-puthash puthash cl-remhash cl-clrhash cl-maphash cl-make-hash-table make-hash-table cl-hash-table-p hash-table-p cl-hash-table-count hash-table-count] 3)
#@69 Insert a pretty-printed rendition of a Lisp FORM in current buffer.
(defalias 'cl-prettyprint #[(form) #@276 ("`\303\304\305\n!\304\261\210`	Tb\210\306\307\310#\203+0\311\312!\210\313c\210\314 \210\315\316!\210\2020	Tb\210\317 *\207" . [last pt form nil "\n" prin1-to-string search-forward "(quote " t delete-backward-char 7 "'" forward-sexp delete-char 1 cl-do-prettyprint])(#$ . 18117) nil 4 (#$ . 18007)])
(defalias 'cl-do-prettyprint #[nil #@668 ("\305\306w\210\307\310!\203\2260\307\311!\206%0\307\312!\206%0\307\313!\206%0\307\314!\206%0\307\315!\307\316!\206.0\307\317!\307\320!\20670\307\321!\307\322!\211\204R0	\204R0\323 \210i\324Y\205\2240\325 \210\326\327u\210\330 \210\204g0\307\331!\204g0\330 \210\n\203t0\307\331!\204t0\330 \210\307\331!\204\2210\203\2010\f?\f\203\2100\332c\210\333 \210\330 \210\202t0\327u),\207\323 \207" . [set let two skip nl " " nil looking-at "(" "((" "(prog" "(unwind-protect " "(function (" "(cl-block-wrapper " "(defun " "(defmacro " "(let\\*? " "(while " "(p?set[qf] " forward-sexp 78 backward-sexp t 1 cl-do-prettyprint ")" "\n" lisp-indent-line])(#$ . 18467) nil 6])
(byte-code "\301B\302\301!\204�\303\301\304\"\210\305B\302\305!\204�\303\305\304\"\210\304\207" [current-load-list cl-macroexpand-cmacs default-boundp set-default nil cl-closure-vars] 3)
#@114 Expand all macro calls through a Lisp FORM.
This also does some trivial optimizations to make the form prettier.
(defalias 'cl-macroexpand-all #[(form &optional env) #@1878 ("\306	\"\211=\20300\n\2030\307!\211=\20300:\204 0\207@\310>\203\2720A@\20490\311\312\211AA)B	\"\207\313\211\211A@)\f\203\2250\f@:\203r0\311\f\211@@)	\"\21109\204b0\3140\315\f\211@A)	\")B\202\2130\311\f@	\"\21109\203\20300\202\2120\3140\313D)
B\fA\211\204I0\203\2510@\316=\203\2450\317\202\2530\320\202\2530@
\237\315\211AA)	\"+BB\207@\321=\203\3120@\322\323A\"B\207@\324=\203\3520@A@\311\3258	\"\322\326\211AA)A\"BBB\207@\327>\203\322A@\242\330=\203\240\315\211A@)AA	\"12\203\216@\331=\203\216\33212\"\203\216\322\3332\"3\33423\"4\31351@;\204>1@\242\335=\203O\3361\211A1@D5B5\202.\337\3402!@\341\314#\210\342\343\344\345E\34645\237\"\343\347\331\330\3423\211A@)A@\"\34641\"BBD\322\3502\"\351\244BBBC#+\202\236@\330\211A@)A@1BBD)\207\211A@)	\236\2116\203\317\313\352\353\217\203\317\3116\211AA)A@\211AA)@\211A@)	\"\202\320)\207@\354>\203\352@A@\315\211AA)	\"BB\207@\312=\203\211AA)\204\311A@	\"\207@\355=\203>\315A	\"\2117\2118\203*8@9\203*8\211AA)\2118\2048\2038\311\3567B!\202<\3557B*\207@:\203Q\311\357\331@DABB	\"\207@\315A	\"B\207" . [form env cl-macroexpand-cmacs x lets res macroexpand compiler-macroexpand (let let*) cl-macroexpand-all progn nil t cl-macroexpand-body let letf letf* cond mapcar #[(x) "\302	\"\207" [x env cl-macroexpand-body] 3] condition-case 2 #[(x) "@\302A	\"B\207" [x env cl-macroexpand-body] 4] 'function lambda function cl-expr-contains-any gensym pairlis interactive quote put last used append list 'lambda '(&rest --cl-rest--) sublis 'apply #[(x) "\301\302E\207" [x list 'quote] 3] ('--cl-rest--) (byte-code "\211AA)@\211A@)\302=\207" [found x cl-labels-args] 3) ((error)) (defun defmacro) setq setf funcall exp body cl-closure-vars new sub decls found args p])(#$ . 19528) nil 12 (#$ . 19354)])
(defalias 'cl-macroexpand-body #[(body &optional env) #@88 ("\301\302\"\207" . [body mapcar #[(x) "\302	\"\207" [x env cl-macroexpand-all] 3]])(#$ . 21499) nil 3])
(defalias 'cl-prettyexpand #[(form &optional full) #@277 ("\305\306!\210\211\307\310\f?\2050\311\"\305\312!\210\313\f!\305\314!\210+\207" . [full byte-compile-macro-environment cl-compiling-file cl-macroexpand-cmacs form message "Expanding..." nil cl-macroexpand-all ((block) (eval-when)) "Formatting..." cl-prettyprint ""])(#$ . 21664) nil 3])
(run-hooks 'cl-extra-load-hook)

${this.title}

Code Editor : cl-extra.elc