;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(require 'cl-lib)
#@24 

(fn X &optional DOC)
(defalias 'defkeyword '(macro . #[513 "\300\301D\205CBBB\207" [defconst quote] 6 (#$ . 102)]))
#@12 

(fn SYM)
(defalias 'keyword-of #[257 "\300
!\206\300\301\302\303\"!!\207" [keywordp intern format ":%s"] 6 (#$ . 232)])
(defvar *mvalues-values* nil)
#@24 

(fn &rest VAL-FORMS)
(defalias 'Values #[128 "\211\211@\207" [*mvalues-values*] 2 (#$ . 393)])
#@18 

(fn VAL-FORMS)
(defalias 'Values-list #[257 "\300\301\"\207" [apply cl-values] 4 (#$ . 497)])
#@13 

(fn FORM)
(defalias 'Multiple-value-list '(macro . #[257 "\300\301\302DD\303E\207" [let* (*mvalues-values* nil) *mvalues-temp* (or (and (eq *mvalues-temp* (car *mvalues-values*)) *mvalues-values*) (list *mvalues-temp*))] 5 (#$ . 600)]))
#@28 

(fn FUNCTION &rest ARGS)
(defalias 'Multiple-value-call '(macro . #[385 "\300\301\302\303\"BE\207" [apply append mapcar #[257 "\300
D\207" [Multiple-value-list] 3 "\n\n(fn X)"]] 8 (#$ . 846)]))
(byte-code "\300\301\302\303#\300\207" [function-put Multiple-value-call lisp-indent-function 1] 4)
#@29 

(fn VARS FORM &rest BODY)
(defalias 'Multiple-value-bind '(macro . #[642 "\300\301DBBB\207" [multiple-value-bind Multiple-value-list] 7 (#$ . 1150)]))
(byte-code "\300\301\302\303#\300\207" [function-put Multiple-value-bind lisp-indent-function 2] 4)
#@18 

(fn VARS FORM)
(defalias 'Multiple-value-setq '(macro . #[514 "\300\301DE\207" [multiple-value-setq Multiple-value-list] 6 (#$ . 1412)]))
(byte-code "\300\301\302\303#\300\207" [function-put Multiple-value-setq lisp-indent-function 2] 4)
#@24 

(fn FORM &rest BODY)
(defalias 'Multiple-value-prog1 '(macro . #[385 "\300\301\302BBE\207" [prog1 let ((*mvalues-values* nil))] 7 (#$ . 1660)]))
(byte-code "\300\301\302\303#\300\207" [function-put Multiple-value-prog1 lisp-indent-function 1] 4)
#@44 

(fn ARGLIST KEYS &optional ALLOW-OTHERS)
(defalias 'build-klist #[770 "\301\302\303\304\211@\305=\203\206\305C)\304\306!\211@=\203$\206&\211C)\262
\"\"
\204B\307\310\311\"\"\211\203A\312\313#\210\210\207" [*mvalues-values* apply cl-mapcar append nil cons unzip-lists cl-set-difference mapcar car error "Bad keywords: %s not in %s"] 11 (#$ . 1916)])
#@32 

(fn KLIST KEY &optional DEF)
(defalias 'extract-from-klist #[770 "
\236\211\203\n\211A\207
\207" [] 5 (#$ . 2293)])
#@18 

(fn KLIST KEY)
(defalias 'keyword-argument-supplied-p #[514 "\211\236\207" [] 4 (#$ . 2419)])
#@23 

(fn ITEM ELT KLIST)
(defalias 'elt-satisfies-test-p #[771 "\300
\236A\301\236A\302\236A\211\203\211!\262\203!\"?\207
\206&\303\"\207" [:test-not :test :key eql] 9 (#$ . 2522)])
#@12 

(fn A B)
(defalias 'safe-idiv #[514 "\300!\300!\245\301!\301!_\302__Z#\207" [abs cl-signum Values] 9 (#$ . 2725)])
#@17 

(fn OLDFORMS)
(defalias 'pair-with-newsyms #[257 "\300\301\"\302\303\304#\"\207" [mapcar #[257 "\300\301!\207" [make-symbol "--cl-var--"] 3 "\n\n(fn _)"] Values cl-mapcar list] 7 (#$ . 2859)])
#@19 

(fn EVENS ODDS)
(defalias 'zip-lists #[514 "\300\301#\207" [cl-mapcan list] 6 (#$ . 3064)])
#@13 

(fn LIST)
(defalias 'unzip-lists #[257 "\300\211\203@B\262A@
B\262
AA\262\202\301\237\237\"\207" [nil Values] 6 (#$ . 3166)])
#@13 

(fn LIST)
(defalias 'reassemble-argslists #[257 "\300\301\302\303\"\"C\304
\211\242S\240\305Y\203!\302\306\307\"\"
B\262
\202	\207" [apply min mapcar length nil 0 make-closure #[257 "\211\300\242\234\207" [V0] 3 "\n\n(fn X)"]] 7 (#$ . 3313)])
#@13 

(fn LIST)
(defalias 'duplicate-symbols-p #[257 "\300
\203
@A>\203
@
B\262

A\262\202
\207" [nil] 4 (#$ . 3569)])
#@17 

(fn N LIST X)
(defalias 'setnth #[771 "\233
\240\207" [] 5 (#$ . 3697)])
#@17 

(fn N LIST X)
(defalias 'setnthcdr #[771 "S\233
\241\207" [] 5 (#$ . 3780)])
#@16 

(fn SEQ N X)
(defalias 'setelt #[771 ":\203
\233
\240\207I\207" [] 6 (#$ . 3867)])
(provide 'cl-compat)