From 9e3040ef5c06ab60df3e7687a2500c27fecdc699 Mon Sep 17 00:00:00 2001
From: morioka <morioka>
Date: Sun, 8 Nov 1998 19:54:49 +0000
Subject: [PATCH] (eval-and-compile): Moved from poe.el.

---
 poe-18.el |   27 ++++++++++++++++-----------
 1 file changed, 16 insertions(+), 11 deletions(-)

diff --git a/poe-18.el b/poe-18.el
index d429765..f816d57 100644
--- a/poe-18.el
+++ b/poe-18.el
@@ -79,6 +79,17 @@ This function works by modifying `process-environment'."
   t)
 
 
+;;; @@ function
+;;;
+
+(defun defalias (sym newdef)
+  "Set SYMBOL's function definition to NEWVAL, and return NEWVAL.
+Associates the function with the current load file, if any.
+\[poe-18.el; EMACS 19 emulating function]"
+  (fset sym newdef)
+  )
+
+
 ;;; @ Compilation Features
 ;;;
 
@@ -87,6 +98,11 @@ This function works by modifying `process-environment'."
   (cons 'defun (cons name (cons arglist 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.
+  (cons 'progn body))
+
 (defun byte-code-function-p (exp)
   "T if OBJECT is a byte-compiled function object.
 \[poe-18.el; EMACS 19 emulating function]"
@@ -118,17 +134,6 @@ If NEW is a string, that is the `use instead' message."
   fn)
 
 
-;;; @@ function
-;;;
-
-(defun defalias (sym newdef)
-  "Set SYMBOL's function definition to NEWVAL, and return NEWVAL.
-Associates the function with the current load file, if any.
-\[poe-18.el; EMACS 19 emulating function]"
-  (fset sym newdef)
-  )
-
-
 ;;; @ text property
 ;;;
 
-- 
1.7.10.4