From e6f8ddbb3b8f99c73b2be66bb1e691d4757c3b12 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 18 Feb 2019 13:16:57 -0500 Subject: [PATCH] * lisp/emacs-lisp/cl-lib.el (cl-endp): Move to cl-seq.el Use 'cl-check-type'. --- lisp/emacs-lisp/cl-lib.el | 7 ------- lisp/emacs-lisp/cl-seq.el | 7 +++++++ 2 files changed, 7 insertions(+), 7 deletions(-) diff --git a/lisp/emacs-lisp/cl-lib.el b/lisp/emacs-lisp/cl-lib.el index 60c52c26ca3..3a9280fae62 100644 --- a/lisp/emacs-lisp/cl-lib.el +++ b/lisp/emacs-lisp/cl-lib.el @@ -365,13 +365,6 @@ SEQ, this is like `mapcar'. With several, it is like the Common Lisp (cl--defalias 'cl-second 'cadr) (cl--defalias 'cl-rest 'cdr) -(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." - (if (listp x) - (null x) - (signal 'wrong-type-argument (list 'listp x)))) - (cl--defalias 'cl-third 'cl-caddr "Return the third element of the list X.") (cl--defalias 'cl-fourth 'cl-cadddr "Return the fourth element of the list X.") 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 @@ -112,6 +112,13 @@ (defvar cl-if) (defvar cl-if-not) (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. -- 2.39.5