From 15c1856ed1577b8e627f6bea45cb8bc130454341 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Tue, 13 Nov 1990 22:44:58 +0000 Subject: [PATCH] Added call to COPY-PROPAGATE. --- compiler/main.lisp | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/compiler/main.lisp b/compiler/main.lisp index f3da09451..72f842852 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* -- GitLab