diff --git a/compiler/ctype.lisp b/compiler/ctype.lisp index 3fa8e9eba4501abbf07608b9ca4de47b9d47946d..5562175cfea9a2084e43291fac94daa24a122180 100644 --- a/compiler/ctype.lisp +++ b/compiler/ctype.lisp @@ -62,6 +62,16 @@ ;;;; Stuff for checking a call against a function type. +;;; ALWAYS-SUBTYPEP -- Interface +;;; +;;; A dummy version of SUBTYPEP useful when we want a functional like +;;; subtypep that always returns true. +;;; +(defun always-subtypep (type1 type2) + (declare (ignore type1 type2)) + (values t t)) + + ;;; Valid-Function-Use -- Interface ;;; ;;; Determine whether a use of a function is consistent with its type. The