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