[Openmcl-devel] Unexpected change of package

[Waldek Hebisch]

Consider the following session:

? hebisch at hera:~/kompi/axp91$ /home/n/k/hebisch/kompi/lisp/ccl-1.7/scripts/ccl64
Welcome to Clozure Common Lisp Version 1.7-r14925M  (LinuxX8664)!
? (load "foo.lsp")
#P"/home/n/k/hebisch/kompi/axp91/foo.lsp"
? (in-package "KEYWORD")
#<Package "KEYWORD">
? (common-lisp-user::foo)
:NO-TEXT
? *PACKAGE*
#<Package "COMMON-LISP-USER">


where "foo.lsp" is:

(defun foo()
    (let ((*PACKAGE* *PACKAGE*))
         (CCL::SET-DEVELOPMENT-ENVIRONMENT t)
         (CCL::SET-USER-ENVIRONMENT t)))


If I use other operations that change *PACKAGE* then modified version
of 'foo' correctly restores value of *PACKAGE*, however
SET-DEVELOPMENT-ENVIRONMENT and SET-USER-ENVIRONMENT are somewhat
special and *PACKAGE* is not restored...

-- 
                              Waldek Hebisch
hebisch at math.uni.wroc.pl