From 9935d377076aacfb8ac397a993bd7eb99c52e4a9 Mon Sep 17 00:00:00 2001 From: Nikodemus Siivola Date: Tue, 23 Sep 2008 21:48:25 +0000 Subject: [PATCH] 1.0.20.26: nicer ONCE-ONLY expansion * Name the variables actually visible in the final expansion sensibly. --- src/code/early-extensions.lisp | 4 ++-- version.lisp-expr | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) 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" -- 1.7.10.4