X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fgeneric%2Fgenesis.lisp;h=2e68ef4a55232568c194ef4ee530cf4fdc23babc;hb=2f8c59edcd41f03c5daebeaf87518b5071a19826;hp=03f91ed873dbcece6ebd83f39e2886876e49b26e;hpb=ec30c81b59228c659fd602f98b7d7c9fc162cc0f;p=sbcl.git

diff --git a/src/compiler/generic/genesis.lisp b/src/compiler/generic/genesis.lisp
index 03f91ed..2e68ef4 100644
--- a/src/compiler/generic/genesis.lisp
+++ b/src/compiler/generic/genesis.lisp
@@ -1108,6 +1108,8 @@ core and return a descriptor to it."
         *cl-package*
         ;; ordinary case
         (let ((result (symbol-package symbol)))
+          (unless (package-ok-for-target-symbol-p result)
+            (bug "~A in bad package for target: ~A" symbol result))
           (aver (package-ok-for-target-symbol-p result))
           result))))
 
@@ -1609,7 +1611,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 +2731,6 @@ core and return a descriptor to it."
                   (symbol-value c)
                   nil)
             constants))
-
     (setf constants
           (sort constants
                 (lambda (const1 const2)