From: David Vázquez <davazp@gmail.com>
Date: Fri, 30 Aug 2013 18:58:11 +0000 (+0200)
Subject: Use eval-when instead of eval-when-compile
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=266509b078969a40bded783057fc15a873c75723;p=jscl.git

Use eval-when instead of eval-when-compile
---

diff --git a/src/lambda-list.lisp b/src/lambda-list.lisp
index 1a0a6eb..799e727 100644
--- 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
--- 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