(list 'cl-callf '- place (or x 1))))
(defmacro cl-pushnew (x place &rest keys)
- "(cl-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
-an element already on the list.
+ "Add X to the list stored in PLACE unless already X is already in the list.
+PLACE is a generalized variable that stores a list.
+
+Like (push X PLACE), except that PLACE is unmodified if X is
+`eql' to an element already in PLACE list.
+
\nKeywords supported: :test :test-not :key
\n(fn X PLACE [KEYWORD VALUE]...)"
(declare (debug