X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpackage.lisp;h=3ee510504053db1520949e0d019293bc0556786a;hb=266509b078969a40bded783057fc15a873c75723;hp=b93fe02e4422feac8ad6dbbbe44b1e83bd21b755;hpb=66137c363429f28f6e40e15ba3f982025ff9bb5d;p=jscl.git

diff --git a/src/package.lisp b/src/package.lisp
index b93fe02..3ee5105 100644
--- a/src/package.lisp
+++ b/src/package.lisp
@@ -76,7 +76,7 @@
 (defvar *package* *common-lisp-package*)
 
 (defmacro in-package (string-designator)
-  `(eval-when-compile
+  `(eval-when (:compile-toplevel :load-toplevel :execute)
      (setq *package* (find-package-or-fail ',string-designator))))
 
 ;; This function is used internally to initialize the CL package