X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdefpackage.lisp;h=2d50d0a4b313d9f38a80ea731e98677ea44fe5ae;hb=531b03cfcbc4071c5283309f05d9186e051e5513;hp=ab297791b12fa1cd28951fc2d26239eac5facb6b;hpb=b1abaa98c141c3f9baceb1185086fde7b5256e98;p=sbcl.git

diff --git a/src/code/defpackage.lisp b/src/code/defpackage.lisp
index ab29779..2d50d0a 100644
--- a/src/code/defpackage.lisp
+++ b/src/code/defpackage.lisp
@@ -136,8 +136,8 @@
 
 (defun stringify-name (name kind)
   (typecase name
-    (simple-string name)
-    (string (coerce name 'simple-string))
+    (simple-base-string name)
+    (string (coerce name 'simple-base-string))
     (symbol (symbol-name name))
     (base-char (string name))
     (t