X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fir1final.lisp;h=d2888c5f79bf91522d141c9a34a1b5168a881802;hb=57e21c4b62e8c1a1ee7ef59ed2abb0c864fb06bc;hp=3fa8bd38ba0ba97609897c3a067132ce931b0d32;hpb=071afc96281a1dac1938268b1cf35d7e92c7e2c0;p=sbcl.git

diff --git a/src/compiler/ir1final.lisp b/src/compiler/ir1final.lisp
index 3fa8bd3..d2888c5 100644
--- a/src/compiler/ir1final.lisp
+++ b/src/compiler/ir1final.lisp
@@ -108,10 +108,10 @@
 	     (eq (info :function :kind name) :function))
     (let ((atype (info :function :assumed-type name)))
       (dolist (ref (leaf-refs var))
-	(let ((dest (continuation-dest (node-cont ref))))
+	(let ((dest (node-dest ref)))
 	  (when (and (eq (node-component ref) component)
 		     (combination-p dest)
-		     (eq (continuation-use (basic-combination-fun dest)) ref))
+		     (eq (lvar-uses (basic-combination-fun dest)) ref))
 	    (setq atype (note-fun-use dest atype)))))
       (setf (info :function :assumed-type name) atype))))