X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fir2opt.lisp;h=b66498080d2c8f29b68a2de8dbea423e38536fa1;hb=a6661cdaac013752213d381aa469cb0919a6ce4c;hp=6c0e764d0ce5c441643c46c489548af1379a4331;hpb=da5a7ccd58c2bf3c5287a11fb41e01403e5745e8;p=sbcl.git

diff --git a/src/compiler/ir2opt.lisp b/src/compiler/ir2opt.lisp
index 6c0e764..b664980 100644
--- a/src/compiler/ir2opt.lisp
+++ b/src/compiler/ir2opt.lisp
@@ -211,7 +211,9 @@
              (do ((2block (ir2-block-next 2block)
                     (ir2-block-next 2block)))
                  ((null 2block) nil)
-               (cond ((eq target (ir2-block-%label 2block))
+               (cond ((ir2-block-%trampoline-label 2block)
+                      (return nil))
+                     ((eq target (ir2-block-%label 2block))
                       (return t))
                      ((ir2-block-start-vop 2block)
                       (return nil)))))))