Remove unused code

diff --git a/lispstrack.lisp b/lispstrack.lisp
index 7bb6945..a9fba97 100644 (file)
--- 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)