From 093c025774f7bfecdfef9390face7093a2679746 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 4 Jun 2012 10:00:32 -0400 Subject: [PATCH] Update autogenerated bootstrap file. --- lisp/emacs-lisp/cl-loaddefs.el | 533 +++++++++++++++++---------------- 1 file changed, 269 insertions(+), 264 deletions(-) diff --git a/lisp/emacs-lisp/cl-loaddefs.el b/lisp/emacs-lisp/cl-loaddefs.el index ab5258b23b0..6d4f60b1029 100644 --- a/lisp/emacs-lisp/cl-loaddefs.el +++ b/lisp/emacs-lisp/cl-loaddefs.el @@ -4,22 +4,24 @@ ;;;### (autoloads (cl-prettyexpand cl-macroexpand-all cl-remprop -;;;;;; cl-do-remf cl-set-getf getf get* tailp list-length nreconc -;;;;;; revappend concatenate subseq cl-float-limits random-state-p -;;;;;; make-random-state random* signum rem* mod* round* truncate* -;;;;;; ceiling* floor* isqrt lcm gcd cl-progv-before cl-set-frame-visible-p -;;;;;; cl-map-overlays cl-map-intervals cl-map-keymap-recursively -;;;;;; notevery notany every some mapcon mapcan mapl maplist map -;;;;;; cl-mapcar-many equalp coerce) "cl-extra" "cl-extra.el" "1a3a04c6a0286373093bea4b9bcf2e91") +;;;;;; cl-do-remf cl-set-getf cl-getf cl-get cl-tailp cl-list-length +;;;;;; cl-nreconc cl-revappend cl-concatenate cl-subseq cl-float-limits +;;;;;; cl-random-state-p cl-make-random-state cl-random cl-signum +;;;;;; cl-rem cl-mod cl-round cl-truncate cl-ceiling cl-floor cl-isqrt +;;;;;; cl-lcm cl-gcd cl-progv-before cl-set-frame-visible-p cl-map-overlays +;;;;;; cl-map-intervals cl-map-keymap-recursively cl-notevery cl-notany +;;;;;; cl-every cl-some cl-mapcon cl-mapcan cl-mapl cl-maplist cl-map +;;;;;; cl-mapcar-many cl-equalp cl-coerce) "cl-extra" "cl-extra.el" +;;;;;; "acc0000b09b27fb51f5ba23a4b9254e2") ;;; Generated autoloads from cl-extra.el -(autoload 'coerce "cl-extra" "\ +(autoload 'cl-coerce "cl-extra" "\ Coerce OBJECT to type TYPE. TYPE is a Common Lisp type specifier. \(fn OBJECT TYPE)" nil nil) -(autoload 'equalp "cl-extra" "\ +(autoload 'cl-equalp "cl-extra" "\ Return t if two Lisp objects have similar structures and contents. This is like `equal', except that it accepts numerically equal numbers of different types (float vs. integer), and also compares @@ -32,51 +34,51 @@ strings case-insensitively. \(fn CL-FUNC CL-SEQS)" nil nil) -(autoload 'map "cl-extra" "\ +(autoload 'cl-map "cl-extra" "\ Map a FUNCTION across one or more SEQUENCEs, returning a sequence. TYPE is the sequence type to return. \(fn TYPE FUNCTION SEQUENCE...)" nil nil) -(autoload 'maplist "cl-extra" "\ +(autoload 'cl-maplist "cl-extra" "\ Map FUNCTION to each sublist of LIST or LISTs. Like `mapcar', except applies to lists and their cdr's rather than to the elements themselves. \(fn FUNCTION LIST...)" nil nil) -(autoload 'mapl "cl-extra" "\ -Like `maplist', but does not accumulate values returned by the function. +(autoload 'cl-mapl "cl-extra" "\ +Like `cl-maplist', but does not accumulate values returned by the function. \(fn FUNCTION LIST...)" nil nil) -(autoload 'mapcan "cl-extra" "\ +(autoload 'cl-mapcan "cl-extra" "\ Like `mapcar', but nconc's together the values returned by the function. \(fn FUNCTION SEQUENCE...)" nil nil) -(autoload 'mapcon "cl-extra" "\ -Like `maplist', but nconc's together the values returned by the function. +(autoload 'cl-mapcon "cl-extra" "\ +Like `cl-maplist', but nconc's together the values returned by the function. \(fn FUNCTION LIST...)" nil nil) -(autoload 'some "cl-extra" "\ +(autoload 'cl-some "cl-extra" "\ Return true if PREDICATE is true of any element of SEQ or SEQs. If so, return the true (non-nil) value returned by PREDICATE. \(fn PREDICATE SEQ...)" nil nil) -(autoload 'every "cl-extra" "\ +(autoload 'cl-every "cl-extra" "\ Return true if PREDICATE is true of every element of SEQ or SEQs. \(fn PREDICATE SEQ...)" nil nil) -(autoload 'notany "cl-extra" "\ +(autoload 'cl-notany "cl-extra" "\ Return true if PREDICATE is false of every element of SEQ or SEQs. \(fn PREDICATE SEQ...)" nil nil) -(autoload 'notevery "cl-extra" "\ +(autoload 'cl-notevery "cl-extra" "\ Return true if PREDICATE is false of some element of SEQ or SEQs. \(fn PREDICATE SEQ...)" nil nil) @@ -108,124 +110,124 @@ Return true if PREDICATE is false of some element of SEQ or SEQs. \(fn SYMS VALUES)" nil nil) -(autoload 'gcd "cl-extra" "\ +(autoload 'cl-gcd "cl-extra" "\ Return the greatest common divisor of the arguments. \(fn &rest ARGS)" nil nil) -(autoload 'lcm "cl-extra" "\ +(autoload 'cl-lcm "cl-extra" "\ Return the least common multiple of the arguments. \(fn &rest ARGS)" nil nil) -(autoload 'isqrt "cl-extra" "\ +(autoload 'cl-isqrt "cl-extra" "\ Return the integer square root of the argument. \(fn X)" nil nil) -(autoload 'floor* "cl-extra" "\ +(autoload 'cl-floor "cl-extra" "\ Return a list of the floor of X and the fractional part of X. With two arguments, return floor and remainder of their quotient. \(fn X &optional Y)" nil nil) -(autoload 'ceiling* "cl-extra" "\ +(autoload 'cl-ceiling "cl-extra" "\ Return a list of the ceiling of X and the fractional part of X. With two arguments, return ceiling and remainder of their quotient. \(fn X &optional Y)" nil nil) -(autoload 'truncate* "cl-extra" "\ +(autoload 'cl-truncate "cl-extra" "\ Return a list of the integer part of X and the fractional part of X. With two arguments, return truncation and remainder of their quotient. \(fn X &optional Y)" nil nil) -(autoload 'round* "cl-extra" "\ +(autoload 'cl-round "cl-extra" "\ Return a list of X rounded to the nearest integer and the remainder. With two arguments, return rounding and remainder of their quotient. \(fn X &optional Y)" nil nil) -(autoload 'mod* "cl-extra" "\ +(autoload 'cl-mod "cl-extra" "\ The remainder of X divided by Y, with the same sign as Y. \(fn X Y)" nil nil) -(autoload 'rem* "cl-extra" "\ +(autoload 'cl-rem "cl-extra" "\ The remainder of X divided by Y, with the same sign as X. \(fn X Y)" nil nil) -(autoload 'signum "cl-extra" "\ +(autoload 'cl-signum "cl-extra" "\ Return 1 if X is positive, -1 if negative, 0 if zero. \(fn X)" nil nil) -(autoload 'random* "cl-extra" "\ +(autoload 'cl-random "cl-extra" "\ Return a random nonnegative number less than LIM, an integer or float. Optional second arg STATE is a random-state object. \(fn LIM &optional STATE)" nil nil) -(autoload 'make-random-state "cl-extra" "\ +(autoload 'cl-make-random-state "cl-extra" "\ Return a copy of random-state STATE, or of the internal state if omitted. If STATE is t, return a new state object seeded from the time of day. \(fn &optional STATE)" nil nil) -(autoload 'random-state-p "cl-extra" "\ +(autoload 'cl-random-state-p "cl-extra" "\ Return t if OBJECT is a random-state object. \(fn OBJECT)" nil nil) (autoload 'cl-float-limits "cl-extra" "\ Initialize the Common Lisp floating-point parameters. -This sets the values of: `most-positive-float', `most-negative-float', -`least-positive-float', `least-negative-float', `float-epsilon', -`float-negative-epsilon', `least-positive-normalized-float', and -`least-negative-normalized-float'. +This sets the values of: `cl-most-positive-float', `cl-most-negative-float', +`cl-least-positive-float', `cl-least-negative-float', `cl-float-epsilon', +`cl-float-negative-epsilon', `cl-least-positive-normalized-float', and +`cl-least-negative-normalized-float'. \(fn)" nil nil) -(autoload 'subseq "cl-extra" "\ +(autoload 'cl-subseq "cl-extra" "\ Return the subsequence of SEQ from START to END. If END is omitted, it defaults to the length of the sequence. If START or END is negative, it counts from the end. \(fn SEQ START &optional END)" nil nil) -(autoload 'concatenate "cl-extra" "\ +(autoload 'cl-concatenate "cl-extra" "\ Concatenate, into a sequence of type TYPE, the argument SEQUENCEs. \(fn TYPE SEQUENCE...)" nil nil) -(autoload 'revappend "cl-extra" "\ +(autoload 'cl-revappend "cl-extra" "\ Equivalent to (append (reverse X) Y). \(fn X Y)" nil nil) -(autoload 'nreconc "cl-extra" "\ +(autoload 'cl-nreconc "cl-extra" "\ Equivalent to (nconc (nreverse X) Y). \(fn X Y)" nil nil) -(autoload 'list-length "cl-extra" "\ +(autoload 'cl-list-length "cl-extra" "\ Return the length of list X. Return nil if list is circular. \(fn X)" nil nil) -(autoload 'tailp "cl-extra" "\ +(autoload 'cl-tailp "cl-extra" "\ Return true if SUBLIST is a tail of LIST. \(fn SUBLIST LIST)" nil nil) -(autoload 'get* "cl-extra" "\ +(autoload 'cl-get "cl-extra" "\ Return the value of SYMBOL's PROPNAME property, or DEFAULT if none. \(fn SYMBOL PROPNAME &optional DEFAULT)" nil nil) -(autoload 'getf "cl-extra" "\ +(autoload 'cl-getf "cl-extra" "\ Search PROPLIST for property PROPNAME; return its value or DEFAULT. PROPLIST is a list of the sort returned by `symbol-plist'. @@ -246,8 +248,6 @@ Remove from SYMBOL's plist the property PROPNAME and its value. \(fn SYMBOL PROPNAME)" nil nil) -(defalias 'remprop 'cl-remprop) - (defalias 'cl-gethash 'gethash) (defalias 'cl-puthash 'puthash) @@ -277,67 +277,70 @@ This also does some trivial optimizations to make the form prettier. ;;;*** -;;;### (autoloads (defsubst* compiler-macroexpand define-compiler-macro -;;;;;; assert check-type typep deftype cl-struct-setf-expander defstruct -;;;;;; define-modify-macro callf2 callf letf* letf rotatef shiftf -;;;;;; remf cl-do-pop psetf setf get-setf-method defsetf define-setf-method -;;;;;; declare the locally multiple-value-setq multiple-value-bind -;;;;;; lexical-let* lexical-let symbol-macrolet macrolet labels -;;;;;; flet progv psetq do-all-symbols do-symbols dotimes dolist -;;;;;; do* do loop return-from return block etypecase typecase ecase -;;;;;; case load-time-value eval-when destructuring-bind function* -;;;;;; defmacro* defun* gentemp gensym) "cl-macs" "cl-macs.el" "609f133b406e41ac5609fcd85e3f23de") +;;;### (autoloads (cl-defsubst cl-compiler-macroexpand cl-define-compiler-macro +;;;;;; cl-assert cl-check-type cl-typep cl-deftype cl-struct-setf-expander +;;;;;; cl-defstruct cl-define-modify-macro cl-callf2 cl-callf cl-letf* +;;;;;; cl-letf cl-rotatef cl-shiftf cl-remf cl-do-pop cl-psetf cl-setf +;;;;;; cl-get-setf-method cl-defsetf cl-define-setf-method cl-declare +;;;;;; cl-the cl-locally cl-multiple-value-setq cl-multiple-value-bind +;;;;;; cl-lexical-let* cl-lexical-let cl-symbol-macrolet cl-macrolet +;;;;;; cl-labels cl-flet cl-progv cl-psetq cl-do-all-symbols cl-do-symbols +;;;;;; cl-dotimes cl-dolist cl-do* cl-do cl-loop cl-return-from +;;;;;; cl-return cl-block cl-etypecase cl-typecase cl-ecase cl-case +;;;;;; cl-load-time-value cl-eval-when cl-destructuring-bind cl-function +;;;;;; cl-defmacro cl-defun cl-gentemp cl-gensym) "cl-macs" "cl-macs.el" +;;;;;; "35e128b3ab7780c4f9c25da5a0adea7a") ;;; Generated autoloads from cl-macs.el -(autoload 'gensym "cl-macs" "\ +(autoload 'cl-gensym "cl-macs" "\ Generate a new uninterned symbol. The name is made by appending a number to PREFIX, default \"G\". \(fn &optional PREFIX)" nil nil) -(autoload 'gentemp "cl-macs" "\ +(autoload 'cl-gentemp "cl-macs" "\ Generate a new interned symbol with a unique name. The name is made by appending a number to PREFIX, default \"G\". \(fn &optional PREFIX)" nil nil) -(autoload 'defun* "cl-macs" "\ +(autoload 'cl-defun "cl-macs" "\ Define NAME as a function. Like normal `defun', except ARGLIST allows full Common Lisp conventions, -and BODY is implicitly surrounded by (block NAME ...). +and BODY is implicitly surrounded by (cl-block NAME ...). \(fn NAME ARGLIST [DOCSTRING] BODY...)" nil t) -(put 'defun* 'doc-string-elt '3) +(put 'cl-defun 'doc-string-elt '3) -(put 'defun* 'lisp-indent-function '2) +(put 'cl-defun 'lisp-indent-function '2) -(autoload 'defmacro* "cl-macs" "\ +(autoload 'cl-defmacro "cl-macs" "\ Define NAME as a macro. Like normal `defmacro', except ARGLIST allows full Common Lisp conventions, -and BODY is implicitly surrounded by (block NAME ...). +and BODY is implicitly surrounded by (cl-block NAME ...). \(fn NAME ARGLIST [DOCSTRING] BODY...)" nil t) -(put 'defmacro* 'doc-string-elt '3) +(put 'cl-defmacro 'doc-string-elt '3) -(put 'defmacro* 'lisp-indent-function '2) +(put 'cl-defmacro 'lisp-indent-function '2) -(autoload 'function* "cl-macs" "\ +(autoload 'cl-function "cl-macs" "\ Introduce a function. Like normal `function', except that if argument is a lambda form, its argument list allows full Common Lisp conventions. \(fn FUNC)" nil t) -(autoload 'destructuring-bind "cl-macs" "\ +(autoload 'cl-destructuring-bind "cl-macs" "\ \(fn ARGS EXPR &rest BODY)" nil t) -(put 'destructuring-bind 'lisp-indent-function '2) +(put 'cl-destructuring-bind 'lisp-indent-function '2) -(autoload 'eval-when "cl-macs" "\ +(autoload 'cl-eval-when "cl-macs" "\ Control when BODY is evaluated. If `compile' is in WHEN, BODY is evaluated when compiled at top-level. If `load' is in WHEN, BODY is evaluated when loaded after top-level compile. @@ -345,57 +348,57 @@ If `eval' is in WHEN, BODY is evaluated when interpreted or at non-top-level. \(fn (WHEN...) BODY...)" nil t) -(put 'eval-when 'lisp-indent-function '1) +(put 'cl-eval-when 'lisp-indent-function '1) -(autoload 'load-time-value "cl-macs" "\ +(autoload 'cl-load-time-value "cl-macs" "\ Like `progn', but evaluates the body at load time. The result of the body appears to the compiler as a quoted constant. \(fn FORM &optional READ-ONLY)" nil t) -(autoload 'case "cl-macs" "\ +(autoload 'cl-case "cl-macs" "\ Eval EXPR and choose among clauses on that value. Each clause looks like (KEYLIST BODY...). EXPR is evaluated and compared against each key in each KEYLIST; the corresponding BODY is evaluated. -If no clause succeeds, case returns nil. A single atom may be used in +If no clause succeeds, cl-case returns nil. A single atom may be used in place of a KEYLIST of one atom. A KEYLIST of t or `otherwise' is allowed only in the final clause, and matches if no other keys match. Key values are compared by `eql'. \(fn EXPR (KEYLIST BODY...)...)" nil t) -(put 'case 'lisp-indent-function '1) +(put 'cl-case 'lisp-indent-function '1) -(autoload 'ecase "cl-macs" "\ -Like `case', but error if no case fits. +(autoload 'cl-ecase "cl-macs" "\ +Like `cl-case', but error if no cl-case fits. `otherwise'-clauses are not allowed. \(fn EXPR (KEYLIST BODY...)...)" nil t) -(put 'ecase 'lisp-indent-function '1) +(put 'cl-ecase 'lisp-indent-function '1) -(autoload 'typecase "cl-macs" "\ +(autoload 'cl-typecase "cl-macs" "\ Evals EXPR, chooses among clauses on that value. Each clause looks like (TYPE BODY...). EXPR is evaluated and, if it satisfies TYPE, the corresponding BODY is evaluated. If no clause succeeds, -typecase returns nil. A TYPE of t or `otherwise' is allowed only in the +cl-typecase returns nil. A TYPE of t or `otherwise' is allowed only in the final clause, and matches if no other keys match. \(fn EXPR (TYPE BODY...)...)" nil t) -(put 'typecase 'lisp-indent-function '1) +(put 'cl-typecase 'lisp-indent-function '1) -(autoload 'etypecase "cl-macs" "\ -Like `typecase', but error if no case fits. +(autoload 'cl-etypecase "cl-macs" "\ +Like `cl-typecase', but error if no case fits. `otherwise'-clauses are not allowed. \(fn EXPR (TYPE BODY...)...)" nil t) -(put 'etypecase 'lisp-indent-function '1) +(put 'cl-etypecase 'lisp-indent-function '1) -(autoload 'block "cl-macs" "\ +(autoload 'cl-block "cl-macs" "\ Define a lexically-scoped block named NAME. -NAME may be any symbol. Code inside the BODY forms can call `return-from' +NAME may be any symbol. Code inside the BODY forms can call `cl-return-from' to jump prematurely out of the block. This differs from `catch' and `throw' in two respects: First, the NAME is an unevaluated symbol rather than a quoted symbol or other form; and second, NAME is lexically rather than @@ -405,27 +408,27 @@ called from BODY. \(fn NAME &rest BODY)" nil t) -(put 'block 'lisp-indent-function '1) +(put 'cl-block 'lisp-indent-function '1) -(autoload 'return "cl-macs" "\ +(autoload 'cl-return "cl-macs" "\ Return from the block named nil. -This is equivalent to `(return-from nil RESULT)'. +This is equivalent to `(cl-return-from nil RESULT)'. \(fn &optional RESULT)" nil t) -(autoload 'return-from "cl-macs" "\ +(autoload 'cl-return-from "cl-macs" "\ Return from the block named NAME. -This jumps out to the innermost enclosing `(block NAME ...)' form, +This jumps out to the innermost enclosing `(cl-block NAME ...)' form, returning RESULT from that form (or nil if RESULT is omitted). This is compatible with Common Lisp, but note that `defun' and `defmacro' do not create implicit blocks as they do in Common Lisp. \(fn NAME &optional RESULT)" nil t) -(put 'return-from 'lisp-indent-function '1) +(put 'cl-return-from 'lisp-indent-function '1) -(autoload 'loop "cl-macs" "\ -The Common Lisp `loop' macro. +(autoload 'cl-loop "cl-macs" "\ +The Common Lisp `cl-loop' macro. Valid clauses are: for VAR from/upfrom/downfrom NUM to/upto/downto/above/below NUM by NUM, for VAR in LIST by FUNC, for VAR on LIST by FUNC, for VAR = INIT then EXPR, @@ -440,21 +443,21 @@ Valid clauses are: \(fn CLAUSE...)" nil t) -(autoload 'do "cl-macs" "\ -The Common Lisp `do' loop. +(autoload 'cl-do "cl-macs" "\ +The Common Lisp `cl-do' loop. \(fn ((VAR INIT [STEP])...) (END-TEST [RESULT...]) BODY...)" nil t) -(put 'do 'lisp-indent-function '2) +(put 'cl-do 'lisp-indent-function '2) -(autoload 'do* "cl-macs" "\ -The Common Lisp `do*' loop. +(autoload 'cl-do* "cl-macs" "\ +The Common Lisp `cl-do*' loop. \(fn ((VAR INIT [STEP])...) (END-TEST [RESULT...]) BODY...)" nil t) -(put 'do* 'lisp-indent-function '2) +(put 'cl-do* 'lisp-indent-function '2) -(autoload 'dolist "cl-macs" "\ +(autoload 'cl-dolist "cl-macs" "\ Loop over a list. Evaluate BODY with VAR bound to each `car' from LIST, in turn. Then evaluate RESULT to get return value, default nil. @@ -462,7 +465,7 @@ An implicit nil block is established around the loop. \(fn (VAR LIST [RESULT]) BODY...)" nil t) -(autoload 'dotimes "cl-macs" "\ +(autoload 'cl-dotimes "cl-macs" "\ Loop a certain number of times. Evaluate BODY with VAR bound to successive integers from 0, inclusive, to COUNT, exclusive. Then evaluate RESULT to get return value, default @@ -470,30 +473,30 @@ nil. \(fn (VAR COUNT [RESULT]) BODY...)" nil t) -(autoload 'do-symbols "cl-macs" "\ +(autoload 'cl-do-symbols "cl-macs" "\ Loop over all symbols. Evaluate BODY with VAR bound to each interned symbol, or to each symbol from OBARRAY. \(fn (VAR [OBARRAY [RESULT]]) BODY...)" nil t) -(put 'do-symbols 'lisp-indent-function '1) +(put 'cl-do-symbols 'lisp-indent-function '1) -(autoload 'do-all-symbols "cl-macs" "\ +(autoload 'cl-do-all-symbols "cl-macs" "\ \(fn SPEC &rest BODY)" nil t) -(put 'do-all-symbols 'lisp-indent-function '1) +(put 'cl-do-all-symbols 'lisp-indent-function '1) -(autoload 'psetq "cl-macs" "\ +(autoload 'cl-psetq "cl-macs" "\ Set SYMs to the values VALs in parallel. This is like `setq', except that all VAL forms are evaluated (in order) before assigning any symbols SYM to the corresponding values. \(fn SYM VAL SYM VAL ...)" nil t) -(autoload 'progv "cl-macs" "\ +(autoload 'cl-progv "cl-macs" "\ Bind SYMBOLS to VALUES dynamically in BODY. The forms SYMBOLS and VALUES are evaluated, and must evaluate to lists. Each symbol in the first list is bound to the corresponding value in the @@ -503,9 +506,9 @@ a `let' form, except that the list of symbols can be computed at run-time. \(fn SYMBOLS VALUES &rest BODY)" nil t) -(put 'progv 'lisp-indent-function '2) +(put 'cl-progv 'lisp-indent-function '2) -(autoload 'flet "cl-macs" "\ +(autoload 'cl-flet "cl-macs" "\ Make temporary function definitions. This is an analogue of `let' that operates on the function cell of FUNC rather than its value cell. The FORMs are evaluated with the specified @@ -514,44 +517,44 @@ go back to their previous definitions, or lack thereof). \(fn ((FUNC ARGLIST BODY...) ...) FORM...)" nil t) -(put 'flet 'lisp-indent-function '1) +(put 'cl-flet 'lisp-indent-function '1) -(autoload 'labels "cl-macs" "\ +(autoload 'cl-labels "cl-macs" "\ Make temporary function bindings. -This is like `flet', except the bindings are lexical instead of dynamic. -Unlike `flet', this macro is fully compliant with the Common Lisp standard. +This is like `cl-flet', except the bindings are lexical instead of dynamic. +Unlike `cl-flet', this macro is fully compliant with the Common Lisp standard. \(fn ((FUNC ARGLIST BODY...) ...) FORM...)" nil t) -(put 'labels 'lisp-indent-function '1) +(put 'cl-labels 'lisp-indent-function '1) -(autoload 'macrolet "cl-macs" "\ +(autoload 'cl-macrolet "cl-macs" "\ Make temporary macro definitions. -This is like `flet', but for macros instead of functions. +This is like `cl-flet', but for macros instead of functions. \(fn ((NAME ARGLIST BODY...) ...) FORM...)" nil t) -(put 'macrolet 'lisp-indent-function '1) +(put 'cl-macrolet 'lisp-indent-function '1) -(autoload 'symbol-macrolet "cl-macs" "\ +(autoload 'cl-symbol-macrolet "cl-macs" "\ Make symbol macro definitions. Within the body FORMs, references to the variable NAME will be replaced -by EXPANSION, and (setq NAME ...) will act like (setf EXPANSION ...). +by EXPANSION, and (setq NAME ...) will act like (cl-setf EXPANSION ...). \(fn ((NAME EXPANSION) ...) FORM...)" nil t) -(put 'symbol-macrolet 'lisp-indent-function '1) +(put 'cl-symbol-macrolet 'lisp-indent-function '1) -(autoload 'lexical-let "cl-macs" "\ +(autoload 'cl-lexical-let "cl-macs" "\ Like `let', but lexically scoped. The main visible difference is that lambdas inside BODY will create lexical closures as in Common Lisp. \(fn BINDINGS BODY)" nil t) -(put 'lexical-let 'lisp-indent-function '1) +(put 'cl-lexical-let 'lisp-indent-function '1) -(autoload 'lexical-let* "cl-macs" "\ +(autoload 'cl-lexical-let* "cl-macs" "\ Like `let*', but lexically scoped. The main visible difference is that lambdas inside BODY, and in successive bindings within BINDINGS, will create lexical closures @@ -560,105 +563,105 @@ Common Lisp. \(fn BINDINGS BODY)" nil t) -(put 'lexical-let* 'lisp-indent-function '1) +(put 'cl-lexical-let* 'lisp-indent-function '1) -(autoload 'multiple-value-bind "cl-macs" "\ +(autoload 'cl-multiple-value-bind "cl-macs" "\ Collect multiple return values. FORM must return a list; the BODY is then executed with the first N elements of this list bound (`let'-style) to each of the symbols SYM in turn. This -is analogous to the Common Lisp `multiple-value-bind' macro, using lists to -simulate true multiple return values. For compatibility, (values A B C) is +is analogous to the Common Lisp `cl-multiple-value-bind' macro, using lists to +simulate true multiple return values. For compatibility, (cl-values A B C) is a synonym for (list A B C). \(fn (SYM...) FORM BODY)" nil t) -(put 'multiple-value-bind 'lisp-indent-function '2) +(put 'cl-multiple-value-bind 'lisp-indent-function '2) -(autoload 'multiple-value-setq "cl-macs" "\ +(autoload 'cl-multiple-value-setq "cl-macs" "\ Collect multiple return values. FORM must return a list; the first N elements of this list are stored in each of the symbols SYM in turn. This is analogous to the Common Lisp -`multiple-value-setq' macro, using lists to simulate true multiple return -values. For compatibility, (values A B C) is a synonym for (list A B C). +`cl-multiple-value-setq' macro, using lists to simulate true multiple return +values. For compatibility, (cl-values A B C) is a synonym for (list A B C). \(fn (SYM...) FORM)" nil t) -(put 'multiple-value-setq 'lisp-indent-function '1) +(put 'cl-multiple-value-setq 'lisp-indent-function '1) -(autoload 'locally "cl-macs" "\ +(autoload 'cl-locally "cl-macs" "\ \(fn &rest BODY)" nil t) -(autoload 'the "cl-macs" "\ +(autoload 'cl-the "cl-macs" "\ \(fn TYPE FORM)" nil t) -(put 'the 'lisp-indent-function '1) +(put 'cl-the 'lisp-indent-function '1) -(autoload 'declare "cl-macs" "\ +(autoload 'cl-declare "cl-macs" "\ Declare SPECS about the current function while compiling. For instance - (declare (warn 0)) + (cl-declare (warn 0)) will turn off byte-compile warnings in the function. See Info node `(cl)Declarations' for details. \(fn &rest SPECS)" nil t) -(autoload 'define-setf-method "cl-macs" "\ -Define a `setf' method. -This method shows how to handle `setf's to places of the form (NAME ARGS...). +(autoload 'cl-define-setf-method "cl-macs" "\ +Define a `cl-setf' method. +This method shows how to handle `cl-setf's to places of the form (NAME ARGS...). The argument forms ARGS are bound according to ARGLIST, as if NAME were going to be expanded as a macro, then the BODY forms are executed and must return a list of five elements: a temporary-variables list, a value-forms list, a store-variables list (of length one), a store-form, and an access- -form. See `defsetf' for a simpler way to define most setf-methods. +form. See `cl-defsetf' for a simpler way to define most setf-methods. \(fn NAME ARGLIST BODY...)" nil t) -(autoload 'defsetf "cl-macs" "\ -Define a `setf' method. -This macro is an easy-to-use substitute for `define-setf-method' that works -well for simple place forms. In the simple `defsetf' form, `setf's of -the form (setf (NAME ARGS...) VAL) are transformed to function or macro +(autoload 'cl-defsetf "cl-macs" "\ +Define a `cl-setf' method. +This macro is an easy-to-use substitute for `cl-define-setf-method' that works +well for simple place forms. In the simple `cl-defsetf' form, `cl-setf's of +the form (cl-setf (NAME ARGS...) VAL) are transformed to function or macro calls of the form (FUNC ARGS... VAL). Example: - (defsetf aref aset) + (cl-defsetf aref aset) -Alternate form: (defsetf NAME ARGLIST (STORE) BODY...). -Here, the above `setf' call is expanded by binding the argument forms ARGS +Alternate form: (cl-defsetf NAME ARGLIST (STORE) BODY...). +Here, the above `cl-setf' call is expanded by binding the argument forms ARGS according to ARGLIST, binding the value form VAL to STORE, then executing -BODY, which must return a Lisp form that does the necessary `setf' operation. +BODY, which must return a Lisp form that does the necessary `cl-setf' operation. Actually, ARGLIST and STORE may be bound to temporary variables which are introduced automatically to preserve proper execution order of the arguments. Example: - (defsetf nth (n x) (v) `(setcar (nthcdr ,n ,x) ,v)) + (cl-defsetf nth (n x) (v) `(setcar (nthcdr ,n ,x) ,v)) \(fn NAME [FUNC | ARGLIST (STORE) BODY...])" nil t) -(autoload 'get-setf-method "cl-macs" "\ +(autoload 'cl-get-setf-method "cl-macs" "\ Return a list of five values describing the setf-method for PLACE. PLACE may be any Lisp form which can appear as the PLACE argument to -a macro like `setf' or `incf'. +a macro like `cl-setf' or `cl-incf'. \(fn PLACE &optional ENV)" nil nil) -(autoload 'setf "cl-macs" "\ +(autoload 'cl-setf "cl-macs" "\ Set each PLACE to the value of its VAL. This is a generalized version of `setq'; the PLACEs may be symbolic references such as (car x) or (aref x i), as well as plain symbols. -For example, (setf (cadar x) y) is equivalent to (setcar (cdar x) y). +For example, (cl-setf (cl-cadar x) y) is equivalent to (setcar (cdar x) y). The return value is the last VAL in the list. \(fn PLACE VAL PLACE VAL ...)" nil t) -(autoload 'psetf "cl-macs" "\ +(autoload 'cl-psetf "cl-macs" "\ Set PLACEs to the values VALs in parallel. -This is like `setf', except that all VAL forms are evaluated (in order) +This is like `cl-setf', except that all VAL forms are evaluated (in order) before assigning any PLACEs to the corresponding values. \(fn PLACE VAL PLACE VAL ...)" nil t) @@ -668,31 +671,31 @@ before assigning any PLACEs to the corresponding values. \(fn PLACE)" nil nil) -(autoload 'remf "cl-macs" "\ +(autoload 'cl-remf "cl-macs" "\ Remove TAG from property list PLACE. -PLACE may be a symbol, or any generalized variable allowed by `setf'. +PLACE may be a symbol, or any generalized variable allowed by `cl-setf'. The form returns true if TAG was found and removed, nil otherwise. \(fn PLACE TAG)" nil t) -(autoload 'shiftf "cl-macs" "\ +(autoload 'cl-shiftf "cl-macs" "\ Shift left among PLACEs. -Example: (shiftf A B C) sets A to B, B to C, and returns the old A. -Each PLACE may be a symbol, or any generalized variable allowed by `setf'. +Example: (cl-shiftf A B C) sets A to B, B to C, and returns the old A. +Each PLACE may be a symbol, or any generalized variable allowed by `cl-setf'. \(fn PLACE... VAL)" nil t) -(autoload 'rotatef "cl-macs" "\ +(autoload 'cl-rotatef "cl-macs" "\ Rotate left among PLACEs. -Example: (rotatef A B C) sets A to B, B to C, and C to A. It returns nil. -Each PLACE may be a symbol, or any generalized variable allowed by `setf'. +Example: (cl-rotatef A B C) sets A to B, B to C, and C to A. It returns nil. +Each PLACE may be a symbol, or any generalized variable allowed by `cl-setf'. \(fn PLACE...)" nil t) -(autoload 'letf "cl-macs" "\ +(autoload 'cl-letf "cl-macs" "\ Temporarily bind to PLACEs. This is the analogue of `let', but with generalized variables (in the -sense of `setf') for the PLACEs. Each PLACE is set to the corresponding +sense of `cl-setf') for the PLACEs. Each PLACE is set to the corresponding VALUE, then the BODY forms are executed. On exit, either normally or because of a `throw' or error, the PLACEs are set back to their original values. Note that this macro is *not* available in Common Lisp. @@ -701,12 +704,12 @@ the PLACE is not modified before executing BODY. \(fn ((PLACE VALUE) ...) BODY...)" nil t) -(put 'letf 'lisp-indent-function '1) +(put 'cl-letf 'lisp-indent-function '1) -(autoload 'letf* "cl-macs" "\ +(autoload 'cl-letf* "cl-macs" "\ Temporarily bind to PLACEs. This is the analogue of `let*', but with generalized variables (in the -sense of `setf') for the PLACEs. Each PLACE is set to the corresponding +sense of `cl-setf') for the PLACEs. Each PLACE is set to the corresponding VALUE, then the BODY forms are executed. On exit, either normally or because of a `throw' or error, the PLACEs are set back to their original values. Note that this macro is *not* available in Common Lisp. @@ -715,38 +718,38 @@ the PLACE is not modified before executing BODY. \(fn ((PLACE VALUE) ...) BODY...)" nil t) -(put 'letf* 'lisp-indent-function '1) +(put 'cl-letf* 'lisp-indent-function '1) -(autoload 'callf "cl-macs" "\ +(autoload 'cl-callf "cl-macs" "\ Set PLACE to (FUNC PLACE ARGS...). FUNC should be an unquoted function name. PLACE may be a symbol, -or any generalized variable allowed by `setf'. +or any generalized variable allowed by `cl-setf'. \(fn FUNC PLACE ARGS...)" nil t) -(put 'callf 'lisp-indent-function '2) +(put 'cl-callf 'lisp-indent-function '2) -(autoload 'callf2 "cl-macs" "\ +(autoload 'cl-callf2 "cl-macs" "\ Set PLACE to (FUNC ARG1 PLACE ARGS...). -Like `callf', but PLACE is the second argument of FUNC, not the first. +Like `cl-callf', but PLACE is the second argument of FUNC, not the first. \(fn FUNC ARG1 PLACE ARGS...)" nil t) -(put 'callf2 'lisp-indent-function '3) +(put 'cl-callf2 'lisp-indent-function '3) -(autoload 'define-modify-macro "cl-macs" "\ -Define a `setf'-like modify macro. +(autoload 'cl-define-modify-macro "cl-macs" "\ +Define a `cl-setf'-like modify macro. If NAME is called, it combines its PLACE argument with the other arguments -from ARGLIST using FUNC: (define-modify-macro incf (&optional (n 1)) +) +from ARGLIST using FUNC: (cl-define-modify-macro cl-incf (&optional (n 1)) +) \(fn NAME ARGLIST FUNC &optional DOC)" nil t) -(autoload 'defstruct "cl-macs" "\ +(autoload 'cl-defstruct "cl-macs" "\ Define a struct type. This macro defines a new data type called NAME that stores data in SLOTs. It defines a `make-NAME' constructor, a `copy-NAME' copier, a `NAME-p' predicate, and slot accessors named `NAME-SLOT'. -You can use the accessors to set the corresponding slots, via `setf'. +You can use the accessors to set the corresponding slots, via `cl-setf'. NAME may instead take the form (NAME OPTIONS...), where each OPTION is either a single keyword or (KEYWORD VALUE). @@ -755,38 +758,38 @@ See Info node `(cl)Structures' for a list of valid keywords. Each SLOT may instead take the form (SLOT SLOT-OPTS...), where SLOT-OPTS are keyword-value pairs for that slot. Currently, only one keyword is supported, `:read-only'. If this has a non-nil -value, that slot cannot be set via `setf'. +value, that slot cannot be set via `cl-setf'. \(fn NAME SLOTS...)" nil t) -(put 'defstruct 'doc-string-elt '2) +(put 'cl-defstruct 'doc-string-elt '2) (autoload 'cl-struct-setf-expander "cl-macs" "\ \(fn X NAME ACCESSOR PRED-FORM POS)" nil nil) -(autoload 'deftype "cl-macs" "\ +(autoload 'cl-deftype "cl-macs" "\ Define NAME as a new data type. -The type name can then be used in `typecase', `check-type', etc. +The type name can then be used in `cl-typecase', `cl-check-type', etc. \(fn NAME ARGLIST &rest BODY)" nil t) -(put 'deftype 'doc-string-elt '3) +(put 'cl-deftype 'doc-string-elt '3) -(autoload 'typep "cl-macs" "\ +(autoload 'cl-typep "cl-macs" "\ Check that OBJECT is of type TYPE. TYPE is a Common Lisp-style type specifier. \(fn OBJECT TYPE)" nil nil) -(autoload 'check-type "cl-macs" "\ +(autoload 'cl-check-type "cl-macs" "\ Verify that FORM is of type TYPE; signal an error if not. STRING is an optional description of the desired type. \(fn FORM TYPE &optional STRING)" nil t) -(autoload 'assert "cl-macs" "\ +(autoload 'cl-assert "cl-macs" "\ Verify that FORM returns non-nil; signal an error if not. Second arg SHOW-ARGS means to include arguments of FORM in message. Other args STRING and ARGS... are arguments to be passed to `error'. @@ -795,7 +798,7 @@ omitted, a default message listing FORM itself is used. \(fn FORM &optional SHOW-ARGS STRING &rest ARGS)" nil t) -(autoload 'define-compiler-macro "cl-macs" "\ +(autoload 'cl-define-compiler-macro "cl-macs" "\ Define a compiler-only macro. This is like `defmacro', but macro expansion occurs only if the call to FUNC is compiled (i.e., not interpreted). Compiler macros should be used @@ -809,49 +812,51 @@ and then returning foo. \(fn FUNC ARGS &rest BODY)" nil t) -(autoload 'compiler-macroexpand "cl-macs" "\ +(autoload 'cl-compiler-macroexpand "cl-macs" "\ \(fn FORM)" nil nil) -(autoload 'defsubst* "cl-macs" "\ +(autoload 'cl-defsubst "cl-macs" "\ Define NAME as a function. Like `defun', except the function is automatically declared `inline', ARGLIST allows full Common Lisp conventions, and BODY is implicitly -surrounded by (block NAME ...). +surrounded by (cl-block NAME ...). \(fn NAME ARGLIST [DOCSTRING] BODY...)" nil t) ;;;*** -;;;### (autoloads (tree-equal nsublis sublis nsubst-if-not nsubst-if -;;;;;; nsubst subst-if-not subst-if subsetp nset-exclusive-or set-exclusive-or -;;;;;; nset-difference set-difference nintersection intersection -;;;;;; nunion union rassoc-if-not rassoc-if rassoc* assoc-if-not -;;;;;; assoc-if assoc* cl--adjoin member-if-not member-if member* -;;;;;; merge stable-sort sort* search mismatch count-if-not count-if -;;;;;; count position-if-not position-if position find-if-not find-if -;;;;;; find nsubstitute-if-not nsubstitute-if nsubstitute substitute-if-not -;;;;;; substitute-if substitute delete-duplicates remove-duplicates -;;;;;; delete-if-not delete-if delete* remove-if-not remove-if remove* -;;;;;; replace fill reduce) "cl-seq" "cl-seq.el" "2d8563fcbdf4bc77e569d0aeb0a35cfc") +;;;### (autoloads (cl-tree-equal cl-nsublis cl-sublis cl-nsubst-if-not +;;;;;; cl-nsubst-if cl-nsubst cl-subst-if-not cl-subst-if cl-subsetp +;;;;;; cl-nset-exclusive-or cl-set-exclusive-or cl-nset-difference +;;;;;; cl-set-difference cl-nintersection cl-intersection cl-nunion +;;;;;; cl-union cl-rassoc-if-not cl-rassoc-if cl-rassoc cl-assoc-if-not +;;;;;; cl-assoc-if cl-assoc cl--adjoin cl-member-if-not cl-member-if +;;;;;; cl-member cl-merge cl-stable-sort cl-sort cl-search cl-mismatch +;;;;;; cl-count-if-not cl-count-if cl-count cl-position-if-not cl-position-if +;;;;;; cl-position cl-find-if-not cl-find-if cl-find cl-nsubstitute-if-not +;;;;;; cl-nsubstitute-if cl-nsubstitute cl-substitute-if-not cl-substitute-if +;;;;;; cl-substitute cl-delete-duplicates cl-remove-duplicates cl-delete-if-not +;;;;;; cl-delete-if cl-delete cl-remove-if-not cl-remove-if cl-remove +;;;;;; cl-replace cl-fill cl-reduce) "cl-seq" "cl-seq.el" "d3eaca7a24bdb10b381bb94729c5d7e9") ;;; Generated autoloads from cl-seq.el -(autoload 'reduce "cl-seq" "\ +(autoload 'cl-reduce "cl-seq" "\ Reduce two-argument FUNCTION across SEQ. Keywords supported: :start :end :from-end :initial-value :key \(fn FUNCTION SEQ [KEYWORD VALUE]...)" nil nil) -(autoload 'fill "cl-seq" "\ +(autoload 'cl-fill "cl-seq" "\ Fill the elements of SEQ with ITEM. Keywords supported: :start :end \(fn SEQ ITEM [KEYWORD VALUE]...)" nil nil) -(autoload 'replace "cl-seq" "\ +(autoload 'cl-replace "cl-seq" "\ Replace the elements of SEQ1 with the elements of SEQ2. SEQ1 is destructively modified, then returned. @@ -859,7 +864,7 @@ Keywords supported: :start1 :end1 :start2 :end2 \(fn SEQ1 SEQ2 [KEYWORD VALUE]...)" nil nil) -(autoload 'remove* "cl-seq" "\ +(autoload 'cl-remove "cl-seq" "\ Remove all occurrences of ITEM in SEQ. This is a non-destructive function; it makes a copy of SEQ if necessary to avoid corrupting the original SEQ. @@ -868,7 +873,7 @@ Keywords supported: :test :test-not :key :count :start :end :from-end \(fn ITEM SEQ [KEYWORD VALUE]...)" nil nil) -(autoload 'remove-if "cl-seq" "\ +(autoload 'cl-remove-if "cl-seq" "\ Remove all items satisfying PREDICATE in SEQ. This is a non-destructive function; it makes a copy of SEQ if necessary to avoid corrupting the original SEQ. @@ -877,7 +882,7 @@ Keywords supported: :key :count :start :end :from-end \(fn PREDICATE SEQ [KEYWORD VALUE]...)" nil nil) -(autoload 'remove-if-not "cl-seq" "\ +(autoload 'cl-remove-if-not "cl-seq" "\ Remove all items not satisfying PREDICATE in SEQ. This is a non-destructive function; it makes a copy of SEQ if necessary to avoid corrupting the original SEQ. @@ -886,7 +891,7 @@ Keywords supported: :key :count :start :end :from-end \(fn PREDICATE SEQ [KEYWORD VALUE]...)" nil nil) -(autoload 'delete* "cl-seq" "\ +(autoload 'cl-delete "cl-seq" "\ Remove all occurrences of ITEM in SEQ. This is a destructive function; it reuses the storage of SEQ whenever possible. @@ -894,7 +899,7 @@ Keywords supported: :test :test-not :key :count :start :end :from-end \(fn ITEM SEQ [KEYWORD VALUE]...)" nil nil) -(autoload 'delete-if "cl-seq" "\ +(autoload 'cl-delete-if "cl-seq" "\ Remove all items satisfying PREDICATE in SEQ. This is a destructive function; it reuses the storage of SEQ whenever possible. @@ -902,7 +907,7 @@ Keywords supported: :key :count :start :end :from-end \(fn PREDICATE SEQ [KEYWORD VALUE]...)" nil nil) -(autoload 'delete-if-not "cl-seq" "\ +(autoload 'cl-delete-if-not "cl-seq" "\ Remove all items not satisfying PREDICATE in SEQ. This is a destructive function; it reuses the storage of SEQ whenever possible. @@ -910,21 +915,21 @@ Keywords supported: :key :count :start :end :from-end \(fn PREDICATE SEQ [KEYWORD VALUE]...)" nil nil) -(autoload 'remove-duplicates "cl-seq" "\ +(autoload 'cl-remove-duplicates "cl-seq" "\ Return a copy of SEQ with all duplicate elements removed. Keywords supported: :test :test-not :key :start :end :from-end \(fn SEQ [KEYWORD VALUE]...)" nil nil) -(autoload 'delete-duplicates "cl-seq" "\ +(autoload 'cl-delete-duplicates "cl-seq" "\ Remove all duplicate elements from SEQ (destructively). Keywords supported: :test :test-not :key :start :end :from-end \(fn SEQ [KEYWORD VALUE]...)" nil nil) -(autoload 'substitute "cl-seq" "\ +(autoload 'cl-substitute "cl-seq" "\ Substitute NEW for OLD in SEQ. This is a non-destructive function; it makes a copy of SEQ if necessary to avoid corrupting the original SEQ. @@ -933,7 +938,7 @@ Keywords supported: :test :test-not :key :count :start :end :from-end \(fn NEW OLD SEQ [KEYWORD VALUE]...)" nil nil) -(autoload 'substitute-if "cl-seq" "\ +(autoload 'cl-substitute-if "cl-seq" "\ Substitute NEW for all items satisfying PREDICATE in SEQ. This is a non-destructive function; it makes a copy of SEQ if necessary to avoid corrupting the original SEQ. @@ -942,7 +947,7 @@ Keywords supported: :key :count :start :end :from-end \(fn NEW PREDICATE SEQ [KEYWORD VALUE]...)" nil nil) -(autoload 'substitute-if-not "cl-seq" "\ +(autoload 'cl-substitute-if-not "cl-seq" "\ Substitute NEW for all items not satisfying PREDICATE in SEQ. This is a non-destructive function; it makes a copy of SEQ if necessary to avoid corrupting the original SEQ. @@ -951,7 +956,7 @@ Keywords supported: :key :count :start :end :from-end \(fn NEW PREDICATE SEQ [KEYWORD VALUE]...)" nil nil) -(autoload 'nsubstitute "cl-seq" "\ +(autoload 'cl-nsubstitute "cl-seq" "\ Substitute NEW for OLD in SEQ. This is a destructive function; it reuses the storage of SEQ whenever possible. @@ -959,7 +964,7 @@ Keywords supported: :test :test-not :key :count :start :end :from-end \(fn NEW OLD SEQ [KEYWORD VALUE]...)" nil nil) -(autoload 'nsubstitute-if "cl-seq" "\ +(autoload 'cl-nsubstitute-if "cl-seq" "\ Substitute NEW for all items satisfying PREDICATE in SEQ. This is a destructive function; it reuses the storage of SEQ whenever possible. @@ -967,7 +972,7 @@ Keywords supported: :key :count :start :end :from-end \(fn NEW PREDICATE SEQ [KEYWORD VALUE]...)" nil nil) -(autoload 'nsubstitute-if-not "cl-seq" "\ +(autoload 'cl-nsubstitute-if-not "cl-seq" "\ Substitute NEW for all items not satisfying PREDICATE in SEQ. This is a destructive function; it reuses the storage of SEQ whenever possible. @@ -975,7 +980,7 @@ Keywords supported: :key :count :start :end :from-end \(fn NEW PREDICATE SEQ [KEYWORD VALUE]...)" nil nil) -(autoload 'find "cl-seq" "\ +(autoload 'cl-find "cl-seq" "\ Find the first occurrence of ITEM in SEQ. Return the matching ITEM, or nil if not found. @@ -983,7 +988,7 @@ Keywords supported: :test :test-not :key :start :end :from-end \(fn ITEM SEQ [KEYWORD VALUE]...)" nil nil) -(autoload 'find-if "cl-seq" "\ +(autoload 'cl-find-if "cl-seq" "\ Find the first item satisfying PREDICATE in SEQ. Return the matching item, or nil if not found. @@ -991,7 +996,7 @@ Keywords supported: :key :start :end :from-end \(fn PREDICATE SEQ [KEYWORD VALUE]...)" nil nil) -(autoload 'find-if-not "cl-seq" "\ +(autoload 'cl-find-if-not "cl-seq" "\ Find the first item not satisfying PREDICATE in SEQ. Return the matching item, or nil if not found. @@ -999,7 +1004,7 @@ Keywords supported: :key :start :end :from-end \(fn PREDICATE SEQ [KEYWORD VALUE]...)" nil nil) -(autoload 'position "cl-seq" "\ +(autoload 'cl-position "cl-seq" "\ Find the first occurrence of ITEM in SEQ. Return the index of the matching item, or nil if not found. @@ -1007,7 +1012,7 @@ Keywords supported: :test :test-not :key :start :end :from-end \(fn ITEM SEQ [KEYWORD VALUE]...)" nil nil) -(autoload 'position-if "cl-seq" "\ +(autoload 'cl-position-if "cl-seq" "\ Find the first item satisfying PREDICATE in SEQ. Return the index of the matching item, or nil if not found. @@ -1015,7 +1020,7 @@ Keywords supported: :key :start :end :from-end \(fn PREDICATE SEQ [KEYWORD VALUE]...)" nil nil) -(autoload 'position-if-not "cl-seq" "\ +(autoload 'cl-position-if-not "cl-seq" "\ Find the first item not satisfying PREDICATE in SEQ. Return the index of the matching item, or nil if not found. @@ -1023,28 +1028,28 @@ Keywords supported: :key :start :end :from-end \(fn PREDICATE SEQ [KEYWORD VALUE]...)" nil nil) -(autoload 'count "cl-seq" "\ +(autoload 'cl-count "cl-seq" "\ Count the number of occurrences of ITEM in SEQ. Keywords supported: :test :test-not :key :start :end \(fn ITEM SEQ [KEYWORD VALUE]...)" nil nil) -(autoload 'count-if "cl-seq" "\ +(autoload 'cl-count-if "cl-seq" "\ Count the number of items satisfying PREDICATE in SEQ. Keywords supported: :key :start :end \(fn PREDICATE SEQ [KEYWORD VALUE]...)" nil nil) -(autoload 'count-if-not "cl-seq" "\ +(autoload 'cl-count-if-not "cl-seq" "\ Count the number of items not satisfying PREDICATE in SEQ. Keywords supported: :key :start :end \(fn PREDICATE SEQ [KEYWORD VALUE]...)" nil nil) -(autoload 'mismatch "cl-seq" "\ +(autoload 'cl-mismatch "cl-seq" "\ Compare SEQ1 with SEQ2, return index of first mismatching element. Return nil if the sequences match. If one sequence is a prefix of the other, the return value indicates the end of the shorter sequence. @@ -1053,7 +1058,7 @@ Keywords supported: :test :test-not :key :start1 :end1 :start2 :end2 :from-end \(fn SEQ1 SEQ2 [KEYWORD VALUE]...)" nil nil) -(autoload 'search "cl-seq" "\ +(autoload 'cl-search "cl-seq" "\ Search for SEQ1 as a subsequence of SEQ2. Return the index of the leftmost element of the first match found; return nil if there are no matches. @@ -1062,7 +1067,7 @@ Keywords supported: :test :test-not :key :start1 :end1 :start2 :end2 :from-end \(fn SEQ1 SEQ2 [KEYWORD VALUE]...)" nil nil) -(autoload 'sort* "cl-seq" "\ +(autoload 'cl-sort "cl-seq" "\ Sort the argument SEQ according to PREDICATE. This is a destructive function; it reuses the storage of SEQ if possible. @@ -1070,7 +1075,7 @@ Keywords supported: :key \(fn SEQ PREDICATE [KEYWORD VALUE]...)" nil nil) -(autoload 'stable-sort "cl-seq" "\ +(autoload 'cl-stable-sort "cl-seq" "\ Sort the argument SEQ stably according to PREDICATE. This is a destructive function; it reuses the storage of SEQ if possible. @@ -1078,7 +1083,7 @@ Keywords supported: :key \(fn SEQ PREDICATE [KEYWORD VALUE]...)" nil nil) -(autoload 'merge "cl-seq" "\ +(autoload 'cl-merge "cl-seq" "\ Destructively merge the two sequences to produce a new sequence. TYPE is the sequence type to return, SEQ1 and SEQ2 are the two argument sequences, and PREDICATE is a `less-than' predicate on the elements. @@ -1087,7 +1092,7 @@ Keywords supported: :key \(fn TYPE SEQ1 SEQ2 PREDICATE [KEYWORD VALUE]...)" nil nil) -(autoload 'member* "cl-seq" "\ +(autoload 'cl-member "cl-seq" "\ Find the first occurrence of ITEM in LIST. Return the sublist of LIST whose car is ITEM. @@ -1095,7 +1100,7 @@ Keywords supported: :test :test-not :key \(fn ITEM LIST [KEYWORD VALUE]...)" nil nil) -(autoload 'member-if "cl-seq" "\ +(autoload 'cl-member-if "cl-seq" "\ Find the first item satisfying PREDICATE in LIST. Return the sublist of LIST whose car matches. @@ -1103,7 +1108,7 @@ Keywords supported: :key \(fn PREDICATE LIST [KEYWORD VALUE]...)" nil nil) -(autoload 'member-if-not "cl-seq" "\ +(autoload 'cl-member-if-not "cl-seq" "\ Find the first item not satisfying PREDICATE in LIST. Return the sublist of LIST whose car matches. @@ -1116,49 +1121,49 @@ Keywords supported: :key \(fn CL-ITEM CL-LIST &rest CL-KEYS)" nil nil) -(autoload 'assoc* "cl-seq" "\ +(autoload 'cl-assoc "cl-seq" "\ Find the first item whose car matches ITEM in LIST. Keywords supported: :test :test-not :key \(fn ITEM LIST [KEYWORD VALUE]...)" nil nil) -(autoload 'assoc-if "cl-seq" "\ +(autoload 'cl-assoc-if "cl-seq" "\ Find the first item whose car satisfies PREDICATE in LIST. Keywords supported: :key \(fn PREDICATE LIST [KEYWORD VALUE]...)" nil nil) -(autoload 'assoc-if-not "cl-seq" "\ +(autoload 'cl-assoc-if-not "cl-seq" "\ Find the first item whose car does not satisfy PREDICATE in LIST. Keywords supported: :key \(fn PREDICATE LIST [KEYWORD VALUE]...)" nil nil) -(autoload 'rassoc* "cl-seq" "\ +(autoload 'cl-rassoc "cl-seq" "\ Find the first item whose cdr matches ITEM in LIST. Keywords supported: :test :test-not :key \(fn ITEM LIST [KEYWORD VALUE]...)" nil nil) -(autoload 'rassoc-if "cl-seq" "\ +(autoload 'cl-rassoc-if "cl-seq" "\ Find the first item whose cdr satisfies PREDICATE in LIST. Keywords supported: :key \(fn PREDICATE LIST [KEYWORD VALUE]...)" nil nil) -(autoload 'rassoc-if-not "cl-seq" "\ +(autoload 'cl-rassoc-if-not "cl-seq" "\ Find the first item whose cdr does not satisfy PREDICATE in LIST. Keywords supported: :key \(fn PREDICATE LIST [KEYWORD VALUE]...)" nil nil) -(autoload 'union "cl-seq" "\ +(autoload 'cl-union "cl-seq" "\ Combine LIST1 and LIST2 using a set-union operation. The resulting list contains all items that appear in either LIST1 or LIST2. This is a non-destructive function; it makes a copy of the data if necessary @@ -1168,7 +1173,7 @@ Keywords supported: :test :test-not :key \(fn LIST1 LIST2 [KEYWORD VALUE]...)" nil nil) -(autoload 'nunion "cl-seq" "\ +(autoload 'cl-nunion "cl-seq" "\ Combine LIST1 and LIST2 using a set-union operation. The resulting list contains all items that appear in either LIST1 or LIST2. This is a destructive function; it reuses the storage of LIST1 and LIST2 @@ -1178,7 +1183,7 @@ Keywords supported: :test :test-not :key \(fn LIST1 LIST2 [KEYWORD VALUE]...)" nil nil) -(autoload 'intersection "cl-seq" "\ +(autoload 'cl-intersection "cl-seq" "\ Combine LIST1 and LIST2 using a set-intersection operation. The resulting list contains all items that appear in both LIST1 and LIST2. This is a non-destructive function; it makes a copy of the data if necessary @@ -1188,7 +1193,7 @@ Keywords supported: :test :test-not :key \(fn LIST1 LIST2 [KEYWORD VALUE]...)" nil nil) -(autoload 'nintersection "cl-seq" "\ +(autoload 'cl-nintersection "cl-seq" "\ Combine LIST1 and LIST2 using a set-intersection operation. The resulting list contains all items that appear in both LIST1 and LIST2. This is a destructive function; it reuses the storage of LIST1 and LIST2 @@ -1198,7 +1203,7 @@ Keywords supported: :test :test-not :key \(fn LIST1 LIST2 [KEYWORD VALUE]...)" nil nil) -(autoload 'set-difference "cl-seq" "\ +(autoload 'cl-set-difference "cl-seq" "\ Combine LIST1 and LIST2 using a set-difference operation. The resulting list contains all items that appear in LIST1 but not LIST2. This is a non-destructive function; it makes a copy of the data if necessary @@ -1208,7 +1213,7 @@ Keywords supported: :test :test-not :key \(fn LIST1 LIST2 [KEYWORD VALUE]...)" nil nil) -(autoload 'nset-difference "cl-seq" "\ +(autoload 'cl-nset-difference "cl-seq" "\ Combine LIST1 and LIST2 using a set-difference operation. The resulting list contains all items that appear in LIST1 but not LIST2. This is a destructive function; it reuses the storage of LIST1 and LIST2 @@ -1218,7 +1223,7 @@ Keywords supported: :test :test-not :key \(fn LIST1 LIST2 [KEYWORD VALUE]...)" nil nil) -(autoload 'set-exclusive-or "cl-seq" "\ +(autoload 'cl-set-exclusive-or "cl-seq" "\ Combine LIST1 and LIST2 using a set-exclusive-or operation. The resulting list contains all items appearing in exactly one of LIST1, LIST2. This is a non-destructive function; it makes a copy of the data if necessary @@ -1228,7 +1233,7 @@ Keywords supported: :test :test-not :key \(fn LIST1 LIST2 [KEYWORD VALUE]...)" nil nil) -(autoload 'nset-exclusive-or "cl-seq" "\ +(autoload 'cl-nset-exclusive-or "cl-seq" "\ Combine LIST1 and LIST2 using a set-exclusive-or operation. The resulting list contains all items appearing in exactly one of LIST1, LIST2. This is a destructive function; it reuses the storage of LIST1 and LIST2 @@ -1238,7 +1243,7 @@ Keywords supported: :test :test-not :key \(fn LIST1 LIST2 [KEYWORD VALUE]...)" nil nil) -(autoload 'subsetp "cl-seq" "\ +(autoload 'cl-subsetp "cl-seq" "\ Return true if LIST1 is a subset of LIST2. I.e., if every element of LIST1 also appears in LIST2. @@ -1246,7 +1251,7 @@ Keywords supported: :test :test-not :key \(fn LIST1 LIST2 [KEYWORD VALUE]...)" nil nil) -(autoload 'subst-if "cl-seq" "\ +(autoload 'cl-subst-if "cl-seq" "\ Substitute NEW for elements matching PREDICATE in TREE (non-destructively). Return a copy of TREE with all matching elements replaced by NEW. @@ -1254,7 +1259,7 @@ Keywords supported: :key \(fn NEW PREDICATE TREE [KEYWORD VALUE]...)" nil nil) -(autoload 'subst-if-not "cl-seq" "\ +(autoload 'cl-subst-if-not "cl-seq" "\ Substitute NEW for elts not matching PREDICATE in TREE (non-destructively). Return a copy of TREE with all non-matching elements replaced by NEW. @@ -1262,7 +1267,7 @@ Keywords supported: :key \(fn NEW PREDICATE TREE [KEYWORD VALUE]...)" nil nil) -(autoload 'nsubst "cl-seq" "\ +(autoload 'cl-nsubst "cl-seq" "\ Substitute NEW for OLD everywhere in TREE (destructively). Any element of TREE which is `eql' to OLD is changed to NEW (via a call to `setcar'). @@ -1271,7 +1276,7 @@ Keywords supported: :test :test-not :key \(fn NEW OLD TREE [KEYWORD VALUE]...)" nil nil) -(autoload 'nsubst-if "cl-seq" "\ +(autoload 'cl-nsubst-if "cl-seq" "\ Substitute NEW for elements matching PREDICATE in TREE (destructively). Any element of TREE which matches is changed to NEW (via a call to `setcar'). @@ -1279,7 +1284,7 @@ Keywords supported: :key \(fn NEW PREDICATE TREE [KEYWORD VALUE]...)" nil nil) -(autoload 'nsubst-if-not "cl-seq" "\ +(autoload 'cl-nsubst-if-not "cl-seq" "\ Substitute NEW for elements not matching PREDICATE in TREE (destructively). Any element of TREE which matches is changed to NEW (via a call to `setcar'). @@ -1287,7 +1292,7 @@ Keywords supported: :key \(fn NEW PREDICATE TREE [KEYWORD VALUE]...)" nil nil) -(autoload 'sublis "cl-seq" "\ +(autoload 'cl-sublis "cl-seq" "\ Perform substitutions indicated by ALIST in TREE (non-destructively). Return a copy of TREE with all matching elements replaced. @@ -1295,7 +1300,7 @@ Keywords supported: :test :test-not :key \(fn ALIST TREE [KEYWORD VALUE]...)" nil nil) -(autoload 'nsublis "cl-seq" "\ +(autoload 'cl-nsublis "cl-seq" "\ Perform substitutions indicated by ALIST in TREE (destructively). Any matching element of TREE is changed via a call to `setcar'. @@ -1303,7 +1308,7 @@ Keywords supported: :test :test-not :key \(fn ALIST TREE [KEYWORD VALUE]...)" nil nil) -(autoload 'tree-equal "cl-seq" "\ +(autoload 'cl-tree-equal "cl-seq" "\ Return t if trees TREE1 and TREE2 have `eql' leaves. Atoms are compared by `eql'; cons cells are compared recursively. -- 2.39.2