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))) |