Remove eval-when-compile
authorDavid Vázquez <davazp@gmail.com>
Fri, 30 Aug 2013 18:59:16 +0000 (20:59 +0200)
committerDavid Vázquez <davazp@gmail.com>
Fri, 30 Aug 2013 18:59:16 +0000 (20:59 +0200)
src/compat.lisp
src/compiler/compiler.lisp

index a95b86f..3af42d0 100644 (file)
        ((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)))
 
index ebf22a5..5ecc937 100644 (file)
     (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)))