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

diff --git a/src/code/defpackage.lisp b/src/code/defpackage.lisp
index ec8763c..2d50d0a 100644
--- a/src/code/defpackage.lisp
+++ b/src/code/defpackage.lisp
@@ -11,6 +11,22 @@
 
 (in-package "SB!IMPL")
 
+;;; the list of packages to use by default when no :USE argument is
+;;; supplied to MAKE-PACKAGE or other package creation forms
+;;;
+;;; ANSI specifies (1) that MAKE-PACKAGE and DEFPACKAGE use the same
+;;; value, and (2) that it (as an implementation-defined value) should
+;;; be documented, which we do in the doc string. So for OAOO reasons
+;;; we represent this value as a variable only at compile time, and
+;;; then use #. readmacro hacks to splice it into the target code as a
+;;; constant.
+(eval-when (:compile-toplevel)
+  (defparameter *default-package-use-list*
+    ;; ANSI says this is implementation-defined. So we make it NIL,
+    ;; the way God intended. Anyone who actually wants a random value
+    ;; is free to :USE (PACKAGE-USE-LIST :CL-USER) anyway.:-|
+    nil))
+
 (defmacro defpackage (package &rest options)
   #!+sb-doc
   "Defines a new package called PACKAGE. Each of OPTIONS should be one of the
@@ -120,16 +136,16 @@
 
 (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
      (error "bogus ~A name: ~S" kind name))))
 
 (defun stringify-names (names kind)
-  (mapcar #'(lambda (name)
-	      (stringify-name name kind))
+  (mapcar (lambda (name)
+	    (stringify-name name kind))
 	  names))
 
 (defun %defpackage (name nicknames size shadows shadowing-imports
@@ -142,7 +158,7 @@
   (let ((package (or (find-package name)
 		     (progn
 		       (when (eq use :default)
-			 (setf use *default-package-use-list*))
+			 (setf use '#.*default-package-use-list*))
 		       (make-package name
 				     :use nil
 				     :internal-symbols (or size 10)
@@ -190,7 +206,7 @@
 		  package))))
     ;; Handle exports.
     (let ((old-exports nil)
-	  (exports (mapcar #'(lambda (sym-name) (intern sym-name package))
+	  (exports (mapcar (lambda (sym-name) (intern sym-name package))
 			   exports)))
       (do-external-symbols (sym package)
 	(push sym old-exports))