From 266509b078969a40bded783057fc15a873c75723 Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Fri, 30 Aug 2013 20:58:11 +0200 Subject: [PATCH] Use eval-when instead of eval-when-compile --- src/lambda-list.lisp | 2 +- src/package.lisp | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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 -- 1.7.10.4