From f5d2137452ec5f64348dd730288f8eb7d717dba0 Mon Sep 17 00:00:00 2001
From: jgarcia <jgarcia>
Date: Mon, 12 May 2008 08:16:04 +0000
Subject: [PATCH] Make cmp-env-optimization a macro again

---
 src/cmp/cmpenv.lsp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/cmp/cmpenv.lsp b/src/cmp/cmpenv.lsp
index e80d4d632..cd75802fd 100644
--- a/src/cmp/cmpenv.lsp
+++ b/src/cmp/cmpenv.lsp
@@ -575,7 +575,7 @@
 	when (and (consp i) (var-p (fourth i)))
 	collect (fourth i)))
 
-(defun cmp-env-optimization (property &optional env)
+(defmacro cmp-env-optimization (property &optional env)
   (case (eval property)
     (speed '*speed*)
     (safety '*safety*)