IN-PACKAGE changes PACKAGE-USE-LIST inappropriate

[Ulrich Hoffmann <uho@informatik.uni-kiel.dbp.de>]

I think I discovered a problem with IN-PACKAGE.

Here is a clisp session protocoll which shows the problem:

% clisp
...

  ------+------     Copyright (c) Bruno Haible, Michael Stoll 1992, 1993
                                                                  
> (make-package 'a)                        ; first create two new packages
#<PACKAGE A>
> (make-package 'b)
#<PACKAGE B>
> (in-package 'user :use '(lisp a))        ; set package-use-list of USER
#<PACKAGE USER>
> (package-use-list 'user)
(#<PACKAGE A> #<PACKAGE LISP>)		   ; hmm looks ok
> (in-package 'user :use '(lisp b))	   ; extend use-list with package B
#<PACKAGE USER>
> (package-use-list 'user)                 ; check if this was succesful
(#<PACKAGE B> #<PACKAGE LISP>)	           ; oh no! Package A is missing


Using USE-PACKAGE instead of the :USE keyword gives the desired
result. Any ideas?


Greetins,
     Ulrich


I used the SPARC/SUNOS.4.1 Version.

Ulrich Hoffmann                  email: uho@informatik.uni-kiel.dbp.de  
Institut fuer Informatik, Universitaet Kiel        Tel: +49 431 560426 
Preusserstr 1-9, D-2300 Kiel 1, Germany            Fax: +49 431 566143