Remove eval-when-compile

diff --git a/src/compat.lisp b/src/compat.lisp
index a95b86f..3af42d0 100644 (file)
--- a/src/compat.lisp
+++ b/src/compat.lisp
@@ -34,14 +34,10 @@
        ((not ,condition))
      ,@body))
 
        ((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))
 
 (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)))
 
   (defun concat (&rest strs)
     (apply #'concatenate 'string strs)))
 

diff --git a/src/compiler/compiler.lisp b/src/compiler/compiler.lisp
index ebf22a5..5ecc937 100644 (file)
--- a/src/compiler/compiler.lisp
+++ b/src/compiler/compiler.lisp
@@ -607,13 +607,6 @@
     (t
      (convert nil))))
 
     (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)))
 (defmacro define-transformation (name args form)
   `(define-compilation ,name ,args
      (convert ,form)))