X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdefpackage.lisp;h=c7772c8bf69d3a956aeca699336fb065984bf2bb;hb=11b388bac03fea3220e058eb93466bef7b66af75;hp=dfd5b9976a991b891c12a896551c78cfb4ef806e;hpb=771b864c8f32af7734bc0550aeaf1539fc4df194;p=sbcl.git

diff --git a/src/code/defpackage.lisp b/src/code/defpackage.lisp
index dfd5b99..c7772c8 100644
--- a/src/code/defpackage.lisp
+++ b/src/code/defpackage.lisp
@@ -159,10 +159,10 @@
 
 (defun stringify-name (name kind)
   (typecase name
-    (simple-base-string name)
-    (string (coerce name 'simple-base-string))
+    (simple-string name)
+    (string (coerce name 'simple-string))
     (symbol (symbol-name name))
-    (base-char (string name))
+    (character (string name))
     (t
      (error "bogus ~A name: ~S" kind name))))
 
@@ -173,11 +173,11 @@
 
 (defun %defpackage (name nicknames size shadows shadowing-imports
 		    use imports interns exports implement lock doc-string)
-  (declare (type simple-base-string name)
+  (declare (type simple-string name)
 	   (type list nicknames shadows shadowing-imports
 		 imports interns exports)
 	   (type (or list (member :default)) use)
-	   (type (or simple-base-string null) doc-string)
+	   (type (or simple-string null) doc-string)
 	   #!-sb-package-locks
 	   (ignore implement lock))
   (let ((package (or (find-package name)