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

Diff of /gcl/ansi-tests/cons-test-24.lsp

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

revision 1.5 by pfdietz, Mon Jan 13 14:11:49 2003 UTC revision 1.6 by pfdietz, Tue Jan 14 14:01:21 2003 UTC
# Line 126  Line 126 
126                   nil)))                   nil)))
127    t)    t)
128    
129    (deftest subsetp-16
130      (notnot (subsetp '(1 2 3 4) '(0 1 2 3 4 5) :bad t :allow-other-keys 67))
131      t)
132    
133    (deftest subsetp-17
134      (notnot (subsetp '(1 2 3 4) '(0 1 2 3 4 5)
135                       :allow-other-keys #'cons :bad t))
136      t)
137    
138    (deftest subsetp-18
139      (notnot (subsetp '(1 2 3 4) '(0 1 2 3 4)
140                       :allow-other-keys (make-hash-table)
141                       :bad t
142                       :test #'(lambda (x y) (= (1+ x) y))))
143      nil)
144    
145  (deftest subsetp.error.1  (deftest subsetp.error.1
146    (classify-error (subsetp))    (classify-error (subsetp))
147    program-error)    program-error)

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

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