From: Nikodemus Siivola Date: Sun, 5 Oct 2008 11:30:01 +0000 (+0000) Subject: 1.0.21.4: PUSHNEW arglist beautifcation X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=c3908b29dcb11bba95a434fcc2fedc820fc8ec38;p=sbcl.git 1.0.21.4: PUSHNEW arglist beautifcation * Patch by Tobias C. Rittweiler. --- diff --git a/src/code/early-setf.lisp b/src/code/early-setf.lisp index ee40cbd..1487215 100644 --- a/src/code/early-setf.lisp +++ b/src/code/early-setf.lisp @@ -211,12 +211,14 @@ GET-SETF-EXPANSION directly." (,(car newval) (cons ,g ,getter))) ,setter)))) -(defmacro-mundanely pushnew (obj place &rest keys &environment env) +(defmacro-mundanely pushnew (obj place &rest keys + &key key test test-not &environment env) #!+sb-doc "Takes an object and a location holding a list. If the object is already in the list, does nothing; otherwise, conses the object onto the list. Returns the modified list. If there is a :TEST keyword, this is used for the comparison." + (declare (ignore key test test-not)) (multiple-value-bind (dummies vals newval setter getter) (get-setf-method place env) (let ((g (gensym))) diff --git a/version.lisp-expr b/version.lisp-expr index 0108c9a..41dd6d3 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -17,4 +17,4 @@ ;;; checkins which aren't released. (And occasionally for internal ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"1.0.21.3" +"1.0.21.4"