Commit fcecceea authored by Kim F. Storm's avatar Kim F. Storm
Browse files

(pushnew-internal): Remove defvar.

(pushnew): Fix last change.
parent 73812be6
......@@ -149,8 +149,6 @@ be a symbol, or any generalized variable allowed by `setf'."
(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 @@ an element already on the list.
(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)))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment