From: David Vázquez <davazp@gmail.com>
Date: Fri, 30 Aug 2013 18:59:16 +0000 (+0200)
Subject: Remove eval-when-compile
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=d3e462f5e134d21a7f0ba60c50898d33a81ed643;hp=266509b078969a40bded783057fc15a873c75723;p=jscl.git

Remove eval-when-compile
---

diff --git a/src/compat.lisp b/src/compat.lisp
index a95b86f..3af42d0 100644
--- a/src/compat.lisp
+++ b/src/compat.lisp
@@ -34,14 +34,10 @@
        ((not ,condition))
      ,@body))
 
-(defmacro eval-when-compile (&body body)
-  `(eval-when (:compile-toplevel :load-toplevel :execute)
-     ,@body))
-
 (defun aset (array idx value)
   (setf (aref array idx) value))
 
-(eval-when-compile
+(eval-when (:compile-toplevel :load-toplevel :execute)
   (defun concat (&rest strs)
     (apply #'concatenate 'string strs)))
 
diff --git a/src/compiler/compiler.lisp b/src/compiler/compiler.lisp
index ebf22a5..5ecc937 100644
--- a/src/compiler/compiler.lisp
+++ b/src/compiler/compiler.lisp
@@ -607,13 +607,6 @@
     (t
      (convert nil))))
 
-(define-compilation eval-when-compile (&rest body)
-  (if *compiling-file*
-      (progn
-        (eval (cons 'progn body))
-        (convert 0))
-      (convert `(progn ,@body))))
-
 (defmacro define-transformation (name args form)
   `(define-compilation ,name ,args
      (convert ,form)))