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

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

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

revision 1.2 by pfdietz, Fri Feb 21 00:56:39 2003 UTC revision 1.3 by pfdietz, Fri Feb 21 03:45:27 2003 UTC
# Line 138  Line 138 
138                       '(member a b))                       '(member a b))
139    nil)    nil)
140    
141    (deftest subtypep.member.27
142      (check-all-subtypep '(member a b c d) '(satisfies #'symbolp))
143      nil)
144    
145    (deftest subtypep.member.28
146      (check-all-subtypep '(member a b c d) t)
147      nil)
148    
149    (deftest subtypep.member.29
150      (check-all-not-subtypep '(member a b 10 z) '(satisfies #'symbolp))
151      nil)
152    
153    (deftest subtypep.member.30
154      (check-disjointness '(member 1 6 10) '(satisfies #'symbolp))
155      nil)
156    
157    (deftest subtypep.member.31
158      (check-equivalence '(member a b c d) '(member c d b a))
159      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