Use eval-when instead of eval-when-compile
authorDavid Vázquez <davazp@gmail.com>
Fri, 30 Aug 2013 18:58:11 +0000 (20:58 +0200)
committerDavid Vázquez <davazp@gmail.com>
Fri, 30 Aug 2013 18:58:11 +0000 (20:58 +0200)
src/lambda-list.lisp
src/package.lisp

index 1a0a6eb..799e727 100644 (file)
   (apply #'!expand-destructuring-bind lambda-list expression body))
 
 #+jscl
   (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))
   (let ((macroexpander
          '#'(lambda (form &optional environment)
               (declare (ignore environment))
index b93fe02..3ee5105 100644 (file)
@@ -76,7 +76,7 @@
 (defvar *package* *common-lisp-package*)
 
 (defmacro in-package (string-designator)
 (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
      (setq *package* (find-package-or-fail ',string-designator))))
 
 ;; This function is used internally to initialize the CL package