;ELC   
;;; compiled by kwzh@nutrimat.gnu.ai.mit.edu on Thu Jun 15 18:22:51 1995
;;; from file /gd/gnu/emacs/19.0/lisp/cl-compat.el
;;; emacs version 19.28.94.3.
;;; bytecomp version FSF 2.10
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.28.90")))
    (error "`cl-compat.el' was compiled for Emacs 19.29 or later"))


(byte-code "ÀÁ!„\n ÂÁ!ˆÀ‡" [featurep cl require] 2)
(defalias 'defkeyword '(macro . #[(x &optional doc) "ÀÁ\nÃ\nD\f…\f \fC$‡" [list* defconst x quote doc] 5]))
(defalias 'keywordp #[(sym) "9… Á!ÂHÃ=… ‰L‡" [sym symbol-name 0 58] 2])
(defalias 'keyword-of #[(sym) "À	!† ÀÂÃÄ	\"!!‡" [keywordp sym intern format ":%s"] 5])
(byte-code "ÀÁÂÃ#ˆÀÄÂÃ#ˆÀÅÂÆ#ˆÀÇÂÆ#ˆÈÉ!„! Ê	ÉBÊ‡" [put Multiple-value-bind lisp-indent-function 2 Multiple-value-setq Multiple-value-call 1 Multiple-value-prog1 boundp *mvalues-values* nil current-load-list] 4)
(defalias 'Values #[(&rest val-forms) "@‡" [val-forms *mvalues-values*] 1])
(defalias 'Values-list #[(val-forms) "ÀÁ\n\"‡" [apply values val-forms] 3])
(defalias 'Multiple-value-list '(macro . #[(form) "ÀÁÂDDÄE‡" [let* (*mvalues-values* nil) *mvalues-temp* form (or (and (eq *mvalues-temp* (car *mvalues-values*)) *mvalues-values*) (list *mvalues-temp*))] 4]))
(defalias 'Multiple-value-call '(macro . #[(function &rest args) "À	ÂÃÄ\"BE‡" [apply function append mapcar #[(x) "À	D‡" [Multiple-value-list x] 2] args] 6]))
(defalias 'Multiple-value-bind '(macro . #[(vars form &rest body) "ÀÁ\nÃ\fD$‡" [list* multiple-value-bind vars Multiple-value-list form body] 5]))
(defalias 'Multiple-value-setq '(macro . #[(vars form) "À	ÂDE‡" [multiple-value-setq vars Multiple-value-list form] 4]))
(defalias 'Multiple-value-prog1 '(macro . #[(form &rest body) "À	ÂÃÄ#E‡" [prog1 form list* let ((*mvalues-values* nil)) body] 6]))
(defalias 'build-klist #[(arglist keys &optional allow-others) "ÀÁÂÃÅÅ\f@=ƒ \f† C*ÃÇ!‰\f@=ƒ* \f†- C*\"\"	\n„O ËÌÍ	\"\"‰ƒN ÐÑ#ˆ)	)‡" [apply mapcar* append nil *mvalues-values* cons *mvalues-temp* unzip-lists arglist res allow-others set-difference mapcar car keys bad error "Bad keywords: %s not in %s"] 7])
(defalias 'extract-from-klist #[(klist key &optional def) "	ž‰ƒ \nA‚ )‡" [key klist res def] 3])
(defalias 'keyword-argument-supplied-p #[(klist key) "	ž‡" [key klist] 2])
(defalias 'elt-satisfies-test-p #[(item elt klist) "À	žAÂ	žAÃ	žA\fƒ \f!ƒ* \"?‚4 †/ É\"+‡" [:test-not klist :test :key key test test-not elt item eql] 4])
(defalias 'cl-floor #[(a &optional b) "ÀÁ\n\"!‡" [Values-list floor* a b] 4])
(defalias 'cl-ceiling #[(a &optional b) "ÀÁ\n\"!‡" [Values-list ceiling* a b] 4])
(defalias 'cl-round #[(a &optional b) "ÀÁ\n\"!‡" [Values-list round* a b] 4])
(defalias 'cl-truncate #[(a &optional b) "ÀÁ\n\"!‡" [Values-list truncate* a b] 4])
(defalias 'safe-idiv #[(a b) "À	!À\n!¥Ä	!Ä\n!_Æ	\n__Z#*‡" [abs a b q signum s Values] 6])
(defalias 'pair-with-newsyms #[(oldforms) "ÀÁ\n\"ÄÅÆ\n#\")‡" [mapcar #[(x) "À ‡" [gensym] 1] oldforms newsyms Values mapcar* list] 5])
(defalias 'zip-lists #[(evens odds) "ÀÁ\n#‡" [mapcan list evens odds] 4])
(defalias 'unzip-lists #[(list) "À‰ƒ @\nBÄ!	BÅ!‰„ Æ\nŸ	Ÿ\"*‡" [nil o e list cadr cddr Values] 4])
(defalias 'reassemble-argslists #[(list) "ÀÁÂÃ\f\"\"ÅS‰ÈYƒ# ÂÉ\f\"B‚\f *‡" [apply min mapcar length list nil res n 0 #[(x) "	œ‡" [x n] 2]] 5])
(defalias 'duplicate-symbols-p #[(list) "À\nƒ \n@\nA>ƒ \n@	B\nA‰„ 	)‡" [nil res list] 3])
(defalias 'setnth #[(n list x) "	›\n ‡" [n list x] 2])
(defalias 'setnthcdr #[(n list x) "S	›\n¡‡" [n list x] 2])
(defalias 'setelt #[(seq n x) ":ƒ 	›\n ‡	\nI‡" [seq n x] 3])
(provide (quote cl-compat))