From e5050c58ebd6ceea482a6c14785b9474d9d36b29 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Sun, 23 Feb 1992 17:43:45 +0000 Subject: [PATCH] Added :DELETED component kind. --- compiler/node.lisp | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/compiler/node.lisp b/compiler/node.lisp index 9c834c1dd..2f8f15c3f 100644 --- a/compiler/node.lisp +++ b/compiler/node.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/node.lisp,v 1.22 1991/12/15 08:20:23 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/node.lisp,v 1.23 1992/02/23 17:43:45 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -408,7 +408,10 @@ ;; The result of initial IR1 conversion, on which component analysis has ;; not been done. ;; - (kind nil :type (member nil :top-level :initial)) + ;; :Deleted + ;; Debris left over from component analysis. + ;; + (kind nil :type (member nil :top-level :initial :deleted)) ;; ;; The blocks that are the dummy head and tail of the DFO. Entry/exit points ;; have these blocks as their predecessors/successors. Null temporarily. -- GitLab