Re: asdf gensym problem

"bryan o'connor" <[email protected]> Mon, 1 Aug 2005 10:37:22 -0700
Newsgroups gmane.lisp.openmcl.bugs
Message-ID <[email protected]>
i ran some tests to figure out why asdf and asdf1 were
in my default image in the first place..

it looks like the generated ppc-boot.image will also
contain packages (but not their contents) from the build
compilers image.

with a "clean" image, there shouldn't be any problems
with asdf unless someone else uses packages named ASDFnnn.
(possible, but probably rare enough to just let it be)

     ...bryan


 > openmcl -n
Welcome to OpenMCL Version (Beta: DarwinPPC32) 0.14.4-pre-050729!
? (make-package :foo)
#<Package "FOO">
? (setf foo::bar 3)
3
? (defun foo::baz () "blah")
FOO::BAZ
? (describe (find-package :foo))
#<Package "FOO">
Type: PACKAGE
Class: #<BUILT-IN-CLASS PACKAGE>
Internal Symbols: 2
External Symbols: 0
PKG.ITAB: (#(0 0 0 0 0 0 0 0 0 0 0 0 0 0 FOO::BAR 0 0 0 0 0 ...) 2 . 54)
PKG.ETAB: (#(0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ...) 0 . 36)
PKG.USED: (#<Package "CCL"> #<Package "COMMON-LISP">)
PKG.USED-BY: NIL
PKG.NAMES: ("FOO")
PKG.SHADOWED: NIL
PKG.LOCK: #<READ-WRITE-LOCK  #x839EE96>
? (xload-level-0)
;Loading #P"/Users/bryan/src/ccl/level-0/PPC/PPC32/l0-bignum- 
ppc32.dfsl"...
[...]
NIL
? (compile-ccl)
T
? (quit)

 > ./dppccl -n -I ./ppc-boot.image
;Loading level-1.dfsl
[...]
;Loading ./library/lispequ.dfsl
? (find-package :foo)
#<Package "FOO">
? (describe *)
#<Package "FOO">
Type: PACKAGE
Class: #<BUILT-IN-CLASS PACKAGE>
Internal Symbols: 0
External Symbols: 0
PKG.ITAB: (#(0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ...) 0 . 36)
PKG.ETAB: (#(0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ...) 0 . 36)
PKG.USED: (#<Package "CCL"> #<Package "COMMON-LISP">)
PKG.USED-BY: NIL
PKG.NAMES: ("FOO")
PKG.SHADOWED: NIL
PKG.LOCK: #<READ-WRITE-LOCK  #x8050506>