X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fprimordial-extensions.lisp;h=e28cb0e33fdb333bb2e56b590097d21a5fbe8ece;hb=a160917364f85b38dc0826a5e3dcef87e3c4c62c;hp=d9d0d0e6d7b7b8112b23906b9dcde64a7235b061;hpb=260a9146f02374a9cfbd9deb53283ee493f3729f;p=sbcl.git

diff --git a/src/code/primordial-extensions.lisp b/src/code/primordial-extensions.lisp
index d9d0d0e..e28cb0e 100644
--- a/src/code/primordial-extensions.lisp
+++ b/src/code/primordial-extensions.lisp
@@ -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))))