X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcold%2Fset-up-cold-packages.lisp;h=d3c1e2b8b2798d9081f71f2f3a90426bb610af99;hb=3bbbfec26f90bc005c2ff5c8de0ceb0f95f1a52b;hp=0380857d5ede03f426f051ba461d1b1e9dddbaa1;hpb=cea4896b2482b7b2b429c1631d774b4cfbc0efba;p=sbcl.git

diff --git a/src/cold/set-up-cold-packages.lisp b/src/cold/set-up-cold-packages.lisp
index 0380857..d3c1e2b 100644
--- a/src/cold/set-up-cold-packages.lisp
+++ b/src/cold/set-up-cold-packages.lisp
@@ -16,7 +16,6 @@
 ;;; able to express features which we don't happen to use.
 (export '(package-data
 	  package-data-name
-	  package-data-nicknames
 	  package-data-export
 	  package-data-reexport
 	  package-data-import-from
@@ -26,8 +25,6 @@
   (name (error "missing PACKAGE-DATA-NAME datum"))
   ;; a doc string
   (doc (error "missing PACKAGE-DOC datum"))
-  ;; a list of string designators for package nicknames
-  nicknames
   ;; a tree containing names for exported symbols which'll be set up at package
   ;; creation time, and NILs, which are ignored. (This is a tree in order to
   ;; allow constructs like '("ENOSPC" #!+LINUX ("EDQUOT" "EISNAM" "ENAVAIL"
@@ -54,10 +51,20 @@
     (dolist (package-data package-data-list)
       (let* ((package (make-package
 		       (package-data-name package-data)
-		       :nicknames (package-data-nicknames package-data)
+		       ;; Note: As of 0.7.0, the only nicknames we use
+		       ;; for our implementation packages are hacks
+		       ;; not needed at cross-compile time (e.g. the
+		       ;; deprecated SB-C-CALL nickname for SB-ALIEN).
+		       ;; So support for nicknaming during xc is gone,
+		       ;; since any nicknames are hacked in during
+		       ;; cold init.
+		       :nicknames nil
 		       :use nil)))
-	#!+sb-doc (setf (documentation package t)
-			(package-data-doc package-data))
+	#-clisp ; As of "2.27 (released 2001-07-17) (built 3215971334)"
+	        ; CLISP didn't support DOCUMENTATION on PACKAGE values.
+	(progn
+	  #!+sb-doc (setf (documentation package t)
+			  (package-data-doc package-data)))
 	;; Walk the tree of exported names, exporting each name.
 	(labels ((recurse (tree)
 		   (etypecase tree