X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-package.lisp;h=a8a8ea7254d111cb4dda18c4344e62cd87741fac;hb=86210c4e406c1b2ff10cc3bac0e71435867db48b;hp=127e2eac0e56f0d4b0344a807bbfb9a9018abd22;hpb=6139c89c89f45c03509e4f3156293ff656716a8c;p=sbcl.git

diff --git a/src/code/target-package.lisp b/src/code/target-package.lisp
index 127e2ea..a8a8ea7 100644
--- a/src/code/target-package.lisp
+++ b/src/code/target-package.lisp
@@ -24,14 +24,6 @@
 
 (!cold-init-forms
   (/show0 "entering !PACKAGE-COLD-INIT"))
-
-(defvar *default-package-use-list*)
-(!cold-init-forms
-  (setf *default-package-use-list* '("COMMON-LISP")))
-#!+sb-doc
-(setf (fdocumentation '*default-package-use-list* 'variable)
-  "the list of packages to use by default when no :USE argument is supplied
-  to MAKE-PACKAGE or other package creation forms")
 
 ;;;; PACKAGE-HASHTABLE stuff
 
@@ -84,12 +76,12 @@
 ;;; ANSI says (in the definition of DELETE-PACKAGE) that these, and
 ;;; most other operations, are unspecified for deleted packages. We
 ;;; just do the easy thing and signal errors in that case.
-(macrolet ((def-frob (ext real)
+(macrolet ((def (ext real)
 	     `(defun ,ext (x) (,real (find-undeleted-package-or-lose x)))))
-  (def-frob package-nicknames package-%nicknames)
-  (def-frob package-use-list package-%use-list)
-  (def-frob package-used-by-list package-%used-by-list)
-  (def-frob package-shadowing-symbols package-%shadowing-symbols))
+  (def package-nicknames package-%nicknames)
+  (def package-use-list package-%use-list)
+  (def package-used-by-list package-%used-by-list)
+  (def package-shadowing-symbols package-%shadowing-symbols))
 
 (defun %package-hashtable-symbol-count (table)
   (let ((size (the fixnum
@@ -303,16 +295,19 @@
 	     (push n (package-%nicknames package)))))))
 
 (defun make-package (name &key
-			  (use *default-package-use-list*)
+			  (use '#.*default-package-use-list*)
 			  nicknames
 			  (internal-symbols 10)
 			  (external-symbols 10))
   #!+sb-doc
-  "Makes a new package having the specified Name and Nicknames. The
-  package will inherit all external symbols from each package in
-  the use list. :Internal-Symbols and :External-Symbols are
+  #.(format nil
+     "Make a new package having the specified NAME, NICKNAMES, and 
+  USE list. :INTERNAL-SYMBOLS and :EXTERNAL-SYMBOLS are
   estimates for the number of internal and external symbols which
-  will ultimately be present in the package."
+  will ultimately be present in the package. The default value of
+  USE is implementation-dependent, and in this implementation
+  it is ~S."
+     *default-package-use-list*)
 
   ;; Check for package name conflicts in name and nicknames, then
   ;; make the package.
@@ -576,9 +571,9 @@
 	(t
 	 (error "~S is neither a symbol nor a list of symbols." thing))))
 
-;;; Like UNINTERN, but if symbol is inherited chases down the package
-;;; it is inherited from and uninterns it there. Used for
-;;; name-conflict resolution. Shadowing symbols are not uninterned
+;;; This is like UNINTERN, except if SYMBOL is inherited, it chases
+;;; down the package it is inherited from and uninterns it there. Used
+;;; for name-conflict resolution. Shadowing symbols are not uninterned
 ;;; since they do not cause conflicts.
 (defun moby-unintern (symbol package)
   (unless (member symbol (package-%shadowing-symbols package))