0.6.10.21:

[sbcl.git] / src / pcl / low.lisp

diff --git a/src/pcl/low.lisp b/src/pcl/low.lisp
index b6c25a1..50f71d9 100644 (file)
--- a/src/pcl/low.lisp
+++ b/src/pcl/low.lisp
@@ -161,7 +161,7 @@
         (intern (let ((*package* *pcl-package*)
                       (*print-case* :upcase)
                       (*print-pretty* nil)
-                      (*print-gensym* 't))
+                      (*print-gensym* t))
                   (format nil "~S" name))
                 *pcl-package*))))
 \f