From 06a7b5144e06de214d0c6a1e3664a5d36a9a3302 Mon Sep 17 00:00:00 2001 From: morioka Date: Fri, 7 May 1999 05:01:22 +0000 Subject: [PATCH] (eval-when-compile): New macro. --- poe-18.el | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/poe-18.el b/poe-18.el index 3e12b28..812e5c7 100644 --- a/poe-18.el +++ b/poe-18.el @@ -93,6 +93,13 @@ Associates the function with the current load file, if any. ;;; @ Compilation Features ;;; +(defmacro-maybe eval-when-compile (&rest body) + "Like `progn', but evaluates the body at compile time. +The result of the body appears to the compiler as a quoted constant." + ;; Not necessary because we have it in b-c-initial-macro-environment + ;; (list 'quote (eval (cons 'progn body))) + (cons 'progn body)) + (defmacro-maybe eval-and-compile (&rest body) "Like `progn', but evaluates the body at compile time and at load time." ;; Remember, it's magic. -- 1.7.10.4