diff options
| author | Mattias Engdegård | 2025-09-07 17:47:51 +0200 |
|---|---|---|
| committer | Mattias Engdegård | 2025-09-07 17:47:51 +0200 |
| commit | a4ea22d9989cece0dcbae511c3e321b34474fe14 (patch) | |
| tree | 7509f58c0e6877f844a00ba15935bf183bd70474 | |
| parent | c13c620f12e2f874d22715e7b1dcd06bb5ed1930 (diff) | |
| download | emacs-a4ea22d9989cece0dcbae511c3e321b34474fe14.tar.gz emacs-a4ea22d9989cece0dcbae511c3e321b34474fe14.zip | |
* lisp/emacs-lisp/cl-lib.el (cl-copy-list): Not error-free, bug#79396
| -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 f1b3b8fdbcc..07f37410d3f 100644 --- a/lisp/emacs-lisp/cl-lib.el +++ b/lisp/emacs-lisp/cl-lib.el | |||
| @@ -486,7 +486,7 @@ Thus, `(cl-list* A B C D)' is equivalent to `(nconc (list A B C) D)', or to | |||
| 486 | (defun cl-copy-list (list) | 486 | (defun cl-copy-list (list) |
| 487 | "Return a copy of LIST, which may be a dotted list. | 487 | "Return a copy of LIST, which may be a dotted list. |
| 488 | The elements of LIST are not copied, just the list structure itself." | 488 | The elements of LIST are not copied, just the list structure itself." |
| 489 | (declare (side-effect-free error-free)) | 489 | (declare (side-effect-free t)) |
| 490 | (if (consp list) | 490 | (if (consp list) |
| 491 | (let ((res nil)) | 491 | (let ((res nil)) |
| 492 | (while (consp list) (push (pop list) res)) | 492 | (while (consp list) (push (pop list) res)) |