X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fvmdef.lisp;h=c3f3d447712451680f60a3db9893a0d50ada33c3;hb=590df13be510876c71757f4a14a2424e8c57ad61;hp=adf60b63b1525580f6399c0f8cec97b032fce099;hpb=4ba392170e98744f0ef0b8e08a5d42b988f1d0c9;p=sbcl.git

diff --git a/src/compiler/vmdef.lisp b/src/compiler/vmdef.lisp
index adf60b6..c3f3d44 100644
--- a/src/compiler/vmdef.lisp
+++ b/src/compiler/vmdef.lisp
@@ -189,7 +189,7 @@
              (when targets
                (dotimes (i (length targets))
                  (let ((target (aref targets i)))
-                   (target-if-desirable
+                   (sb!regalloc:target-if-desirable
                     (aref refs (ldb (byte 8 8) target))
                     (aref refs (ldb (byte 8 0) target)))))))
            vop)