0.8.0.78.vector-nil-string.1:

[sbcl.git] / src / code / defpackage.lisp

diff --git a/src/code/defpackage.lisp b/src/code/defpackage.lisp
index ab29779..1989869 100644 (file)
--- a/src/code/defpackage.lisp
+++ b/src/code/defpackage.lisp
@@ -135,9 +135,11 @@
                       :format-arguments (list (car x)(car y) z)))))
 
 (defun stringify-name (name kind)
+  (/show0 "in STRINGIFY-NAME, NAME=..")
+  (/hexstr name)
   (typecase name
-    (simple-string name)
-    (string (coerce name 'simple-string))
+    (simple-base-string name)
+    (base-string (coerce name 'simple-base-string))
     (symbol (symbol-name name))
     (base-char (string name))
     (t