From e981aee7e0967eb3d419b86bb579608a2a98c4b3 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Fri, 5 Oct 1990 15:39:31 +0000
Subject: [PATCH] Chagned a few more ``type'' types to ``ctype'' types.

---
 compiler/ctype.lisp | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/compiler/ctype.lisp b/compiler/ctype.lisp
index d2724fc96..dc1e2bbc9 100644
--- a/compiler/ctype.lisp
+++ b/compiler/ctype.lisp
@@ -489,7 +489,7 @@
 ;;; with the actual type.
 ;;;
 (proclaim '(function check-approximate-fixed-and-rest
-		     (approximate-function-type list (or type null))
+		     (approximate-function-type list (or ctype null))
 		     void))
 (defun check-approximate-fixed-and-rest (call-type fixed rest)
   (do ((types (approximate-function-type-types call-type) (cdr types))
@@ -506,7 +506,9 @@
 ;;;    Check that each of the call-types is compatible with Decl-Type,
 ;;; complaining if not or if we can't tell.
 ;;;
-(proclaim '(function check-approximate-arg-type (list type string &rest t) void))
+(proclaim '(function check-approximate-arg-type
+		     (list ctype string &rest t)
+		     void))
 (defun check-approximate-arg-type (call-types decl-type context &rest args)
   (let ((losers *empty-type*))
     (dolist (ctype call-types)
-- 
GitLab