diff --git a/src/cmp/cmpopt-constant.lsp b/src/cmp/cmpopt-constant.lsp
index f2dfa6209..e6d6556b6 100644
--- a/src/cmp/cmpopt-constant.lsp
+++ b/src/cmp/cmpopt-constant.lsp
@@ -22,5 +22,3 @@
              (or (member head '(IF OR AND NULL NOT PROGN))
                  (and (get-sysprop head 'pure)
                       (inline-possible head)))))))
-
-(trace constant-expression-p)