From bf214ce6ed9c99d22fb1171296682f2e0ea95f5f Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Thu, 16 Dec 2004 04:00:13 +0000
Subject: [PATCH] Begin adding tests for SUBTYPEP on function types.

---
 ansi-tests/load-types-and-class.lsp |  1 +
 ansi-tests/subtypep-function.lsp    | 11 +++++++++++
 2 files changed, 12 insertions(+)
 create mode 100644 ansi-tests/subtypep-function.lsp

diff --git a/ansi-tests/load-types-and-class.lsp b/ansi-tests/load-types-and-class.lsp
index af858e6e..d0f7ad61 100644
--- a/ansi-tests/load-types-and-class.lsp
+++ b/ansi-tests/load-types-and-class.lsp
@@ -12,6 +12,7 @@
 (load "subtypep-member.lsp")
 (load "subtypep-eql.lsp")
 (load "subtypep-array.lsp")
+(load "subtypep-function.lsp")
 
 (load "deftype.lsp")
 (load "standard-generic-function.lsp")
diff --git a/ansi-tests/subtypep-function.lsp b/ansi-tests/subtypep-function.lsp
new file mode 100644
index 00000000..c052b355
--- /dev/null
+++ b/ansi-tests/subtypep-function.lsp
@@ -0,0 +1,11 @@
+;-*- Mode:     Lisp -*-
+;;;; Author:   Paul Dietz
+;;;; Created:  Wed Dec 15 21:57:44 2004
+;;;; Contains: Tests of SUBTYPEP on FUNCTION types
+
+(in-package :cl-test)
+
+(deftest subtypep-function.1
+  (check-all-subtypep t '(function (t) t))
+  nil)
+
-- 
GitLab