From: Nikodemus Siivola Date: Wed, 29 Aug 2007 15:13:32 +0000 (+0000) Subject: 1.0.9.8: prettier DEFINE-MODIFY-MACRO arglist X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;ds=sidebyside;h=1fbc96f7aab7919a0ec05138fb159e090914af11;p=sbcl.git 1.0.9.8: prettier DEFINE-MODIFY-MACRO arglist * Use MAKE-SYMBOL instead of GENSYM for symbols that appear in the final lambda-list. Thanks to Tobias C. Rittweiler. --- diff --git a/NEWS b/NEWS index 1393e53..86c3dcf 100644 --- a/NEWS +++ b/NEWS @@ -13,6 +13,9 @@ changes in sbcl-1.0.10 relative to sbcl-1.0.9: * optimization: UNION and NUNION are now O(N+M) for large inputs as long as the :TEST function is one of EQ, EQL, EQUAL, or EQUALP. + * enhancement: DEFINE-MODIFY-MACRO lambda-list information is + now more readable in environments like Slime which display it. + (thanks to Tobias C. Rittweiler) changes in sbcl-1.0.9 relative to sbcl-1.0.8: * minor incompatible change: SB-SYS:OUTPUT-RAW-BYTES is deprecated. diff --git a/src/code/early-setf.lisp b/src/code/early-setf.lisp index d184133..ee40cbd 100644 --- a/src/code/early-setf.lisp +++ b/src/code/early-setf.lisp @@ -307,8 +307,9 @@ GET-SETF-EXPANSION directly." "Creates a new read-modify-write macro like PUSH or INCF." (let ((other-args nil) (rest-arg nil) - (env (gensym)) - (reference (gensym))) + (env (make-symbol "ENV")) ; To beautify resulting arglist. + (reference (make-symbol "PLACE"))) ; Note that these will be nonexistent + ; in the final expansion anyway. ;; Parse out the variable names and &REST arg from the lambda list. (do ((ll lambda-list (cdr ll)) (arg nil)) diff --git a/version.lisp-expr b/version.lisp-expr index 1a24b50..025cef0 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.9.7" +"1.0.9.8"