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