1.0.12.6: Removing UNIX-NAMESTRING, part 1

[sbcl.git] / src / compiler / generic / genesis.lisp

diff --git a/src/compiler/generic/genesis.lisp b/src/compiler/generic/genesis.lisp
index 03f91ed..a67217c 100644 (file)
--- a/src/compiler/generic/genesis.lisp
+++ b/src/compiler/generic/genesis.lisp
@@ -1609,7 +1609,7 @@ core and return a descriptor to it."
 (defvar *cold-assembler-fixups*)
 
 (defun record-cold-assembler-routine (name address)
-  (/show "in RECORD-COLD-ASSEMBLER-ROUTINE" name address)
+  (/xhow "in RECORD-COLD-ASSEMBLER-ROUTINE" name address)
   (push (cons name address)
         *cold-assembler-routines*))
 
@@ -2729,7 +2729,6 @@ core and return a descriptor to it."
                   (symbol-value c)
                   nil)
             constants))
-
     (setf constants
           (sort constants
                 (lambda (const1 const2)