diff options
| author | Paul Eggert | 2019-02-17 21:35:19 -0800 |
|---|---|---|
| committer | Paul Eggert | 2019-02-17 21:35:55 -0800 |
| commit | 43f6fd434dd23fa7202ba95bd1cc3f41234ad609 (patch) | |
| tree | e0becb0c3ad1bcc8c4aa047523abbd6cf514b763 | |
| parent | 4f24b4a6dff0c257d1c1ea49338efcdff59446b0 (diff) | |
| download | emacs-43f6fd434dd23fa7202ba95bd1cc3f41234ad609.tar.gz emacs-43f6fd434dd23fa7202ba95bd1cc3f41234ad609.zip | |
* lisp/emacs-lisp/cl-lib.el (cl-endp): Remove stray 'x.
| -rw-r--r-- | lisp/emacs-lisp/cl-lib.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/cl-lib.el b/lisp/emacs-lisp/cl-lib.el index 3756b52feb8..60c52c26ca3 100644 --- a/lisp/emacs-lisp/cl-lib.el +++ b/lisp/emacs-lisp/cl-lib.el | |||
| @@ -370,7 +370,7 @@ SEQ, this is like `mapcar'. With several, it is like the Common Lisp | |||
| 370 | Signal an error if X is not a list." | 370 | Signal an error if X is not a list." |
| 371 | (if (listp x) | 371 | (if (listp x) |
| 372 | (null x) | 372 | (null x) |
| 373 | (signal 'wrong-type-argument (list 'listp x 'x)))) | 373 | (signal 'wrong-type-argument (list 'listp x)))) |
| 374 | 374 | ||
| 375 | (cl--defalias 'cl-third 'cl-caddr "Return the third element of the list X.") | 375 | (cl--defalias 'cl-third 'cl-caddr "Return the third element of the list X.") |
| 376 | (cl--defalias 'cl-fourth 'cl-cadddr "Return the fourth element of the list X.") | 376 | (cl--defalias 'cl-fourth 'cl-cadddr "Return the fourth element of the list X.") |