diff --git a/compiler/ir1opt.lisp b/compiler/ir1opt.lisp index c82933a09c9d8750658189bb99fe1aff786d3136..543795800122068368b436c8a6b73560ef31de75 100644 --- a/compiler/ir1opt.lisp +++ b/compiler/ir1opt.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1opt.lisp,v 1.79 2003/10/06 12:39:58 gerd Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1opt.lisp,v 1.80 2003/10/11 11:58:28 gerd Exp $") ;;; ;;; ********************************************************************** ;;; @@ -67,7 +67,9 @@ ((null current) res)) *empty-type*))) (:inside-block - (node-derived-type (continuation-use cont))))) + (node-derived-type (continuation-use cont))) + (:unused + *empty-type*))) ;;; Continuation-Derived-Type -- Interface