X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Flocall.lisp;h=d0311610cc97d9ce2a83f885c5c48d5787f096c9;hb=ba7659c92f2b7fac7e9532a3db9114c5bdc4ab55;hp=8cab2c5a5d106beaef687b6d626b1a42177caf31;hpb=177cea359afa4b73abf43ce687aa34e47be9538a;p=sbcl.git

diff --git a/src/compiler/locall.lisp b/src/compiler/locall.lisp
index 8cab2c5..d031161 100644
--- a/src/compiler/locall.lisp
+++ b/src/compiler/locall.lisp
@@ -861,7 +861,8 @@
   (dolist (called (lambda-calls fun))
     (dolist (ref (leaf-refs called))
       (let ((this-call (continuation-dest (node-cont ref))))
-	(when (and (node-tail-p this-call)
+	(when (and this-call
+		   (node-tail-p this-call)
 		   (eq (node-home-lambda this-call) fun))
 	  (setf (node-tail-p this-call) nil)
 	  (ecase (functional-kind called)