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

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

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

revision 1.4 by pfdietz, Wed Nov 27 04:22:36 2002 UTC revision 1.5 by pfdietz, Mon Jan 13 14:11:49 2003 UTC
# Line 263  Line 263 
263                        (not (eql x y))))                        (not (eql x y))))
264         #'<))         #'<))
265    (1 2 3 4 5 6))    (1 2 3 4 5 6))
266    
267    (deftest union.error.1
268      (classify-error (union))
269      program-error)
270    
271    (deftest union.error.2
272      (classify-error (union nil))
273      program-error)
274    
275    (deftest union.error.3
276      (classify-error (union nil nil :bad t))
277      program-error)
278    
279    (deftest union.error.4
280      (classify-error (union nil nil :key))
281      program-error)
282    
283    (deftest union.error.5
284      (classify-error (union nil nil 1 2))
285      program-error)
286    
287    (deftest union.error.6
288      (classify-error (union nil nil :bad t :allow-other-keys nil))
289      program-error)

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

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