X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftype-init.lisp;h=b8c8d904c408a3e1453c962de93bf50393be0721;hb=986ce2596822cc0871b609346aaf592348aca596;hp=0c128258cf202d2c3dabecfe1c9b4a1799af2a6f;hpb=99ad0a384664dc98af26245a33f11619ec0854ad;p=sbcl.git

diff --git a/src/code/type-init.lisp b/src/code/type-init.lisp
index 0c12825..b8c8d90 100644
--- a/src/code/type-init.lisp
+++ b/src/code/type-init.lisp
@@ -22,10 +22,8 @@
 (dolist (x *built-in-classes*)
   (destructuring-bind (name &key (translation nil trans-p) &allow-other-keys)
       x
-    #+sb-show (progn
-		(/show0 "doing class with name=..")
-		#+sb-xc-host (/show0 name)
-		#-sb-xc-host (%primitive print (symbol-name name)))
+    (/show0 "doing class with NAME=..")
+    (/primitive-print (symbol-name name))
     (when trans-p
       (/show0 "in TRANS-P case")
       (let ((class (class-cell-class (find-class-cell name)))