[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/cl.el,v
From: |
Kim F. Storm |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/cl.el,v |
Date: |
Tue, 03 Oct 2006 09:19:17 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Kim F. Storm <kfstorm> 06/10/03 09:19:17
Index: cl.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/emacs-lisp/cl.el,v
retrieving revision 1.51
retrieving revision 1.52
diff -u -b -r1.51 -r1.52
--- cl.el 20 Sep 2006 23:12:15 -0000 1.51
+++ cl.el 3 Oct 2006 09:19:17 -0000 1.52
@@ -149,8 +149,6 @@
(if (symbolp place) (list 'setq place (list 'cons x place))
(list 'callf2 'cons x place)))
-(defvar pushnew-internal)
-
(defmacro pushnew (x place &rest keys)
"(pushnew X PLACE): insert X at the head of the list if not already there.
Like (push X PLACE), except that the list is unmodified if X is `eql' to
@@ -159,7 +157,8 @@
\n(fn X PLACE [KEYWORD VALUE]...)"
(if (symbolp place)
(if (null keys)
- `(if (memql ,x ,place) ,place (setq ,place (cons ,x ,place)))
+ `(let ((x ,x))
+ (if (memql x ,place) ,place (setq ,place (cons x ,place))))
(list 'setq place (list* 'adjoin x place keys)))
(list* 'callf2 'adjoin x place keys)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/cl.el,v,
Kim F. Storm <=