X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fnode.lisp;h=715f246a3c4e2f419714aaac8e571b33e806bc4e;hb=20b2378572cf7378f3f267e2234c4234dacfbdc9;hp=8ac629d45111c717052138b57d0f70fb100a6ec1;hpb=0b525ddd5632801f52de54a633df6a2fe2f9620c;p=sbcl.git

diff --git a/src/compiler/node.lisp b/src/compiler/node.lisp
index 8ac629d..715f246 100644
--- a/src/compiler/node.lisp
+++ b/src/compiler/node.lisp
@@ -785,9 +785,12 @@
   ;;    :DELETED
   ;;	This function has been found to be uncallable, and has been
   ;;	marked for deletion.
+  ;;
+  ;;    :ZOMBIE
+  ;;    Effectless [MV-]LET; has no BIND node.
   (kind nil :type (member nil :optional :deleted :external :toplevel
 			  :escape :cleanup :let :mv-let :assignment
-			  :toplevel-xep))
+                          :zombie :toplevel-xep))
   ;; Is this a function that some external entity (e.g. the fasl dumper)
   ;; refers to, so that even when it appears to have no references, it
   ;; shouldn't be deleted? In the old days (before