[Sbcl-commits] CVS: sbcl/src/code primordial-extensions.lisp, 1.36, 1.37

[Paul K. <pk...@us...>]

Update of /cvsroot/sbcl/sbcl/src/code
In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv29488/sbcl/src/code

Modified Files:
	primordial-extensions.lisp 
Log Message:
1.0.17.35: Bug fixes: cross-compiler's lookup of constants, recursive escaping

 * Reinstate :CONSTANT-VALUE in the infodb as :XC-CONSTANT-VALUE
   during cross-compilation, since we can't override our host's
   standard constants.

 * Avoid recursive escaping in BLOCK-GENSYM.


Index: primordial-extensions.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/primordial-extensions.lisp,v
retrieving revision 1.36
retrieving revision 1.37
diff -u -d -r1.36 -r1.37
--- primordial-extensions.lisp	18 Nov 2007 04:13:27 -0000	1.36
+++ primordial-extensions.lisp	15 Jun 2008 11:13:41 -0000	1.37
@@ -131,7 +131,7 @@
   (let ((block-name (when env
                       (car (find-if #'car (sb!c::lexenv-blocks env))))))
     (if block-name
-        (gensym (format nil "~A[~S]" name block-name))
+        (gensym (format nil "~A[~A]" name block-name))
         (gensym name))))