side-effect of (rename-package "LISP" "LISP") [in code/exports.lisp]

hello;

There's a patch at the end of this mail.

The explanation is as follows:


I was trying to use Pierre R Mai's build-tools, to compile CMUCL from the
CVS sources.

During build-world.sh, I was hit with the following error:

--
; Loading #p"/usr/local/src/lang/lisp/cmucl/src/code/exports.lisp".

COMMON-LISP does not contain a symbol CHAR

Restarts:
  0: [CONTINUE] INTERN it.
  1:            Return NIL from load of "target:code/exports".
  2: [ABORT   ] Return to Top-Level.

Debug  (type H for help)

(FIND-OR-MAKE-SYMBOL "CHAR"
                     #<The COMMON-LISP package, 0/9 internal, 0/9 external>)
--



After stepping through code/exports.lisp, it looked like this is part of the
problem:
   (rename-package "LISP" "LISP")
...right at line 39

Evidently, this "wipes out" the common-lisp package.


Here's an illustration:

--

CMU Common Lisp CVS release-18e-branch + minimal debian patches
With core: /usr/lib/cmucl/lisp-dist.core
Dumped on: Thu, 2003-07-31 16:01:11-07:00 on frost


* (rename-package "LISP" "LISP")

#<The LISP package, 1677/2369 internal, 978/1227 external>

* (find-package :common-lisp)

NIL
--


And more, for explanation:


--
* (describe (find-package :lisp))

#<The COMMON-LISP package, 1677/2369 internal, 978/1227 external>  
<...>
%NICKNAMES: ("LISP" "CL").
<...>

--


So,  here's a patch for code/exports.lisp; maybe it'll be useful



thanks
- - -
sean champ




Index: code/exports.lisp
===================================================================
RCS file: /home/anoncvs/CVS-cmucl/src/code/exports.lisp,v
retrieving revision 1.223
diff -p -u -r1.223 exports.lisp
--- code/exports.lisp   25 Aug 2003 20:51:01 -0000      1.223
+++ code/exports.lisp   28 Aug 2003 21:47:56 -0000
@@ -35,12 +35,12 @@
 (if (find-package "FORMAT")
     (rename-package "FORMAT" "FORMAT" 'nil)
     (make-package "FORMAT" :nicknames 'nil :use nil))
-(if (find-package "LISP")
-    (rename-package "LISP" "LISP")
-    (make-package "LISP" :nicknames 'nil :use nil))
 (if (find-package "COMMON-LISP")
     (rename-package "COMMON-LISP" "COMMON-LISP" '("CL"))
     (make-package "COMMON-LISP" :nicknames '("CL") :use nil))
+(if (find-package "LISP")
+    (rename-package "LISP" "LISP")
+    (make-package "LISP" :nicknames 'nil :use nil))
 (if (find-package "EVAL")
     (rename-package "EVAL" "EVAL" 'nil)
     (make-package "EVAL" :nicknames 'nil :use nil))