From 2bc50b43c4619448569c204c18f975c2464c1ece Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Thu, 6 Sep 1990 17:38:33 +0000 Subject: [PATCH] Fixed the proclaim of continuation-type to return a ctype, not a type. --- compiler/ir1opt.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/ir1opt.lisp b/compiler/ir1opt.lisp index 8b09890ba..592ae72ca 100644 --- a/compiler/ir1opt.lisp +++ b/compiler/ir1opt.lisp @@ -134,7 +134,7 @@ ;;; Return the derived type for Cont's first value. This is guaranteed not ;;; to be a Values or Function type. ;;; -(proclaim '(function continuation-type (continuation) type)) +(proclaim '(function continuation-type (continuation) ctype)) (defun continuation-type (cont) (single-value-type (continuation-derived-type cont))) -- GitLab