X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-package.lisp;h=c8f67568b4ee36658b2d664c109038ef64d9dc60;hb=2d0b882f9eabffe5e2d32c0e2e7ab06c96f4fea3;hp=ebac39b7f9365690afcc671231265220e0a5c093;hpb=02ce4b1b927f1312c300047bd5a0db6663a1d2c6;p=sbcl.git

diff --git a/src/code/target-package.lisp b/src/code/target-package.lisp
index ebac39b..c8f6756 100644
--- a/src/code/target-package.lisp
+++ b/src/code/target-package.lisp
@@ -921,8 +921,8 @@
     (let* ((pkg (apply #'make-package (first spec)))
 	   (internal (package-internal-symbols pkg))
 	   (external (package-external-symbols pkg)))
-      (/show0 "back from MAKE-PACKAGE")
-      #!+sb-show (sb!sys:%primitive print (package-name pkg))
+      (/show0 "back from MAKE-PACKAGE, PACKAGE-NAME=..")
+      (/primitive-print (package-name pkg))
 
       ;; Put internal symbols in the internal hashtable and set package.
       (dolist (symbol (second spec))
@@ -959,7 +959,7 @@
   ;; nicknames that we don't want in our target SBCL. For that reason,
   ;; we handle it specially, not dumping the host Lisp version at
   ;; genesis time..
-  (assert (not (find-package "COMMON-LISP-USER")))
+  (aver (not (find-package "COMMON-LISP-USER")))
   ;; ..but instead making our own from scratch here.
   (/show0 "about to MAKE-PACKAGE COMMON-LISP-USER")
   (make-package "COMMON-LISP-USER"