From: David Vázquez 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)))