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