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*)