From c8b4a139f7e11f5a7d0a29b6d4428174e4cd361c Mon Sep 17 00:00:00 2001 From: David Vazquez Date: Mon, 17 Dec 2012 19:05:29 +0000 Subject: [PATCH] Remove unused code --- lispstrack.lisp | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/lispstrack.lisp b/lispstrack.lisp index 7bb6945..a9fba97 100644 --- a/lispstrack.lisp +++ b/lispstrack.lisp @@ -314,10 +314,9 @@ #+common-lisp (defmacro eval-when-compile (&body body) - `(eval-when (:compile-toplevel :execute) + `(eval-when (:compile-toplevel :load-toplevel :execute) ,@body)) -(defvar *eval-when-compilations*) (define-compilation eval-when-compile (&rest body) (eval (cons 'progn body)) nil) -- 1.7.10.4