X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fearly-print.lisp;h=46bd84904367b2227c7a1078185b26f4f2de8129;hb=2fcf367a1f73ad306404d2d2cbe24e9995853881;hp=ea2c24bb6d063859de939215b94cb35b871c8845;hpb=4898ef32c639b1c7f4ee13a5ba566ce6debd03e6;p=sbcl.git

diff --git a/src/code/early-print.lisp b/src/code/early-print.lisp
index ea2c24b..46bd849 100644
--- a/src/code/early-print.lisp
+++ b/src/code/early-print.lisp
@@ -21,7 +21,7 @@
 ;;; Automatically handle *PRINT-LEVEL* abbreviation. If we are too
 ;;; deep, then a #\# is printed to STREAM and BODY is ignored.
 (defmacro descend-into ((stream) &body body)
-  (let ((flet-name (gensym)))
+  (let ((flet-name (sb!xc:gensym "DESCEND")))
     `(flet ((,flet-name ()
               ,@body))
        (cond ((and (null *print-readably*)
@@ -189,8 +189,7 @@
               t))))))
 
 (defmacro with-circularity-detection ((object stream) &body body)
-  (let ((marker (gensym "WITH-CIRCULARITY-DETECTION-"))
-        (body-name (gensym "WITH-CIRCULARITY-DETECTION-BODY-")))
+  (with-unique-names (marker body-name)
     `(labels ((,body-name ()
                ,@body))
       (cond ((not *print-circle*)