diff --git a/ansi-tests/load-types-and-class.lsp b/ansi-tests/load-types-and-class.lsp index af858e6eb5d9c8c1b21f918a9aa2ceae995e54bb..d0f7ad610dc7c2a61a4ef7ed2b76e76cc7db932c 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 0000000000000000000000000000000000000000..c052b355f075378cbdeebb86997301dcd79f1278 --- /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) +