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

Diff of /gcl/ansi-tests/cons-test-21.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 169  Line 169 
169    t)    t)
170    
171  (deftest nunion-22  (deftest nunion-22
172    (handler-case    (let ((x '(1 2 3 4 5 6 7))
173      (let ((x '(1 2 3 4 5 6 7))          (y '(10 19 5 3 17 1001 2)))
174            (y '(10 19 5 3 17 1001 2)))      (let ((result (nunion-with-copy-and-key x y nil)))
175        (let ((result (nunion-with-copy-and-key x y nil)))        (check-union x y result)))
         (check-union x y result)))  
     (error (c) c))  
176    t)    t)
177    
178  (deftest nunion-23  (deftest nunion-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