/[gcl]/gcl/ansi-tests/subtypep-function.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/subtypep-function.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by pfdietz, Thu Dec 16 04:00:35 2004 UTC revision 1.3 by pfdietz, Thu Dec 16 11:21:48 2004 UTC
# Line 5  Line 5 
5    
6  (in-package :cl-test)  (in-package :cl-test)
7    
8    (compile-and-load "types-aux.lsp")
9    
10  (deftest subtypep-function.1  (deftest subtypep-function.1
11    (check-all-not-subtypep t '(function (t) t))    (check-all-not-subtypep t '(function (t) t))
12    nil)    nil)
13    
14    (deftest subtypep-function.2
15      (check-all-subtypep nil '(function (t) t))
16      nil)
17    
18    (deftest subtypep-function.3
19      (check-all-subtypep '(function (t) t) 'function)
20      nil)
21    
22    (deftest subtypep-function.4
23      (check-all-subtypep '(function (t) integer) '(function (t) real))
24      nil)

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26