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

Diff of /gcl/ansi-tests/cons-aux.lsp

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

revision 1.1 by pfdietz, Fri Mar 7 01:56:08 2003 UTC revision 1.2 by pfdietz, Tue Mar 11 03:28:44 2003 UTC
# Line 68  Line 68 
68          for args = (make-random-set-exclusive-or-input n)          for args = (make-random-set-exclusive-or-input n)
69          for set1 = (car args)          for set1 = (car args)
70          for set2 = (cadr args)          for set2 = (cadr args)
71          for result1 = (sort (copy-list (apply #'my-set-exclusive-or args))          for result1 = (apply #'remove-duplicates
72                              #'<)                               (sort (copy-list (apply #'my-set-exclusive-or args))
73          for result2 = (sort (copy-list (apply fn                                     #'<)
74                                                (copy-list set1)                               (cddr args))
75                                                (copy-list set2)          for result2 = (apply #'remove-duplicates
76                                                (cddr args)))                               (sort (copy-list (apply fn
77                              #'<)                                                       (copy-list set1)
78                                                         (copy-list set2)
79                                                         (cddr args)))
80                                       #'<)
81                                 (cddr args))
82          unless (equal result1 result2)          unless (equal result1 result2)
83          return (list (list 'sort (cons fn args) '<) "actual: " result2 "should be: " result1)))          return (list (list 'remove-duplicates (list 'sort (cons fn args) '<) "...")
84                         "actual: " result2 "should be: " result1)))

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

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