From d3e462f5e134d21a7f0ba60c50898d33a81ed643 Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Fri, 30 Aug 2013 20:59:16 +0200 Subject: [PATCH 1/1] Remove eval-when-compile --- src/compat.lisp | 6 +----- src/compiler/compiler.lisp | 7 ------- 2 files changed, 1 insertion(+), 12 deletions(-) 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))) -- 1.7.10.4