From: morioka <morioka>
Date: Fri, 7 May 1999 05:01:22 +0000 (+0000)
Subject: (eval-when-compile): New macro.
X-Git-Tag: apel-9_17~10
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=06a7b5144e06de214d0c6a1e3664a5d36a9a3302;p=elisp%2Fapel.git

(eval-when-compile): New macro.
---

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.