/[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.2 by pfdietz, Thu Oct 17 13:16:56 2002 UTC revision 1.3 by pfdietz, Wed Oct 23 03:10:23 2002 UTC
# Line 190  Line 190 
190    t)    t)
191    
192  (deftest union-22  (deftest union-22
193    (handler-case    (let ((x (copy-list '(1 2 3 4 5 6 7)))
194      (let ((x (copy-list '(1 2 3 4 5 6 7)))          (y (copy-list '(10 19 5 3 17 1001 2))))
195            (y (copy-list '(10 19 5 3 17 1001 2))))      (let ((result (union-with-check-and-key x y nil)))
196        (let ((result (union-with-check-and-key x y nil)))        (check-union x y result)))
         (check-union x y result)))  
     (error (c) c))  
197    t)    t)
198    
199  (deftest union-23  (deftest union-23

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