diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2019-02-18 13:16:57 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2019-02-18 13:16:57 -0500 |
| commit | e6f8ddbb3b8f99c73b2be66bb1e691d4757c3b12 (patch) | |
| tree | f7eed4001cb7ccb23d9673601c4cb155727d0dd3 /lisp/emacs-lisp/cl-seq.el | |
| parent | eccfdaff5b52e1fadbaf2fbbb6c1366a7addf377 (diff) | |
| download | emacs-e6f8ddbb3b8f99c73b2be66bb1e691d4757c3b12.tar.gz emacs-e6f8ddbb3b8f99c73b2be66bb1e691d4757c3b12.tar.bz2 emacs-e6f8ddbb3b8f99c73b2be66bb1e691d4757c3b12.zip | |
* lisp/emacs-lisp/cl-lib.el (cl-endp): Move to cl-seq.el
Use 'cl-check-type'.
Diffstat (limited to 'lisp/emacs-lisp/cl-seq.el')
| -rw-r--r-- | lisp/emacs-lisp/cl-seq.el | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/cl-seq.el b/lisp/emacs-lisp/cl-seq.el index 31ad8111858..3eb6ea16daf 100644 --- a/lisp/emacs-lisp/cl-seq.el +++ b/lisp/emacs-lisp/cl-seq.el @@ -113,6 +113,13 @@ (defvar cl-key) ;;;###autoload +(defun cl-endp (x) + "Return true if X is the empty list; false if it is a cons. +Signal an error if X is not a list." + (cl-check-type x list) + (null x)) + +;;;###autoload (defun cl-reduce (cl-func cl-seq &rest cl-keys) "Reduce two-argument FUNCTION across SEQ. \nKeywords supported: :start :end :from-end :initial-value :key |