;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:08:59 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/emacs-lisp/cl-lib.el
;;; in Emacs version 24.3.1
;;; with all optimizations.
;;; Function definitions are lazy-loaded.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

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


(require 'macroexp)
(defvar cl-optimize-speed 1)
(defvar cl-optimize-safety 1)
(byte-code "\300\301\302\303#\210\304\211\203(\211@\301
N\203!\302
N\204!\305\302\301N#\210
A\266\202\202\210\306\301\302\307#\207" [defvaralias custom-print-functions cl-custom-print-functions nil (saved-value saved-variable-comment) put make-obsolete-variable "24.3"] 7)
#@445 This is a list of functions that format user objects for printing.
Each function is called in turn with three arguments: the object, the
stream, and the print level (currently ignored).  If it is able to
print the object it returns true; otherwise it returns nil and the
printer proceeds to the next function on the list.

This variable is not used at present, but it is defined in hopes that
a future Emacs interpreter will be able to use it.
(defvar cl-custom-print-functions nil (#$ . 962))
#@184 Increment PLACE by X (1 by default).
PLACE may be a symbol, or any generalized variable allowed by `setf'.
The return value is the incremented value of PLACE.

(fn PLACE &optional X)
(defalias 'cl-incf '(macro . #[513 #@106 ("

9\203
0\300\203
0\301E\202
0\302DE\207\303\301\206
_
0\304F\207" . [setq + 1+ cl-callf 1])(#$ . 1688) nil 7 (#$ . 1463)]))
(put 'cl-incf 'edebug-form-spec '(place &optional form))
#@184 Decrement PLACE by X (1 by default).
PLACE may be a symbol, or any generalized variable allowed by `setf'.
The return value is the decremented value of PLACE.

(fn PLACE &optional X)
(defalias 'cl-decf '(macro . #[513 #@106 ("

9\203
0\300\203
0\301E\202
0\302DE\207\303\301\206
_
0\304F\207" . [setq - 1- cl-callf 1])(#$ . 2114) nil 7 (#$ . 1889)]))
(put 'cl-decf 'edebug-form-spec 'cl-incf)
#@259 (cl-pushnew X PLACE): insert X at the head of the list if not already there.
Like (push X PLACE), except that the list is unmodified if X is `eql' to
an element already on the list.

Keywords supported:  :test :test-not :key

(fn X PLACE [KEYWORD VALUE]...)
(defalias 'cl-pushnew '(macro . #[642 #@299 ("

9\203K
0\211\204>
0\300

!\203
0\211\202
0\301\302!\303\304E\305D\306\307\nEEF

=\2036
0\211\202=
0\310DC\"\207\306\311\312$E\207\311\313\312%\207" . [macroexp-const-p make-symbol "var" if memql with-no-warnings setq cons macroexp-let* cl-list* cl-adjoin cl-callf2])(#$ . 2603) nil 13 (#$ . 2300)]))
(put 'cl-pushnew 'edebug-form-spec '(form place &rest &or [[&or ":test" ":test-not" ":key"] function-form] [keywordp form]))
(defalias 'cl--set-elt #[771 #@45 ("<\203
0

\233

\240\207I\207" . [])(#$ . 3094) nil 6 "\n\n(fn SEQ N VAL)"])
(defalias 'cl--set-buffer-substring #[771 #@42 ("\212|\210b\210\211c\210)\207" . [])(#$ . 3226) nil 5 "\n\n(fn START END VAL)"])
(defalias 'cl--set-substring #[1028 #@133 ("

\203
0

\300W\203
0

G\\\262\202
0G\262\300W\203#
0G\\\262\300V\205-
0\300O

GW\205:
0\301OQ\207" . [0 nil])(#$ . 3354) nil 9 "\n\n(fn STR START END VAL)"])
(byte-code "\300\301\302\"\210\300\303\304\"\207" [defalias cl--block-wrapper identity cl--block-throw throw] 3)
(defalias 'cl--defalias #[770 #@95 ("\300#\210\301\302\303#\207" . [defalias put byte-optimizer byte-compile-inline-expand])(#$ . 3683) nil 7 "\n\n(fn CL-F EL-F &optional DOC)"])
(byte-code "\300\301\302\303#\210\300\304\305\306#\207" [cl--defalias cl-values list "Return multiple values, Common Lisp style.\nThe arguments of `cl-values' are the values\nthat the containing function should return.\n\n(fn &rest VALUES)" cl-values-list identity "Return multiple values, Common Lisp style, taken from a list.\nLIST specifies the list of values\nthat the containing function should return.\n\n(fn LIST)"] 4)
#@240 Return a list of the multiple values produced by EXPRESSION.
This handles multiple values in Common Lisp style, but it does not
work right when EXPRESSION calls an ordinary Emacs Lisp function
that returns just one value.

(fn EXPRESSION)
(defalias 'cl-multiple-value-list #[257 #@15 ("\207" . [])(#$ . 4549) nil 2 (#$ . 4264)])
(put 'cl-multiple-value-list 'byte-optimizer 'byte-compile-inline-expand)
#@259 Evaluate EXPRESSION to get multiple values and apply FUNCTION to them.
This handles multiple values in Common Lisp style, but it does not work
right when EXPRESSION calls an ordinary Emacs Lisp function that returns just
one value.

(fn FUNCTION EXPRESSION)
(defalias 'cl-multiple-value-apply #[514 #@28 ("\300\"\207" . [apply])(#$ . 4980) nil 5 (#$ . 4675)])
(byte-code "\300\301\302\303#\210\304\305\306\307#\210\310\311\312\313#\207" [put cl-multiple-value-apply byte-optimizer byte-compile-inline-expand defalias cl-multiple-value-call apply "Apply FUNCTION to ARGUMENTS, taking multiple values into account.\nThis implementation only handles the case where there is only one argument." cl--defalias cl-nth-value nth "Evaluate EXPRESSION to get multiple values and return the Nth one.\nThis handles multiple values in Common Lisp style, but it does not work\nright when EXPRESSION calls an ordinary Emacs Lisp function that returns just\none value.\n\n(fn N EXPRESSION)"] 4)
(defvar cl--compiling-file nil)
(defalias 'cl--compiling-file #[0 #@164 ("\206
0\301\302!\205
0\303\302J!\205
0\304\302J!\305\232\207" . [cl--compiling-file boundp byte-compile--outbuffer bufferp buffer-name " *Compiler Output*"])(#$ . 5730) nil 2 "\n\n(fn)"])
(defvar cl-proclaims-deferred nil)
#@59 Record a global declaration specified by SPEC.

(fn SPEC)
(defalias 'cl-proclaim #[257 #@115 ("\301\302!\203
0\302

\303\"\210\202
0\211B\304\207" . [cl-proclaims-deferred fboundp cl-do-proclaim t nil])(#$ . 6058) nil 4 (#$ . 5964)])
#@231 Like `cl-proclaim', but takes any number of unevaluated, unquoted arguments.
Puts `(cl-eval-when (compile load eval) ...)' around the declarations
so that they are registered at compile-time as well as run-time.

(fn &rest SPECS)
(defalias 'cl-declaim '(macro . #[128 #@199 ("\300\301\"\302 \203
0\303\304\305#\202
0\306

B\207" . [mapcar #[257 "\300\301DD\207" [cl-proclaim quote] 4 "\n\n(fn X)"] cl--compiling-file cl-list* cl-eval-when (compile load eval) progn])(#$ . 6485) nil 6 (#$ . 6210)]))
(defalias 'cl-random-time #[0 #@122 ("\300\301 !\211G\302

S\211\262\302Y\203
0\211\303_H\\\262

\202
0\207" . [copy-sequence current-time-string 0 3])(#$ . 6752) nil 6 "\n\n(fn)"])
(defvar cl--gensym-counter (byte-code "\300\301 \302\"\303_\207" [logand cl-random-time 1023 100] 3))
#@147 Return t if OBJECT is a floating point number.
On Emacs versions that lack floating-point support, this function
always returns nil.

(fn OBJECT)
(defalias 'cl-floatp-safe #[257 #@39 ("\211\247\205
0\211\250?\207" . [])(#$ . 7196) nil 2 (#$ . 7012)])
#@46 Return t if NUMBER is positive.

(fn NUMBER)
(defalias 'cl-plusp #[257 #@25 ("\211\300V\207" . [0])(#$ . 7348) nil 3 (#$ . 7271)])
(put 'cl-plusp 'byte-optimizer 'byte-compile-inline-expand)
#@46 Return t if NUMBER is negative.

(fn NUMBER)
(defalias 'cl-minusp #[257 #@25 ("\211\300W\207" . [0])(#$ . 7547) nil 3 (#$ . 7469)])
(put 'cl-minusp 'byte-optimizer 'byte-compile-inline-expand)
#@43 Return t if INTEGER is odd.

(fn INTEGER)
(defalias 'cl-oddp #[257 #@40 ("\300

\301\"\301=\207" . [logand 1])(#$ . 7742) nil 4 (#$ . 7669)])
#@44 Return t if INTEGER is even.

(fn INTEGER)
(defalias 'cl-evenp #[257 #@42 ("\300

\301\"\302=\207" . [logand 1 0])(#$ . 7893) nil 4 (#$ . 7818)])
(defvar cl--random-state (byte-code "\300\301\302\303\304 $\207" [vector cl-random-state-tag -1 30 cl-random-time] 5))
#@205 The largest value that a Lisp float can hold.
If your system supports infinities, this is the largest finite value.
For IEEE machines, this is approximately 1.79e+308.
Call `cl-float-limits' to set this.
(defconst cl-most-positive-float nil (#$ . 8091))
#@134 The largest negative value that a Lisp float can hold.
This is simply -`cl-most-positive-float'.
Call `cl-float-limits' to set this.
(defconst cl-most-negative-float nil (#$ . 8352))
#@201 The smallest value greater than zero that a Lisp float can hold.
For IEEE machines, it is about 4.94e-324 if denormals are supported,
or 2.22e-308 if they are not.
Call `cl-float-limits' to set this.
(defconst cl-least-positive-float nil (#$ . 8542))
#@142 The smallest value less than zero that a Lisp float can hold.
This is simply -`cl-least-positive-float'.
Call `cl-float-limits' to set this.
(defconst cl-least-negative-float nil (#$ . 8800))
#@360 The smallest normalized Lisp float greater than zero.
This is the smallest value for which IEEE denormalization does not lose
precision.  For IEEE machines, this value is about 2.22e-308.
For machines that do not support the concept of denormalization
and gradual underflow, this constant equals `cl-least-positive-float'.
Call `cl-float-limits' to set this.
(defconst cl-least-positive-normalized-float nil (#$ . 8999))
#@142 The smallest normalized Lisp float less than zero.
This is simply -`cl-least-positive-normalized-float'.
Call `cl-float-limits' to set this.
(defconst cl-least-negative-normalized-float nil (#$ . 9427))
#@221 The smallest positive float that adds to 1.0 to give a distinct value.
Adding a number less than this to 1.0 returns 1.0 due to roundoff.
For IEEE machines, epsilon is about 2.22e-16.
Call `cl-float-limits' to set this.
(defconst cl-float-epsilon nil (#$ . 9637))
#@156 The smallest positive float that subtracts from 1.0 to give a distinct value.
For IEEE machines, it is about 1.11e-16.
Call `cl-float-limits' to set this.
(defconst cl-float-negative-epsilon nil (#$ . 9908))
(cl--defalias 'cl-copy-seq 'copy-sequence)
#@364 Apply FUNCTION to each element of SEQ, and make a list of the results.
If there are several SEQs, FUNCTION is called with that many arguments,
and mapping stops as soon as the shortest list runs out.  With just one
SEQ, this is like `mapcar'.  With several, it is like the Common Lisp
`mapcar' function extended to arbitrary sequence types.

(fn FUNCTION SEQ...)
(defalias 'cl-mapcar #[642 #@186 ("\211\203>
0\211A\204
0

<\203
0\211@<\204
0\300B\"\207\301

@\203;
0\211\203;
0\211A\262@\211A\262@\"B\262\202
0

\237\207\302\"\207" . [cl--mapcar-many nil mapcar])(#$ . 10563) nil 9 (#$ . 10166)])
(byte-code "\300\301\302\"\210\300\303\304\"\210\300\305\306\"\210\300\307\310\"\210\300\311\312\"\210\300\313\314\315#\210\300\316\317\320#\207" [cl--defalias cl-svref aref cl-first car cl-second cadr cl-rest cdr cl-endp null cl-third cl-caddr "Return the third element of the list X." cl-fourth cl-cadddr "Return the fourth element of the list X."] 4)
#@49 Return the fifth element of the list X.

(fn X)
(defalias 'cl-fifth #[257 #@23 ("\300

8\207" . [4])(#$ . 11221) nil 3 (#$ . 11141)])
(byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put cl-fifth gv-expander #[385 "\300\301\302$\207" [gv--defsetter cl-fifth #[514 "\300\301\302EE\207" [setcar nthcdr 4] 6 "\n\n(fn STORE X)"]] 7 "\n\n(fn DO &rest ARGS)"] byte-optimizer byte-compile-inline-expand] 4)
#@49 Return the sixth element of the list X.

(fn X)
(defalias 'cl-sixth #[257 #@23 ("\300

8\207" . [5])(#$ . 11640) nil 3 (#$ . 11560)])
(byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put cl-sixth gv-expander #[385 "\300\301\302$\207" [gv--defsetter cl-sixth #[514 "\300\301\302EE\207" [setcar nthcdr 5] 6 "\n\n(fn STORE X)"]] 7 "\n\n(fn DO &rest ARGS)"] byte-optimizer byte-compile-inline-expand] 4)
#@51 Return the seventh element of the list X.

(fn X)
(defalias 'cl-seventh #[257 #@23 ("\300

8\207" . [6])(#$ . 12063) nil 3 (#$ . 11979)])
(byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put cl-seventh gv-expander #[385 "\300\301\302$\207" [gv--defsetter cl-seventh #[514 "\300\301\302EE\207" [setcar nthcdr 6] 6 "\n\n(fn STORE X)"]] 7 "\n\n(fn DO &rest ARGS)"] byte-optimizer byte-compile-inline-expand] 4)
#@50 Return the eighth element of the list X.

(fn X)
(defalias 'cl-eighth #[257 #@23 ("\300

8\207" . [7])(#$ . 12488) nil 3 (#$ . 12406)])
(byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put cl-eighth gv-expander #[385 "\300\301\302$\207" [gv--defsetter cl-eighth #[514 "\300\301\302EE\207" [setcar nthcdr 7] 6 "\n\n(fn STORE X)"]] 7 "\n\n(fn DO &rest ARGS)"] byte-optimizer byte-compile-inline-expand] 4)
#@49 Return the ninth element of the list X.

(fn X)
(defalias 'cl-ninth #[257 #@23 ("\300

8\207" . [8])(#$ . 12909) nil 3 (#$ . 12829)])
(byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put cl-ninth gv-expander #[385 "\300\301\302$\207" [gv--defsetter cl-ninth #[514 "\300\301\302EE\207" [setcar nthcdr 8] 6 "\n\n(fn STORE X)"]] 7 "\n\n(fn DO &rest ARGS)"] byte-optimizer byte-compile-inline-expand] 4)
#@49 Return the tenth element of the list X.

(fn X)
(defalias 'cl-tenth #[257 #@23 ("\300

8\207" . [9])(#$ . 13328) nil 3 (#$ . 13248)])
(byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put cl-tenth gv-expander #[385 "\300\301\302$\207" [gv--defsetter cl-tenth #[514 "\300\301\302EE\207" [setcar nthcdr 9] 6 "\n\n(fn STORE X)"]] 7 "\n\n(fn DO &rest ARGS)"] byte-optimizer byte-compile-inline-expand] 4)
#@58 Return the `car' of the `car' of the `car' of X.

(fn X)
(defalias 'cl-caaar #[257 #@22 ("\211@@@\207" . [])(#$ . 13756) nil 2 (#$ . 13667)])
(put 'cl-caaar 'compiler-macro 'cl--compiler-macro-cXXr)
#@58 Return the `car' of the `car' of the `cdr' of X.

(fn X)
(defalias 'cl-caadr #[257 #@22 ("\211A@@\207" . [])(#$ . 13962) nil 2 (#$ . 13873)])
(put 'cl-caadr 'compiler-macro 'cl--compiler-macro-cXXr)
#@58 Return the `car' of the `cdr' of the `car' of X.

(fn X)
(defalias 'cl-cadar #[257 #@22 ("\211@A@\207" . [])(#$ . 14168) nil 2 (#$ . 14079)])
(put 'cl-cadar 'compiler-macro 'cl--compiler-macro-cXXr)
#@58 Return the `car' of the `cdr' of the `cdr' of X.

(fn X)
(defalias 'cl-caddr #[257 #@22 ("\211AA@\207" . [])(#$ . 14374) nil 2 (#$ . 14285)])
(put 'cl-caddr 'compiler-macro 'cl--compiler-macro-cXXr)
#@58 Return the `cdr' of the `car' of the `car' of X.

(fn X)
(defalias 'cl-cdaar #[257 #@22 ("\211@@A\207" . [])(#$ . 14580) nil 2 (#$ . 14491)])
(put 'cl-cdaar 'compiler-macro 'cl--compiler-macro-cXXr)
#@58 Return the `cdr' of the `car' of the `cdr' of X.

(fn X)
(defalias 'cl-cdadr #[257 #@22 ("\211A@A\207" . [])(#$ . 14786) nil 2 (#$ . 14697)])
(put 'cl-cdadr 'compiler-macro 'cl--compiler-macro-cXXr)
#@58 Return the `cdr' of the `cdr' of the `car' of X.

(fn X)
(defalias 'cl-cddar #[257 #@22 ("\211@AA\207" . [])(#$ . 14992) nil 2 (#$ . 14903)])
(put 'cl-cddar 'compiler-macro 'cl--compiler-macro-cXXr)
#@58 Return the `cdr' of the `cdr' of the `cdr' of X.

(fn X)
(defalias 'cl-cdddr #[257 #@22 ("\211AAA\207" . [])(#$ . 15198) nil 2 (#$ . 15109)])
(put 'cl-cdddr 'compiler-macro 'cl--compiler-macro-cXXr)
#@71 Return the `car' of the `car' of the `car' of the `car' of X.

(fn X)
(defalias 'cl-caaaar #[257 #@23 ("\211@@@@\207" . [])(#$ . 15418) nil 2 (#$ . 15315)])
(put 'cl-caaaar 'compiler-macro 'cl--compiler-macro-cXXr)
#@71 Return the `car' of the `car' of the `car' of the `cdr' of X.

(fn X)
(defalias 'cl-caaadr #[257 #@23 ("\211A@@@\207" . [])(#$ . 15640) nil 2 (#$ . 15537)])
(put 'cl-caaadr 'compiler-macro 'cl--compiler-macro-cXXr)
#@71 Return the `car' of the `car' of the `cdr' of the `car' of X.

(fn X)
(defalias 'cl-caadar #[257 #@23 ("\211@A@@\207" . [])(#$ . 15862) nil 2 (#$ . 15759)])
(put 'cl-caadar 'compiler-macro 'cl--compiler-macro-cXXr)
#@71 Return the `car' of the `car' of the `cdr' of the `cdr' of X.

(fn X)
(defalias 'cl-caaddr #[257 #@23 ("\211AA@@\207" . [])(#$ . 16084) nil 2 (#$ . 15981)])
(put 'cl-caaddr 'compiler-macro 'cl--compiler-macro-cXXr)
#@71 Return the `car' of the `cdr' of the `car' of the `car' of X.

(fn X)
(defalias 'cl-cadaar #[257 #@23 ("\211@@A@\207" . [])(#$ . 16306) nil 2 (#$ . 16203)])
(put 'cl-cadaar 'compiler-macro 'cl--compiler-macro-cXXr)
#@71 Return the `car' of the `cdr' of the `car' of the `cdr' of X.

(fn X)
(defalias 'cl-cadadr #[257 #@23 ("\211A@A@\207" . [])(#$ . 16528) nil 2 (#$ . 16425)])
(put 'cl-cadadr 'compiler-macro 'cl--compiler-macro-cXXr)
#@71 Return the `car' of the `cdr' of the `cdr' of the `car' of X.

(fn X)
(defalias 'cl-caddar #[257 #@23 ("\211@AA@\207" . [])(#$ . 16750) nil 2 (#$ . 16647)])
(put 'cl-caddar 'compiler-macro 'cl--compiler-macro-cXXr)
#@71 Return the `car' of the `cdr' of the `cdr' of the `cdr' of X.

(fn X)
(defalias 'cl-cadddr #[257 #@23 ("\211AAA@\207" . [])(#$ . 16972) nil 2 (#$ . 16869)])
(put 'cl-cadddr 'compiler-macro 'cl--compiler-macro-cXXr)
#@71 Return the `cdr' of the `car' of the `car' of the `car' of X.

(fn X)
(defalias 'cl-cdaaar #[257 #@23 ("\211@@@A\207" . [])(#$ . 17194) nil 2 (#$ . 17091)])
(put 'cl-cdaaar 'compiler-macro 'cl--compiler-macro-cXXr)
#@71 Return the `cdr' of the `car' of the `car' of the `cdr' of X.

(fn X)
(defalias 'cl-cdaadr #[257 #@23 ("\211A@@A\207" . [])(#$ . 17416) nil 2 (#$ . 17313)])
(put 'cl-cdaadr 'compiler-macro 'cl--compiler-macro-cXXr)
#@71 Return the `cdr' of the `car' of the `cdr' of the `car' of X.

(fn X)
(defalias 'cl-cdadar #[257 #@23 ("\211@A@A\207" . [])(#$ . 17638) nil 2 (#$ . 17535)])
(put 'cl-cdadar 'compiler-macro 'cl--compiler-macro-cXXr)
#@71 Return the `cdr' of the `car' of the `cdr' of the `cdr' of X.

(fn X)
(defalias 'cl-cdaddr #[257 #@23 ("\211AA@A\207" . [])(#$ . 17860) nil 2 (#$ . 17757)])
(put 'cl-cdaddr 'compiler-macro 'cl--compiler-macro-cXXr)
#@71 Return the `cdr' of the `cdr' of the `car' of the `car' of X.

(fn X)
(defalias 'cl-cddaar #[257 #@23 ("\211@@AA\207" . [])(#$ . 18082) nil 2 (#$ . 17979)])
(put 'cl-cddaar 'compiler-macro 'cl--compiler-macro-cXXr)
#@71 Return the `cdr' of the `cdr' of the `car' of the `cdr' of X.

(fn X)
(defalias 'cl-cddadr #[257 #@23 ("\211A@AA\207" . [])(#$ . 18304) nil 2 (#$ . 18201)])
(put 'cl-cddadr 'compiler-macro 'cl--compiler-macro-cXXr)
#@71 Return the `cdr' of the `cdr' of the `cdr' of the `car' of X.

(fn X)
(defalias 'cl-cdddar #[257 #@23 ("\211@AAA\207" . [])(#$ . 18526) nil 2 (#$ . 18423)])
(put 'cl-cdddar 'compiler-macro 'cl--compiler-macro-cXXr)
#@71 Return the `cdr' of the `cdr' of the `cdr' of the `cdr' of X.

(fn X)
(defalias 'cl-cddddr #[257 #@23 ("\211AAAA\207" . [])(#$ . 18748) nil 2 (#$ . 18645)])
(put 'cl-cddddr 'compiler-macro 'cl--compiler-macro-cXXr)
#@193 Return a new list with specified ARGs as elements, consed to last ARG.
Thus, `(cl-list* A B C D)' is equivalent to `(nconc (list A B C) D)', or to
`(cons A (cons B (cons C D)))'.

(fn ARG...)
(defalias 'cl-list* #[385 #@112 ("\211\204
0

\207\211A\204
0



@B\207\211G\300!

\301Z

\233\211

A@\241\210B\207" . [copy-sequence 2])(#$ . 19093) nil 7 (#$ . 18868)])
(put 'cl-list* 'compiler-macro 'cl--compiler-macro-list*)
#@73 Return a copy of LIST with the tail SUBLIST removed.

(fn LIST SUBLIST)
(defalias 'cl-ldiff #[514 #@78 ("\300:\203
0=\204
0\211A\262@

B\262

\202


0\211\237\207" . [nil])(#$ . 19405) nil 5 (#$ . 19301)])
#@132 Return a copy of LIST, which may be a dotted list.
The elements of LIST are not copied, just the list structure itself.

(fn LIST)
(defalias 'cl-copy-list #[257 #@102 ("\211:\203
_
0\300

:\203
0

\211A\262@

B\262

\202
0\211\237

\241\210\207\211@\207" . [nil])(#$ . 19690) nil 5 (#$ . 19522)])
#@188 Return ITEM consed onto the front of LIST only if it's not already there.
Otherwise, return LIST unmodified.

Keywords supported:  :test :test-not :key

(fn ITEM LIST [KEYWORD VALUE]...)
(defalias 'cl-adjoin #[642 #@189 ("\211\300\232\204
0\211\204
0\247\204
0>\203
0

\207B\207\211\301\232\204%
0\211\2041
0\235\203-
0

\207B\207\302\303$\207" . [(:test eq) (:test equal) apply cl--adjoin])(#$ . 20052) nil 8 (#$ . 19831)])
(put 'cl-adjoin 'compiler-macro 'cl--compiler-macro-adjoin)
#@215 Substitute NEW for OLD everywhere in TREE (non-destructively).
Return a copy of TREE with all elements `eql' to OLD replaced by NEW.

Keywords supported:  :test :test-not :key

(fn NEW OLD TREE [KEYWORD VALUE]...)
(defalias 'cl-subst #[899 #@106 ("\211\204
0\247\203
0\250\204
0\300\301BC$\207\302#\207" . [apply cl-sublis cl--do-subst])(#$ . 20587) nil 9 (#$ . 20340)])
(defalias 'cl--do-subst #[771 #@118 ("\211=\203
0\207\211:\203/
0\300@#\300A#

@=\203+
0\211A=\203+
0\202.
0



B\207\207" . [cl--do-subst])(#$ . 20762) nil 8 "\n\n(fn CL-NEW CL-OLD CL-TREE)"])
#@116 Add KEY and VALUE to ALIST.
Return a new list with (cons KEY VALUE) as car and ALIST as cdr.

(fn KEY VALUE ALIST)
(defalias 'cl-acons #[771 #@21 ("B

B\207" . [])(#$ . 21086) nil 5 (#$ . 20939)])
#@253 Make an alist from KEYS and VALUES.
Return a new alist composed by associating KEYS to corresponding VALUES;
the process stops as soon as KEYS or VALUES run out.
If ALIST is non-nil, the new pairs are prepended to it.

(fn KEYS VALUES &optional ALIST)
(defalias 'cl-pairlis #[770 #@46 ("\300\301#

\244\207" . [cl-mapcar cons])(#$ . 21432) nil 7 (#$ . 21146)])
(byte-code "\300\301\302\303#\210\300\304\302\305#\210\300\306\302\307#\210\300\310\302\311#\210\300\312\302\313#\210\300\314\302\315#\210\300\316\302\317#\210\300\320\302\321#\210\300\322\302\323#\210\300\324\302\325#\210\300\326\302\327#\210\300\330\302\331#\210\300\332\302\333#\210\300\334\302\335#\210\300\336\302\337#\210\300\340\302\341#\210\300\342\302\343#\210\300\344\302\345#\210\300\346\302\347#\210\300\350\302\351#\210\300\352\302\353#\210\300\354\302\355#\210\300\356\302\357#\210\300\360\302\361#\210\300\362\302\363#\210\300\364\302\365#\210\300\366\302\367#\210\300\370\302\371#\210\300\372\302\373#\210\300\374\302\375#\210\300\376\302\377#\210\300\201@\302\201A#\210\300\201B\302\201C#\210\300\201D\302\201E#\210\300\201F\302\201G#\210\300\201H\302\201I#\210\300\201J\302\201K#\210\300\201L\302\201M#\210\300\201N\302\201O#\210\300\201P\302\201Q#\210\300\201R\302\201S#\210\300\201T\302\201U#\210\300\201V\302\201W#\210\300\201X\302\201Y#\210\300\201Z\302\201[#\210\300\201\\\302\201]#\210\300\201^\302\201_#\210\300\201`\302\201a#\210\300\201b\302\201c#\210\300\201d\302\201e#\210\300\201f\302\201g#\210\201h\201i\201j\"\210\300\201k\201l\201m#\210\300\201n\201l\201m#\210\300\201o\201l\201m#\210\300\201p\201l\201q#\210\201r\201s\201t\201u#\210\201v\201w!\207" [put buffer-file-name gv-expander #[385 "\300\301\302$\207" [gv--defsetter buffer-file-name #[385 "
\300
!\203\211\202\301\302!\303\304\305C\"BE
=\203\"\211\202)\306DC\"\207" [macroexp-const-p make-symbol #1="v" progn set-visited-file-name append macroexp-let*] 9 "\n\n(fn VAL &rest ARGS)"]] 7 "\n\n(fn DO &rest ARGS)"] buffer-modified-p #[385 "\300\301\302$\207" [gv--defsetter buffer-modified-p #[513 "\300
\301DE\207" [with-current-buffer set-buffer-modified-p] 6 "\n\n(fn FLAG &optional BUF)"]] 7 "\n\n(fn DO &rest ARGS)"] buffer-name #[385 "\300\301\302$\207" [gv--defsetter buffer-name #[385 "
\300
!\203\211\202\301\302!\303\304\305C\"BE
=\203\"\211\202)\306DC\"\207" [macroexp-const-p make-symbol #1# progn rename-buffer append macroexp-let*] 9 "\n\n(fn VAL &rest ARGS)"]] 7 "\n\n(fn DO &rest ARGS)"] buffer-string #[385 "\300\301\302$\207" [gv--defsetter buffer-string #[257 "\300\301\302BBD\207" [insert prog1 ((erase-buffer))] 5 "\n\n(fn STORE)"]] 7 "\n\n(fn DO &rest ARGS)"] buffer-substring #[385 "\300\301\302$\207" [gv--defsetter buffer-substring #[385 "\300\301C\"B\207" [cl--set-buffer-substring append] 6 "\n\n(fn VAL &rest ARGS)"]] 7 "\n\n(fn DO &rest ARGS)"] current-buffer #[385 "\300\301\302$\207" [gv--defsetter current-buffer #[385 "\300\301C\"B\207" [set-buffer append] 6 "\n\n(fn VAL &rest ARGS)"]] 7 "\n\n(fn DO &rest ARGS)"] current-case-table #[385 "\300\301\302$\207" [gv--defsetter current-case-table #[385 "\300\301C\"B\207" [set-case-table append] 6 "\n\n(fn VAL &rest ARGS)"]] 7 "\n\n(fn DO &rest ARGS)"] current-column #[385 "\300\301\302$\207" [gv--defsetter current-column #[385 "
\300
!\203\211\202\301\302!\303\304\305C\"BE
=\203\"\211\202)\306DC\"\207" [macroexp-const-p make-symbol #1# progn move-to-column append macroexp-let*] 9 "\n\n(fn VAL &rest ARGS)"]] 7 "\n\n(fn DO &rest ARGS)"] current-global-map #[385 "\300\301\302$\207" [gv--defsetter current-global-map #[385 "
\300
!\203\211\202\301\302!\303\304\305C\"BE
=\203\"\211\202)\306DC\"\207" [macroexp-const-p make-symbol #1# progn use-global-map append macroexp-let*] 9 "\n\n(fn VAL &rest ARGS)"]] 7 "\n\n(fn DO &rest ARGS)"] current-input-mode #[385 "\300\301\302$\207" [gv--defsetter current-input-mode #[257 "\300\301\302EE\207" [progn apply #'set-input-mode] 5 "\n\n(fn STORE)"]] 7 "\n\n(fn DO &rest ARGS)"] current-local-map #[385 "\300\301\302$\207" [gv--defsetter current-local-map #[385 "
\300
!\203\211\202\301\302!\303\304\305C\"BE
=\203\"\211\202)\306DC\"\207" [macroexp-const-p make-symbol #1# progn use-local-map append macroexp-let*] 9 "\n\n(fn VAL &rest ARGS)"]] 7 "\n\n(fn DO &rest ARGS)"] current-window-configuration #[385 "\300\301\302$\207" [gv--defsetter current-window-configuration #[385 "
\300
!\203\211\202\301\302!\303\304\305C\"BE
=\203\"\211\202)\306DC\"\207" [macroexp-const-p make-symbol #1# progn set-window-configuration append macroexp-let*] 9 "\n\n(fn VAL &rest ARGS)"]] 7 "\n\n(fn DO &rest ARGS)"] default-file-modes #[385 "\300\301\302$\207" [gv--defsetter default-file-modes #[385 "
\300
!\203\211\202\301\302!\303\304\305C\"BE
=\203\"\211\202)\306DC\"\207" [macroexp-const-p make-symbol #1# progn set-default-file-modes append macroexp-let*] 9 "\n\n(fn VAL &rest ARGS)"]] 7 "\n\n(fn DO &rest ARGS)"] documentation-property #[385 "\300\301\302$\207" [gv--defsetter documentation-property #[385 "\300\301C\"B\207" [put append] 6 "\n\n(fn VAL &rest ARGS)"]] 7 "\n\n(fn DO &rest ARGS)"] face-background #[385 "\300\301\302$\207" [gv--defsetter face-background #[770 "\300F\207" [set-face-background] 7 "\n\n(fn X F &optional S)"]] 7 "\n\n(fn DO &rest ARGS)"] face-background-pixmap #[385 "\300\301\302$\207" [gv--defsetter face-background-pixmap #[770 "\300F\207" [set-face-background-pixmap] 7 "\n\n(fn X F &optional S)"]] 7 "\n\n(fn DO &rest ARGS)"] face-font #[385 "\300\301\302$\207" [gv--defsetter face-font #[770 "\300F\207" [set-face-font] 7 "\n\n(fn X F &optional S)"]] 7 "\n\n(fn DO &rest ARGS)"] face-foreground #[385 "\300\301\302$\207" [gv--defsetter face-foreground #[770 "\300F\207" [set-face-foreground] 7 "\n\n(fn X F &optional S)"]] 7 "\n\n(fn DO &rest ARGS)"] face-underline-p #[385 "\300\301\302$\207" [gv--defsetter face-underline-p #[770 "\300F\207" [set-face-underline] 7 "\n\n(fn X F &optional S)"]] 7 "\n\n(fn DO &rest ARGS)"] file-modes #[385 "\300\301\302$\207" [gv--defsetter file-modes #[385 "
\300
!\203\211\202\301\302!\303\304\305C\"BE
=\203\"\211\202)\306DC\"\207" [macroexp-const-p make-symbol #1# progn set-file-modes append macroexp-let*] 9 "\n\n(fn VAL &rest ARGS)"]] 7 "\n\n(fn DO &rest ARGS)"] frame-height #[385 "\300\301\302$\207" [gv--defsetter frame-height #[385 "
\300
!\203\211\202\301\302!\303\304\305C\"BE
=\203\"\211\202)\306DC\"\207" [macroexp-const-p make-symbol #1# progn set-screen-height append macroexp-let*] 9 "\n\n(fn VAL &rest ARGS)"]] 7 "\n\n(fn DO &rest ARGS)"] frame-parameters #[385 "\300\301\302$\207" [gv--defsetter frame-parameters #[385 "
\300
!\203\211\202\301\302!\303\304\305C\"BE
=\203\"\211\202)\306DC\"\207" [macroexp-const-p make-symbol #1# progn modify-frame-parameters append macroexp-let*] 9 "\n\n(fn VAL &rest ARGS)"]] 7 "\n\n(fn DO &rest ARGS)"] frame-visible-p #[385 "\300\301\302$\207" [gv--defsetter frame-visible-p #[385 "\300\301C\"B\207" [cl--set-frame-visible-p append] 6 "\n\n(fn VAL &rest ARGS)"]] 7 "\n\n(fn DO &rest ARGS)"] frame-width #[385 "\300\301\302$\207" [gv--defsetter frame-width #[385 "
\300
!\203\211\202\301\302!\303\304\305C\"BE
=\203\"\211\202)\306DC\"\207" [macroexp-const-p make-symbol #1# progn set-screen-width append macroexp-let*] 9 "\n\n(fn VAL &rest ARGS)"]] 7 "\n\n(fn DO &rest ARGS)"] getenv #[385 "\300\301\302$\207" [gv--defsetter getenv #[385 "
\300
!\203\211\202\301\302!\303\304\305C\"BE
=\203\"\211\202)\306DC\"\207" [macroexp-const-p make-symbol #1# progn setenv append macroexp-let*] 9 "\n\n(fn VAL &rest ARGS)"]] 7 "\n\n(fn DO &rest ARGS)"] get-register #[385 "\300\301\302$\207" [gv--defsetter get-register #[385 "\300\301C\"B\207" [set-register append] 6 "\n\n(fn VAL &rest ARGS)"]] 7 "\n\n(fn DO &rest ARGS)"] global-key-binding #[385 "\300\301\302$\207" [gv--defsetter global-key-binding #[385 "\300\301C\"B\207" [global-set-key append] 6 "\n\n(fn VAL &rest ARGS)"]] 7 "\n\n(fn DO &rest ARGS)"] local-key-binding #[385 "\300\301\302$\207" [gv--defsetter local-key-binding #[385 "\300\301C\"B\207" [local-set-key append] 6 "\n\n(fn VAL &rest ARGS)"]] 7 "\n\n(fn DO &rest ARGS)"] mark #[385 "\300\301\302$\207" [gv--defsetter mark #[385 "
\300
!\203\211\202\301\302!\303\304\305C\"BE
=\203\"\211\202)\306DC\"\207" [macroexp-const-p make-symbol #1# progn set-mark append macroexp-let*] 9 "\n\n(fn VAL &rest ARGS)"]] 7 "\n\n(fn DO &rest ARGS)"] mark-marker #[385 "\300\301\302$\207" [gv--defsetter mark-marker #[385 "
\300
!\203\211\202\301\302!\303\304\305C\"BE
=\203\"\211\202)\306DC\"\207" [macroexp-const-p make-symbol #1# progn set-mark append macroexp-let*] 9 "\n\n(fn VAL &rest ARGS)"]] 7 "\n\n(fn DO &rest ARGS)"] marker-position #[385 "\300\301\302$\207" [gv--defsetter marker-position #[385 "
\300
!\203\211\202\301\302!\303\304\305C\"BE
=\203\"\211\202)\306DC\"\207" [macroexp-const-p make-symbol #1# progn set-marker append macroexp-let*] 9 "\n\n(fn VAL &rest ARGS)"]] 7 "\n\n(fn DO &rest ARGS)"] mouse-position #[385 "\300\301\302$\207" [gv--defsetter mouse-position #[514 "\300
\301D\302D\303D\257\207" [set-mouse-position car cadr cddr] 8 "\n\n(fn STORE SCR)"]] 7 "\n\n(fn DO &rest ARGS)"] point #[385 "\300\301\302$\207" [gv--defsetter point #[385 "\300\301C\"B\207" [goto-char append] 6 "\n\n(fn VAL &rest ARGS)"]] 7 "\n\n(fn DO &rest ARGS)"] point-marker #[385 "\300\301\302$\207" [gv--defsetter point-marker #[385 "
\300
!\203\211\202\301\302!\303\304\305C\"BE
=\203\"\211\202)\306DC\"\207" [macroexp-const-p make-symbol #1# progn goto-char append macroexp-let*] 9 "\n\n(fn VAL &rest ARGS)"]] 7 "\n\n(fn DO &rest ARGS)"] point-max #[385 "\300\301\302$\207" [gv--defsetter point-max #[257 "\300\301\302EE\207" [progn narrow-to-region (point-min)] 5 "\n\n(fn STORE)"]] 7 "\n\n(fn DO &rest ARGS)"] point-min #[385 "\300\301\302$\207" [gv--defsetter point-min #[257 "\300\301\302BBE\207" [progn narrow-to-region ((point-max))] 5 "\n\n(fn STORE)"]] 7 "\n\n(fn DO &rest ARGS)"] read-mouse-position #[385 "\300\301\302$\207" [gv--defsetter read-mouse-position #[514 "\300
\301D\302DF\207" [set-mouse-position car cdr] 7 "\n\n(fn STORE SCR)"]] 7 "\n\n(fn DO &rest ARGS)"] screen-height #[385 "\300\301\302$\207" [gv--defsetter screen-height #[385 "
\300
!\203\211\202\301\302!\303\304\305C\"BE
=\203\"\211\202)\306DC\"\207" [macroexp-const-p make-symbol #1# progn set-screen-height append macroexp-let*] 9 "\n\n(fn VAL &rest ARGS)"]] 7 "\n\n(fn DO &rest ARGS)"] screen-width #[385 "\300\301\302$\207" [gv--defsetter screen-width #[385 "
\300
!\203\211\202\301\302!\303\304\305C\"BE
=\203\"\211\202)\306DC\"\207" [macroexp-const-p make-symbol #1# progn set-screen-width append macroexp-let*] 9 "\n\n(fn VAL &rest ARGS)"]] 7 "\n\n(fn DO &rest ARGS)"] selected-window #[385 "\300\301\302$\207" [gv--defsetter selected-window #[385 "\300\301C\"B\207" [select-window append] 6 "\n\n(fn VAL &rest ARGS)"]] 7 "\n\n(fn DO &rest ARGS)"] selected-screen #[385 "\300\301\302$\207" [gv--defsetter selected-screen #[385 "\300\301C\"B\207" [select-screen append] 6 "\n\n(fn VAL &rest ARGS)"]] 7 "\n\n(fn DO &rest ARGS)"] selected-frame #[385 "\300\301\302$\207" [gv--defsetter selected-frame #[385 "\300\301C\"B\207" [select-frame append] 6 "\n\n(fn VAL &rest ARGS)"]] 7 "\n\n(fn DO &rest ARGS)"] standard-case-table #[385 "\300\301\302$\207" [gv--defsetter standard-case-table #[385 "\300\301C\"B\207" [set-standard-case-table append] 6 "\n\n(fn VAL &rest ARGS)"]] 7 "\n\n(fn DO &rest ARGS)"] syntax-table #[385 "\300\301\302$\207" [gv--defsetter syntax-table #[385 "\300\301C\"B\207" [set-syntax-table append] 6 "\n\n(fn VAL &rest ARGS)"]] 7 "\n\n(fn DO &rest ARGS)"] visited-file-modtime #[385 "\300\301\302$\207" [gv--defsetter visited-file-modtime #[385 "
\300
!\203\211\202\301\302!\303\304\305C\"BE
=\203\"\211\202)\306DC\"\207" [macroexp-const-p make-symbol #1# progn set-visited-file-modtime append macroexp-let*] 9 "\n\n(fn VAL &rest ARGS)"]] 7 "\n\n(fn DO &rest ARGS)"] window-height #[385 "\300\301\302$\207" [gv--defsetter window-height #[257 "\300\301\302\303BBDE\207" [progn enlarge-window - ((window-height))] 6 "\n\n(fn STORE)"]] 7 "\n\n(fn DO &rest ARGS)"] window-width #[385 "\300\301\302$\207" [gv--defsetter window-width #[257 "\300\301\302\303BB\304BBE\207" [progn enlarge-window - ((window-width)) (t)] 6 "\n\n(fn STORE)"]] 7 "\n\n(fn DO &rest ARGS)"] x-get-secondary-selection #[385 "\300\301\302$\207" [gv--defsetter x-get-secondary-selection #[385 "
\300
!\203\211\202\301\302!\303\304\305C\"BE
=\203\"\211\202)\306DC\"\207" [macroexp-const-p make-symbol #1# progn x-own-secondary-selection append macroexp-let*] 9 "\n\n(fn VAL &rest ARGS)"]] 7 "\n\n(fn DO &rest ARGS)"] x-get-selection #[385 "\300\301\302$\207" [gv--defsetter x-get-selection #[385 "
\300
!\203\211\202\301\302!\303\304\305C\"BE
=\203\"\211\202)\306DC\"\207" [macroexp-const-p make-symbol #1# progn x-own-selection append macroexp-let*] 9 "\n\n(fn VAL &rest ARGS)"]] 7 "\n\n(fn DO &rest ARGS)"] eq #[771 "\300\301\302\303\304\305	\"\306\"\307\310%\"\207" [gv-get make-byte-code 514 "\301\302
!\203\211\202\303\304!\300\305E\306\307\310\311\312\n\n	#\313\"\314\315%\"
=\203/\211\2026\316DC\"\207" vconcat vector [macroexp-const-p make-symbol "val" eq make-byte-code 257 "\303
\301\302!D\304\300\302E\301\305\302D!DE\207" vconcat vector [cond eq not] 7 "\n\n(fn V)" macroexp-let*] 14 "\n\n(fn GETTER SETTER)"] 12 "\n\n(fn DO PLACE VAL)"] substring #[1027 "\300\301\302\303\304\305\n		#\306\"\307\310%\"\207" [gv-get make-byte-code 514 "\301\303
!\203\211\202\304\305!\302\303
!\203\211\202\304\306!\300\307F\310\311\312\313\314\f\f\n$\315\"\316\317%\"
=\203A\211\202H\320DC\"\266\203
=\203T\211\202[\320DC\"\207" vconcat vector [macroexp-const-p make-symbol "start" "end" substring make-byte-code 257 "\301\304\300\302\303\257!\207" vconcat vector [cl--set-substring] 7 "\n\n(fn V)" macroexp-let*] 17 "\n\n(fn GETTER SETTER)"] 14 "\n\n(fn DO PLACE FROM &optional TO)"] autoload cl--defsubst-expand "cl-macs" cl-defun doc-string-elt 3 cl-defmacro cl-defsubst cl-defstruct 2 load "cl-loaddefs" nil quiet provide cl-lib] 4)