From c845b9929399200e40ac6ef81d2fb102077a291d Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Sat, 12 May 1990 20:14:34 +0000 Subject: [PATCH] Added ALWAYS-SUBTYPEP, since it is no longer defined internally for subtypep's benefit. --- compiler/ctype.lisp | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/compiler/ctype.lisp b/compiler/ctype.lisp index 3fa8e9eba..5562175cf 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 -- GitLab