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

[Kim F. Storm]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Kim F. Storm <kfstorm>  06/09/20 23:12:15

Index: cl.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/emacs-lisp/cl.el,v
retrieving revision 1.50
retrieving revision 1.51
diff -u -b -r1.50 -r1.51
--- cl.el       11 Sep 2006 11:15:53 -0000      1.50
+++ cl.el       20 Sep 2006 23:12:15 -0000      1.51
@@ -159,9 +159,7 @@
 \n(fn X PLACE [KEYWORD VALUE]...)"
   (if (symbolp place)
       (if (null keys)
-         `(let ((pushnew-internal ,place))
-            (add-to-list 'pushnew-internal ,x nil 'eql)
-            (setq ,place pushnew-internal))
+         `(if (memql ,x ,place) ,place (setq ,place (cons ,x ,place)))
        (list 'setq place (list* 'adjoin x place keys)))
     (list* 'callf2 'adjoin x place keys)))