X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcold%2Fshared.lisp;h=86dcd58a93883e8f49719399beea0cdebd183f0c;hb=f1407e424f1063203af07d2e61ceef58515a4797;hp=20b519ac1ae161a4a5269a9e9e9dda61b67c4cca;hpb=242432ac5aa332bff0edfc519c80062cf8b61c93;p=sbcl.git

diff --git a/src/cold/shared.lisp b/src/cold/shared.lisp
index 20b519a..86dcd58 100644
--- a/src/cold/shared.lisp
+++ b/src/cold/shared.lisp
@@ -311,7 +311,7 @@
 (defparameter *stems-and-flags* (read-from-file "build-order.lisp-expr"))
 
 (defmacro do-stems-and-flags ((stem flags) &body body)
-  (let ((stem-and-flags (gensym "STEM-AND-FLAGS-")))
+  (let ((stem-and-flags (gensym "STEM-AND-FLAGS")))
     `(dolist (,stem-and-flags *stems-and-flags*)
        (let ((,stem (first ,stem-and-flags))
 	     (,flags (rest ,stem-and-flags)))