X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fmain.lisp;h=1c42b5840b45c2bbd519fd114479de03815d717a;hb=5cf3c4259d529e180d75d4d140f344e600d2b06b;hp=f1fc8518914fc740279e71c8bde0b5f9f764228b;hpb=06a3d298cb7b8220ef04a50805c01ac1be34d845;p=sbcl.git

diff --git a/src/compiler/main.lisp b/src/compiler/main.lisp
index f1fc851..1c42b58 100644
--- a/src/compiler/main.lisp
+++ b/src/compiler/main.lisp
@@ -459,6 +459,8 @@
             (maybe-mumble "copy ")
             (copy-propagate component))
 
+          (ir2-optimize component)
+
           (select-representations component)
 
           (when *check-consistency*