X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Flocall.lisp;h=0e9ba01c102a9ccafa5c652119b8ad920a0a5ec3;hb=f73c1f391342c797b8daebe4e8c27e5923341b6d;hp=9b3613d78f08c77c57977cbdfe483cee30fea60f;hpb=a208de2a9ab6a63c27f3e6c291fea9f7c4d774a1;p=sbcl.git

diff --git a/src/compiler/locall.lisp b/src/compiler/locall.lisp
index 9b3613d..0e9ba01 100644
--- a/src/compiler/locall.lisp
+++ b/src/compiler/locall.lisp
@@ -281,7 +281,7 @@
 	(return))
       (let ((kind (functional-kind functional)))
 	(cond ((or (functional-somewhat-letlike-p functional)
-		   (eql kind :deleted))
+		   (memq kind '(:deleted :zombie)))
 	       (values)) ; nothing to do
 	      ((and (null (leaf-refs functional)) (eq kind nil)
 		    (not (functional-entry-fun functional)))