bug related to packages in MCL2.0B1P2

[cartier@math.uqam.ca (Guillaume Cartier)]

I found what has to be a bug related to package management
(or maybe there's something I dont know that has changed in CLtL2).

? (defpackage "FOO" (:use "CL"))
#<Package "FOO">

? (defpackage "GOO" (:use "CL"))
#<Package "GOO">

? (intern "TOTO" "FOO")
FOO::TOTO
NIL

? (export 'goo::toto "GOO")
T

? (use-package "GOO" "FOO")
T
  *** Here Common Lisp should complain about the symbol TOTO having
  *** 2 package interpretations...

? (symbol-package 'foo::toto)
#<Package "FOO">

? (package-use-list "FOO")
(#<Package "GOO"> #<Package "COMMON-LISP">)

Guillaume Cartier
LACIM, Universite du Quebec a Montreal.
Bureau: (514) 987-4290
E-Mail: cartier@math.uqam.ca