X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdefpackage.lisp;h=2d50d0a4b313d9f38a80ea731e98677ea44fe5ae;hb=d4c7ab04ed10729a2cfa3321f4382d8a218ad958;hp=198986947670562bd998a79266184cafa545f509;hpb=902e93736a0888aa6b04dc328b1eb328423bf426;p=sbcl.git

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