diff --git a/compiler/main.lisp b/compiler/main.lisp index f3da09451b8a1dcdf3956380016584cade7f4dae..72f84285256705423327b5fb97cec8cb40f2f1f1 100644 --- a/compiler/main.lisp +++ b/compiler/main.lisp @@ -293,6 +293,10 @@ (entry-analyze component) (ir2-convert component) + (when (policy nil (>= speed cspeed)) + (maybe-mumble "Copy ") + (copy-propagate component)) + (select-representations component) (when *check-consistency*