mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/emacs-lisp/cl-lib.el (cl-copy-list): Not error-free, bug#79396

Browse source
This commit is contained in:
Mattias Engdegård 2025-09-07 17:47:51 +02:00
parent c13c620f12
commit a4ea22d998
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/emacs-lisp/cl-lib.el
View file

@ -486,7 +486,7 @@ Thus, `(cl-list* A B C D)' is equivalent to `(nconc (list A B C) D)', or to
(defun cl-copy-list (list)
"Return a copy of LIST, which may be a dotted list.
The elements of LIST are not copied, just the list structure itself."
(declare (side-effect-free error-free))
(declare (side-effect-free t))
(if (consp list)
(let ((res nil))
(while (consp list) (push (pop list) res))