Current File : //usr/local/share/emacs/27.2/lisp/emacs-lisp/cl-lib.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; 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@\301N\203! \302N\204! \305\302\301N#\210A\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 (#$ . 770))
#@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 "9\203 \300\203 \301E\202 \302DE\207\303\301\206 \304F\207" [setq + 1+ cl-callf 1] 7 (#$ . 1271)]))
(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 "9\203 \300\203 \301E\202 \302DE\207\303\301\206 \304F\207" [setq - 1- cl-callf 1] 7 (#$ . 1665)]))
(put 'cl-decf 'edebug-form-spec 'cl-incf)
#@316 Add X to the list stored in PLACE unless X is already in the list.
PLACE is a generalized variable that stores a list.
Like (push X PLACE), except that PLACE is unmodified if X is `eql'
to an element already in the list stored in PLACE.
Keywords supported: :test :test-not :key
(fn X PLACE [KEYWORD VALUE]...)
(defalias 'cl-pushnew '(macro . #[642 "9\203I \211\204> \300!\203 \211\202 \301\302!\303\304E\305D\306\307\nEEF=\2036 \211\202= \310DC\"\207\306\311BBBE\207\312\311BBBB\207" [macroexp-const-p make-symbol "var" if memql with-no-warnings setq cons macroexp-let* cl-adjoin cl-callf2] 13 (#$ . 2044)]))
(put 'cl-pushnew 'edebug-form-spec '(form place &rest &or [[&or ":test" ":test-not" ":key"] function-form] [keywordp form]))
#@22
(fn START END VAL)
(defalias 'cl--set-buffer-substring #[771 "\212|\210b\210\211c\210)\207" [] 5 (#$ . 2816)])
#@26
(fn STR START END VAL)
(defalias 'cl--set-substring #[1028 "\203 \300W\203 G\\\262\202 G\262\300W\203# G\\\262\300V\205. \301\300#GW\205< \301\"Q\207" [0 substring] 9 (#$ . 2938)])
(byte-code "\300\301\302\"\210\300\303\304\"\207" [defalias cl--block-wrapper identity cl--block-throw throw] 3)
#@32
(fn CL-F EL-F &optional DOC)
(defalias 'cl--defalias #[770 "\300#\210\301\302\303#\207" [defalias put byte-optimizer byte-compile-inline-expand] 7 (#$ . 3264)])
(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)")
#@256 Return multiple values, Common Lisp style, taken from a list.
LIST specifies the list of values that the containing function
should return.
Note that Emacs Lisp doesn't really support multiple values, so
all this function does is return LIST.
(fn LIST)
(defalias 'cl-values-list #[257 "\211<\204\n \300\301\"\210\207" [signal wrong-type-argument] 4 (#$ . 3626)])
#@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 "\207" [] 2 (#$ . 3999)])
(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 "\300\"\207" [apply] 5 (#$ . 4385)])
(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 "\206 \301\302!\205 \303\302J!\205 \304\302J!\305\232\207" [cl--compiling-file boundp byte-compile--outbuffer bufferp buffer-name " *Compiler Output*"] 2])
(defvar cl--proclaims-deferred nil)
#@59 Record a global declaration specified by SPEC.
(fn SPEC)
(defalias 'cl-proclaim #[257 "\301\302!\203 \302\303\"\210\202 \211B\304\207" [cl--proclaims-deferred fboundp cl--do-proclaim t nil] 4 (#$ . 5610)])
#@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 "\300\301\"\302 \203 \303\304BB\202 \305B\207" [mapcar #[257 "\300\301DD\207" [cl-proclaim quote] 4 "\n\n(fn X)"] cl--compiling-file cl-eval-when (compile load eval) progn] 5 (#$ . 5829)]))
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias cl-floatp-safe floatp nil make-obsolete "24.4"] 4)
#@46 Return t if NUMBER is positive.
(fn NUMBER)
(defalias 'cl-plusp #[257 "\211\300V\207" [0] 3 (#$ . 6416)])
(put 'cl-plusp 'byte-optimizer 'byte-compile-inline-expand)
#@46 Return t if NUMBER is negative.
(fn NUMBER)
(defalias 'cl-minusp #[257 "\211\300W\207" [0] 3 (#$ . 6589)])
(put 'cl-minusp 'byte-optimizer 'byte-compile-inline-expand)
#@43 Return t if INTEGER is odd.
(fn INTEGER)
(defalias 'cl-oddp #[257 "\300\301\"\301=\207" [logand 1] 4 (#$ . 6764)])
#@44 Return t if INTEGER is even.
(fn INTEGER)
(defalias 'cl-evenp #[257 "\300\301\"\302=\207" [logand 1 0] 4 (#$ . 6887)])
(defconst cl-digit-char-table (byte-code "\300\301\302\"\303\211\304\305\306$\210\211\307\310\311$\210\211\312\313\311$\210\207" [make-vector 256 nil #[1028 "\300\301\302\303\304\305 #\306\"\307\310%\311\"\"\207" [mapc make-byte-code 257 "\300\302\301Z\\I\207" vconcat vector [] 6 "\n\n(fn I)" number-sequence] 13 "\n\n(fn DIGITS START END BASE)"] 48 57 0 65 90 10 97 122] 7))
#@146 Test if CHAR is a digit in the specified RADIX (default 10).
If true return the decimal value of digit CHAR in RADIX.
(fn CHAR &optional RADIX)
(defalias 'cl-digit-char-p #[513 "\301\302\206 \303\304#\204 \305\306\307\310E\"\210H\211\205& \211\206! \303W\205& \211\207" [cl-digit-char-table <= 2 10 36 signal args-out-of-range radix (2 36)] 7 (#$ . 7405)])
#@201 The largest value that a Lisp float can hold.
If your system supports infinities, this is the largest finite value.
For Emacs, this equals 1.7976931348623157e+308.
Call `cl-float-limits' to set this.
(defconst cl-most-positive-float nil (#$ . 7777))
#@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 (#$ . 8034))
#@222 The smallest value greater than zero that a Lisp float can hold.
For Emacs, this equals 5e-324 if subnormal numbers are supported,
`cl-least-positive-normalized-float' if they are not.
Call `cl-float-limits' to set this.
(defconst cl-least-positive-float nil (#$ . 8224))
#@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 (#$ . 8503))
#@191 The smallest normalized Lisp float greater than zero.
This is the smallest value that has full precision.
For Emacs, this equals 2.2250738585072014e-308.
Call `cl-float-limits' to set this.
(defconst cl-least-positive-normalized-float nil (#$ . 8702))
#@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 (#$ . 8961))
#@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 Emacs, this equals 2.220446049250313e-16.
Call `cl-float-limits' to set this.
(defconst cl-float-epsilon nil (#$ . 9171))
#@162 The smallest positive float that subtracts from 1.0 to give a distinct value.
For Emacs, this equals 1.1102230246251565e-16.
Call `cl-float-limits' to set this.
(defconst cl-float-negative-epsilon nil (#$ . 9442))
(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 "\211\203? \211A\204 <\203 \211@<\204 \300B\301#\207\302@\203< \211\203< \211A\262\242\211A\262\242\"B\262\202 \237\207\303\"\207" [cl--mapcar-many accumulate nil mapcar] 9 (#$ . 9706)])
(byte-code "\300\301\302\"\210\300\303\304\"\210\300\305\306\"\210\300\307\310\"\210\300\311\312\313#\210\300\314\315\316#\207" [cl--defalias cl-svref aref cl-first car cl-second cadr cl-rest cdr 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 "\3008\207" [4] 3 (#$ . 10632)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-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)"] put byte-optimizer byte-compile-inline-expand] 5)
#@49 Return the sixth element of the list X.
(fn X)
(defalias 'cl-sixth #[257 "\3008\207" [5] 3 (#$ . 11033)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-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)"] put byte-optimizer byte-compile-inline-expand] 5)
#@51 Return the seventh element of the list X.
(fn X)
(defalias 'cl-seventh #[257 "\3008\207" [6] 3 (#$ . 11434)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-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)"] put byte-optimizer byte-compile-inline-expand] 5)
#@50 Return the eighth element of the list X.
(fn X)
(defalias 'cl-eighth #[257 "\3008\207" [7] 3 (#$ . 11843)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-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)"] put byte-optimizer byte-compile-inline-expand] 5)
#@49 Return the ninth element of the list X.
(fn X)
(defalias 'cl-ninth #[257 "\3008\207" [8] 3 (#$ . 12248)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-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)"] put byte-optimizer byte-compile-inline-expand] 5)
#@49 Return the tenth element of the list X.
(fn X)
(defalias 'cl-tenth #[257 "\3008\207" [9] 3 (#$ . 12649)])
(byte-code "\300\301\302\303#\304\301\305\306#\210\307\310\311\"\210\307\312\313\"\210\307\314\315\"\210\307\316\317\"\210\307\320\321\"\210\307\322\323\"\210\307\324\325\"\210\307\326\327\"\210\307\330\331\"\210\307\332\333\"\210\307\334\335\"\210\307\336\337\"\210\307\340\341\"\210\307\342\343\"\210\307\344\345\"\210\307\346\347\"\210\307\350\351\"\210\307\352\353\"\210\307\354\355\"\210\307\356\357\"\210\307\360\361\"\210\307\362\363\"\210\307\364\365\"\210\307\366\367\"\207" [function-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)"] put byte-optimizer byte-compile-inline-expand defalias cl-caaar caaar cl-caadr caadr cl-cadar cadar cl-caddr caddr cl-cdaar cdaar cl-cdadr cdadr cl-cddar cddar cl-cdddr cdddr cl-caaaar caaaar cl-caaadr caaadr cl-caadar caadar cl-caaddr caaddr cl-cadaar cadaar cl-cadadr cadadr cl-caddar caddar cl-cadddr cadddr cl-cdaaar cdaaar cl-cdaadr cdaadr cl-cdadar cdadar cl-cdaddr cdaddr cl-cddaar cddaar cl-cddadr cddadr cl-cdddar cdddar cl-cddddr cddddr] 5)
#@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 "\211\204 \207\211A\204 @B\207\211G\300!\301Z\233\211A@\241\210B\207" [copy-sequence 2] 7 (#$ . 13884)])
(byte-code "\300\301\302\303#\300\207" [function-put cl-list* compiler-macro cl--compiler-macro-list*] 4)
#@73 Return a copy of LIST with the tail SUBLIST removed.
(fn LIST SUBLIST)
(defalias 'cl-ldiff #[514 "\300:\203 =\204 \211A\262\242B\262\202 \211\237\207" [nil] 5 (#$ . 14330)])
#@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 "\211:\203 \300:\203 \211A\262\242B\262\202 \211\237\241\210\207\211@\207" [nil] 5 (#$ . 14522)])
#@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 "\211\300\232\204 \211\204 \247\204 >\203 \207B\207\211\301\232\204% \211\2041 \235\203- \207B\207\302\303$\207" [(:test eq) (:test equal) apply cl--adjoin] 8 (#$ . 14798)])
(byte-code "\300\301\302\303#\300\207" [function-put cl-adjoin compiler-macro cl--compiler-macro-adjoin] 4)
#@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 "\211\204 \247\203 \250\204 \300\301BC$\207\302#\207" [apply cl-sublis cl--do-subst] 9 (#$ . 15319)])
#@30
(fn CL-NEW CL-OLD CL-TREE)
(defalias 'cl--do-subst #[771 "\211=\203 \207\211:\203/ \300@#\300A#@=\203+ \211A=\203+ \202. B\207\207" [cl--do-subst] 8 (#$ . 15680)])
#@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 "BB\207" [] 5 (#$ . 15868)])
#@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 "\300\301#\244\207" [cl-mapcar cons] 7 (#$ . 16048)])
(byte-code "\300\301\302\303#\300\304\302\305#\300\306\302\307#\300\310\302\311#\300\312\302\313#\300\314\302\315#\300\316\302\317#\300\320\302\321#\300\322\302\323#\300\324\302\325#\300\326\302\327#\300\330\302\331#\300\332\302\333#\300\334\302\335#\300\336\302\337#\300\340\302\341#\300\342\302\343#\300\344\302\345#\300\346\302\347#\300\350\302\351#\300\352\302\353#\300\354\302\355#\300\356\302\357#\300\360\302\361#\300\362\302\363#\300\364\302\365#\300\366\302\367#\300\370\302\371#\300\372\302\373#\300\374\302\375#\300\376\302\377#\300\201@ \302\201A #\300\201B \302\201C #\300\201D \302\201E #\300\201F \302\201G #\300\201H \302\201I #\300\201J \302\201K #\300\201L \302\201M #\300\201N \302\201O #\300\201P \302\201Q #\300\201R \302\201S #\300\201T \302\201U #\300\201V \302\201W #\300\201X \302\201Y #\300\201Z \302\201[ #\300\201\\ \302\201] #\300\201^ \302\201_ #\300\201` \302\201a #\300\201b \302\201c #\201d \201e !\210\201f \201g \201h \201i #\204e\201j \201k !\210\201j \201l !\210\300\207" [function-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\301BB\302!\203 \211\202 \303\304!\305\306DE=\203# \211\202* \307DC\"\207" [or ((current-buffer)) macroexp-const-p make-symbol "buffer" with-current-buffer set-buffer-modified-p macroexp-let*] 8 "\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-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 #[513 "\300\301\302BBE\207" [set-frame-height or ((selected-frame))] 6 "\n\n(fn X &optional FRAME)"]] 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 #[513 "\300\301\302BBE\207" [set-frame-width or ((selected-frame))] 6 "\n\n(fn X &optional FRAME)"]] 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)"] 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)"] provide cl-lib load "cl-loaddefs" noerror quiet require cl-macs cl-seq] 53)
#@24
(fn ORIG-FUN OBJECT)
(defalias 'cl--old-struct-type-of #[514 "\301!\203\\ \211G\302V\203\\ \211\302H\2119\205W \303\304\305!\"\205W \211K\306=\204B \307\310\305!\304G\"!\311!K\306=\204@ L\210\306M\210\266\312J!>\204S \313\314\315JD\"\210\211J\316H\262\206_ !\207" [cl-struct-cl--class-tags vectorp 0 string-prefix-p "cl-struct-" symbol-name :quick-object-witness-check intern substring cl--struct-get-class type-of signal wrong-type-argument cl--class 1] 7 (#$ . 29630)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315& \207" [custom-declare-variable cl-old-struct-compat-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Cl-Old-Struct-Compat mode is enabled.\nSee the `cl-old-struct-compat-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `cl-old-struct-compat-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :group cl-old-struct-compat :type boolean] 12)
#@478 Enable backward compatibility with old-style structs.
This can be needed when using code byte-compiled using the old
macro-expansion of `cl-defstruct' that used vectors objects instead
of record objects.
If called interactively, enable Cl-Old-Struct-Compat mode if ARG is
positive, and disable it if ARG is zero or negative. If called from
Lisp, also enable the mode if ARG is omitted or nil, and toggle it if
ARG is `toggle'; disable the mode otherwise.
(fn &optional ARG)
(defalias 'cl-old-struct-compat-mode #[256 "\301 \302\300\303=\203 \304\300!?\202 \305!\306V\"\210\203% \307\310\311\312#\210\202* \313\310\312\"\210\314\315\304\300!\2036 \316\2027 \317\"\210\320\321!\203a \322\300!\210\301 \203O \211\301 \232\203a \323\324\325\304\300!\203\\ \326\202] \327#\266\210\330 \210\304\300!\207" [cl-old-struct-compat-mode current-message set-default toggle default-value prefix-numeric-value 0 advice-add type-of :around cl--old-struct-type-of advice-remove run-hooks cl-old-struct-compat-mode-hook cl-old-struct-compat-mode-on-hook cl-old-struct-compat-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Cl-Old-Struct-Compat mode %sabled%s" "en" "dis" force-mode-line-update] 7 (#$ . 30710) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(defvar cl-old-struct-compat-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\207" [cl-old-struct-compat-mode-map cl-old-struct-compat-mode-hook variable-documentation put "Hook run after entering or leaving `cl-old-struct-compat-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode cl-old-struct-compat-mode nil boundp] 6)
Mini Shell