[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/cl.el

[Colin Walters]

Index: emacs/lisp/emacs-lisp/cl.el
diff -c emacs/lisp/emacs-lisp/cl.el:1.29 emacs/lisp/emacs-lisp/cl.el:1.30
*** emacs/lisp/emacs-lisp/cl.el:1.29    Sun Dec  2 02:33:09 2001
--- emacs/lisp/emacs-lisp/cl.el Sat Jun  8 17:42:00 2002
***************
*** 514,528 ****
        (push (pop list) res))
      (nreverse res)))
  
- (defun copy-list (list)
-   "Return a copy of a list, which may be a dotted list.
- The elements of the list are not copied, just the list structure itself."
-   (if (consp list)
-       (let ((res nil))
-       (while (consp list) (push (pop list) res))
-       (prog1 (nreverse res) (setcdr res list)))
-     (car list)))
- 
  (defun cl-maclisp-member (item list)
    (while (and list (not (equal item (car list)))) (setq list (cdr list)))
    list)
--- 514,519 ----