From b6739d24211b5d9baf467d8c69c878d320283ad0 Mon Sep 17 00:00:00 2001 From: Stas Boukarev Date: Thu, 21 Dec 2017 22:47:24 +0300 Subject: [PATCH] Protect PRINCIPAL-LVAR-DEST from unused CASTs. The CAST LVAR may be NIL. Fixes lp#1739642. --- src/compiler/ir1util.lisp | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/src/compiler/ir1util.lisp b/src/compiler/ir1util.lisp index a48407219..71ac44ccf 100644 --- a/src/compiler/ir1util.lisp +++ b/src/compiler/ir1util.lisp @@ -91,11 +91,11 @@ (defun principal-lvar-dest (lvar) (labels ((pld (lvar) - (declare (type lvar lvar)) - (let ((dest (lvar-dest lvar))) - (if (cast-p dest) - (pld (cast-lvar dest)) - dest)))) + (and lvar + (let ((dest (lvar-dest lvar))) + (if (cast-p dest) + (pld (cast-lvar dest)) + dest))))) (pld lvar))) ;;; Update lvar use information so that NODE is no longer a use of its -- 2.11.4.GIT