diff --git a/compiler/ltn.lisp b/compiler/ltn.lisp index 39d1a9e12a45559e870993b64080dbdeef5194f2..8902020bd5ee082e5ff12a8c5f97ba2f0b7fbcb8 100644 --- a/compiler/ltn.lisp +++ b/compiler/ltn.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/ltn.lisp,v 1.24 1991/04/23 16:24:21 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ltn.lisp,v 1.25 1991/05/31 14:21:26 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -154,7 +154,7 @@ (single-value-type (continuation-proven-type cont))))) (info (make-ir2-continuation ptype))) (setf (continuation-info cont) info) - (let ((name (continuation-function-name cont))) + (let ((name (continuation-function-name cont t))) (if (and delay name (symbolp name)) (setf (ir2-continuation-kind info) :delayed) (setf (ir2-continuation-locs info) (list (make-normal-tn ptype))))))