Use eval-when instead of eval-when-compile

diff --git a/src/lambda-list.lisp b/src/lambda-list.lisp
index 1a0a6eb..799e727 100644 (file)
--- a/src/lambda-list.lisp
+++ b/src/lambda-list.lisp
@@ -346,7 +346,7 @@
   (apply #'!expand-destructuring-bind lambda-list expression body))
 
 #+jscl
-(eval-when-compile
+(eval-when (:compile-toplevel)
   (let ((macroexpander
          '#'(lambda (form &optional environment)
               (declare (ignore environment))

diff --git a/src/package.lisp b/src/package.lisp
index b93fe02..3ee5105 100644 (file)
--- 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