From: David Vazquez <davazp@gmail.com>
Date: Mon, 17 Dec 2012 19:05:29 +0000 (+0000)
Subject: Remove unused code
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=c8b4a139f7e11f5a7d0a29b6d4428174e4cd361c;p=jscl.git

Remove unused code
---

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)