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