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:
Henrik Lissner 2019-08-24 01:23:22 -04:00
parent a567e2f85e
commit ca574c60b0
No known key found for this signature in database
GPG Key ID: 5F6C0EA160557395

View File

@ -169,7 +169,7 @@ at the values with which this function was called."
This is a variadic `cl-pushnew'."
(let ((var (make-symbol "result")))
`(dolist (,var (list ,@values))
(cl-pushnew ,var ,place))))
(cl-pushnew ,var ,place :test #'equal))))
(defmacro prependq! (sym &rest lists)
"Prepend LISTS to SYM in place."