core-lib: refactor pushnew! macro

Do a little more work at expand-time.
This commit is contained in:
Henrik Lissner 2019-07-21 14:43:11 +02:00
parent 3306eaa17c
commit 602e2f31c7
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -177,8 +177,8 @@ Accepts the same arguments as `message'."
(defmacro pushnew! (place &rest values)
"Like `cl-pushnew', but will prepend VALUES to PLACE.
The order VALUES is preserved."
`(dolist (--value-- (nreverse (list ,@values)))
(cl-pushnew --value-- ,place)))
`(dolist (--x-- (list ,@(nreverse values)))
(cl-pushnew --x-- ,place)))
(defmacro prependq! (sym &rest lists)
"Prepend LISTS to SYM in place."