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