;ELC   
;;; compiled by cthomp@willow on Thu Aug 12 00:47:11 1993
;;; from file /era/era-0.80/editor/lisp/utils/cl-compat.el
;;; emacs version 19.8 (beta8) Lucid.
;;; bytecomp version 2.15; 14-jul-93.
;;; 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")))
    (error "This file was compiled for Emacs 19."))

(byte-code "АБ!¬„ВБ!€ГДM€ЕЖM€ЗИM€ЙКЛМ#€ЙНЛМ#€ЙОЛП#€ЙРЛП#€СТ!¬ѓУФХM€ЦЧM€ШЩM€ОЪM€КЫM€НЬM€РЭM€ЮЯM€абM€вгM€деM€жзM€ийM€клM€мнM€опM€рсM€туM€фхM€цчM€шщM€ъыM€ьэM€юяM€Ѓ@ ЃA !‡" [featurep cl require defkeyword (macro . #[(x &optional doc) "А	В	D­‚CBBB‡" [defconst x quote doc] 4]) keywordp #[(sym) "9­ЊБ!ВHГ=­ѓ‰L‡" [sym symbol-name 0 58] 2] keyword-of #[(sym) "А	!®€АВГД	\"!!‡" [keywordp sym intern format ":%s"] 5] put Multiple-value-bind lisp-indent-function 2 Multiple-value-setq Multiple-value-call 1 Multiple-value-prog1 boundp *mvalues-values* nil Values #[(&rest val-forms) "@‡" [val-forms *mvalues-values*] 1] Values-list #[(val-forms) "АБ\n\"‡" [apply values val-forms] 3] 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]) (macro . #[(function &rest args) "А	ВГД\"BE‡" [apply function append mapcar #[(x) "А	D‡" [Multiple-value-list x] 2] args] 6]) (macro . #[(vars form &rest body) "А	ВDBBB‡" [multiple-value-bind vars Multiple-value-list form body] 4]) (macro . #[(vars form) "А	ВDE‡" [multiple-value-setq vars Multiple-value-list form] 4]) (macro . #[(form &rest body) "А	ВГBBE‡" [prog1 form let ((*mvalues-values* nil)) body] 5]) build-klist #[(arglist keys &optional allow-others) "АБВГЕЕ@=«ѓ®ѓC*ГЗ!‰@=«ѓ®ѓC*\"\"	\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] extract-from-klist #[(klist key &optional def) "	ћ‰«„\nAЄЃ)‡" [key klist res def] 3] keyword-argument-supplied-p #[(klist key) "	ћ‡" [key klist] 2] elt-satisfies-test-p #[(item elt klist) "А	ћAВ	ћAГ	ћA«†!«Љ\"?Є‰®ЃЙ\"+‡" [:test-not klist :test :key key test test-not elt item eql] 4] cl-floor #[(a &optional b) "АБ\n\"!‡" [Values-list floor* a b] 4] cl-ceiling #[(a &optional b) "АБ\n\"!‡" [Values-list ceiling* a b] 4] cl-round #[(a &optional b) "АБ\n\"!‡" [Values-list round* a b] 4] cl-truncate #[(a &optional b) "АБ\n\"!‡" [Values-list truncate* a b] 4] safe-idiv #[(a b) "А	!А\n!ҐД	!Д\n!_Ж	\n__Z#*‡" [abs a b q signum s Values] 6] pair-with-newsyms #[(oldforms) "АБ\n\"ДЕЖ\n#\")‡" [mapcar #[(x) "А ‡" [gensym] 1] oldforms newsyms Values mapcar* list] 5] zip-lists #[(evens odds) "АБ\n#‡" [mapcan list evens odds] 4] unzip-lists #[(list) "А‰«’@\nBA@	BAA‰¬nД\nџ	џ\"*‡" [nil o e list Values] 4] reassemble-argslists #[(list) "АБВГ\"\"ЕS‰ИY«‹ВЙ\"BЄk*‡" [apply min mapcar length list nil res n 0 #[(x) "	њ‡" [x n] 2]] 5] duplicate-symbols-p #[(list) "А\n«’\n@\nA>«…\n@	B\nA‰¬n	)‡" [nil res list] 3] setnth #[(n list x) "	›\n ‡" [n list x] 2] setnthcdr #[(n list x) "S	›\nЎ‡" [n list x] 2] setelt #[(seq n x) ":«†	›\n ‡	\nI‡" [seq n x] 3] provide cl-compat] 4)