From: Nikodemus Siivola <nikodemus@random-state.net>
Date: Tue, 23 Sep 2008 21:48:25 +0000 (+0000)
Subject: 1.0.20.26: nicer ONCE-ONLY expansion
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=9935d377076aacfb8ac397a993bd7eb99c52e4a9;p=sbcl.git

1.0.20.26: nicer ONCE-ONLY expansion

 * Name the variables actually visible in the final expansion sensibly.
---

diff --git a/src/code/early-extensions.lisp b/src/code/early-extensions.lisp
index c6a544f..341c69b 100644
--- a/src/code/early-extensions.lisp
+++ b/src/code/early-extensions.lisp
@@ -843,9 +843,9 @@
           (unless (proper-list-of-length-p spec 2)
             (error "malformed ONCE-ONLY binding spec: ~S" spec))
           (let* ((name (first spec))
-                 (exp-temp (gensym (symbol-name name))))
+                 (exp-temp (gensym "ONCE-ONLY")))
             `(let ((,exp-temp ,(second spec))
-                   (,name (gensym "ONCE-ONLY-")))
+                   (,name (gensym ,(symbol-name name))))
                `(let ((,,name ,,exp-temp))
                   ,,(frob (rest specs) body))))))))
 
diff --git a/version.lisp-expr b/version.lisp-expr
index 6c94b7e..ff5b1fd 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.20.25"
+"1.0.20.26"