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-compat.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-compat.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

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

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

(require 'cl)
(defalias 'defkeyword '(macro . #[(x &optional doc) "\302\303D	\205�	CBBB\207" [x doc defconst quote] 4]))
(defalias 'keyword-of #[(sym) "\301!\206�\301\302\303\304\"!!\207" [sym keywordp intern format ":%s"] 5])
(byte-code "\301\302\303\304#\210\301\305\303\304#\210\301\306\303\307#\210\301\310\303\307#\210\311B\312\311!\204'�\313\311\314\"\210\314\207" [current-load-list put Multiple-value-bind lisp-indent-function 2 Multiple-value-setq Multiple-value-call 1 Multiple-value-prog1 *mvalues-values* default-boundp set-default nil] 4)
(defalias 'Values #[(&rest val-forms) "@\207" [val-forms *mvalues-values*] 1])
(defalias 'Values-list #[(val-forms) "\301\302\"\207" [val-forms apply values] 3])
(defalias 'Multiple-value-list '(macro . #[(form) "\301\302\303DD\304E\207" [form let* (*mvalues-values* nil) *mvalues-temp* (or (and (eq *mvalues-temp* (car *mvalues-values*)) *mvalues-values*) (list *mvalues-temp*))] 4]))
(defalias 'Multiple-value-call '(macro . #[(function &rest args) "\302\303\304\305	\"BE\207" [function args apply append mapcar #[(x) "\301D\207" [x Multiple-value-list] 2]] 6]))
(defalias 'Multiple-value-bind '(macro . #[(vars form &rest body) "\303\304	D\nBBB\207" [vars form body multiple-value-bind Multiple-value-list] 4]))
(defalias 'Multiple-value-setq '(macro . #[(vars form) "\302\303	DE\207" [vars form multiple-value-setq Multiple-value-list] 4]))
(defalias 'Multiple-value-prog1 '(macro . #[(form &rest body) "\302\303\304	BBE\207" [form body prog1 let ((*mvalues-values* nil))] 5]))
(defalias 'build-klist #[(arglist keys &optional allow-others) "\306\307\310\311\312\211@=\203�\206�	C*\311\313\n!\211@=\203&�\206(�	C*\"\"\f\204E�\314\315\316\"
\"\211\203D�\317\320
#\210))\207" [*mvalues-values* *mvalues-temp* arglist res allow-others keys apply mapcar* append nil cons unzip-lists set-difference mapcar car error "Bad keywords: %s not in %s" bad] 7])
(defalias 'extract-from-klist #[(klist key &optional def) "	\236\211\203
�\nA\202�)\207" [key klist res def] 3])
(defalias 'keyword-argument-supplied-p #[(klist key) "	\236\207" [key klist] 2])
(defalias 'elt-satisfies-test-p #[(item elt klist) "\306\236A\307\236A\310\236A	\203�	\f!\203#�
\f\"?\202+�\n\206(�\311
\f\"+\207" [klist key test test-not elt item :test-not :test :key eql] 4])
(defalias 'cl-floor #[(a &optional b) "\302\303	\"!\207" [a b Values-list floor*] 4])
(defalias 'cl-ceiling #[(a &optional b) "\302\303	\"!\207" [a b Values-list ceiling*] 4])
(defalias 'cl-round #[(a &optional b) "\302\303	\"!\207" [a b Values-list round*] 4])
(defalias 'cl-truncate #[(a &optional b) "\302\303	\"!\207" [a b Values-list truncate*] 4])
(defalias 'safe-idiv #[(a b) "\304!\304	!\245\305!\305	!_\306\n\307\n	#Z#*\207" [a b q s abs signum Values *] 7])
(defalias 'pair-with-newsyms #[(oldforms) "\302\303\"\304\305\306	#	\")\207" [oldforms newsyms mapcar #[(x) "\300\301!\207" [make-symbol "--cl-var--"] 2] Values mapcar* list] 5])
(defalias 'zip-lists #[(evens odds) "\302\303	#\207" [evens odds mapcan list] 4])
(defalias 'unzip-lists #[(list) "\304\211\n\203!�\n@	B\n\211A@)B\n\211AA)\211\204�\305	\237\237\"*\207" [o e list x nil Values] 4])
(defalias 'reassemble-argslists #[(list) "\303\304\305\306\"\"\307\nS\211\310Y\203�\305\311\"	B\202\n�	*\207" [list res n apply min mapcar length nil 0 #[(x) "	\234\207" [x n] 2]] 5])
(defalias 'duplicate-symbols-p #[(list) "\302	\203�	@	A>\203�	@B	A\211\204�)\207" [res list nil] 3])
(defalias 'setnth #[(n list x) "	\233\n\240\207" [n list x] 2])
(defalias 'setnthcdr #[(n list x) "S	\233\n\241\207" [n list x] 2])
(defalias 'setelt #[(seq n x) ":\203�	\233\n\240\207	\nI\207" [seq n x] 3])
(provide 'cl-compat)

${this.title}

Code Editor : cl-compat.elc