Skip to content
Snippets Groups Projects
Commit e981aee7 authored by wlott's avatar wlott
Browse files

Chagned a few more ``type'' types to ``ctype'' types.

parent 3978a2ab
No related branches found
No related tags found
No related merge requests found
......@@ -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)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment