Fix pushnew! inserting duplicates of complex types
Because it was using #'eql for comparison, which is insufficient for compound datatypes, like strings.
This commit is contained in:
parent
a567e2f85e
commit
ca574c60b0
|
@ -169,7 +169,7 @@ at the values with which this function was called."
|
||||||
This is a variadic `cl-pushnew'."
|
This is a variadic `cl-pushnew'."
|
||||||
(let ((var (make-symbol "result")))
|
(let ((var (make-symbol "result")))
|
||||||
`(dolist (,var (list ,@values))
|
`(dolist (,var (list ,@values))
|
||||||
(cl-pushnew ,var ,place))))
|
(cl-pushnew ,var ,place :test #'equal))))
|
||||||
|
|
||||||
(defmacro prependq! (sym &rest lists)
|
(defmacro prependq! (sym &rest lists)
|
||||||
"Prepend LISTS to SYM in place."
|
"Prepend LISTS to SYM in place."
|
||||||
|
|
Loading…
Reference in New Issue
Block a user