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

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

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

revision 1.2 by pfdietz, Wed Feb 19 01:00:17 2003 UTC revision 1.3 by pfdietz, Wed Feb 19 01:14:52 2003 UTC
# Line 62  Line 62 
62          (cons (integer 3 15) (integer 4 15)))          (cons (integer 3 15) (integer 4 15)))
63     '(cons (integer 0 15) (integer 0 15)))     '(cons (integer 0 15) (integer 0 15)))
64    nil)    nil)
65    
66    (deftest subtypep.cons.8
67      (check-equivalence
68       '(or
69         (cons integer (cons symbol integer))
70         (cons symbol (cons integer symbol))
71         (cons symbol (cons symbol integer))
72         (cons symbol (cons integer integer))
73         (cons integer (cons integer symbol))
74         (cons symbol (cons symbol symbol))
75         (cons integer (cons integer integer))
76         (cons integer (cons symbol symbol)))
77       '(cons (or symbol integer)
78              (cons (or symbol integer) (or symbol integer))))
79      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