X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fmain.lisp;h=9a86abe1dff752c5b060fafd323a6f9d4993b8a5;hb=15d6e7c9a2c3234f95dfe278046fa2fee1b0c007;hp=0951cc8d9c70713a830872a0dfa0f1629e03b127;hpb=bffa99d35c7d50ac46b9eb7dbe25d1ab1a0e6145;p=sbcl.git

diff --git a/src/compiler/main.lisp b/src/compiler/main.lisp
index 0951cc8..9a86abe 100644
--- a/src/compiler/main.lisp
+++ b/src/compiler/main.lisp
@@ -526,7 +526,8 @@
 
     (ir1-phases component)
 
-    (when *loop-analyze* 
+    (when *loop-analyze*
+      (dfo-as-needed component)
       (find-dominators component)
       (loop-analyze component))