Raymond Toy pushed to branch issue-240-add-hashtable-set-exclusive-or at cmucl / cmucl
Commits:
-
56ecb8cf
by Raymond Toy at 2023-08-26T20:33:49-07:00
1 changed file:
Changes:
| ... | ... | @@ -283,20 +283,20 @@ |
| 283 | 283 | (define-test set-exclusive-or.1
|
| 284 | 284 | (:tag :issues)
|
| 285 | 285 | (flet
|
| 286 | - ((test min-length)
|
|
| 287 | - ;; From CLHS
|
|
| 288 | - (let ((lisp::*min-list-length-for-hashtable* min-length))
|
|
| 289 | - (assert-equal '("b" "A" "b" "a")
|
|
| 290 | - (set-exclusive-or '(1 "a" "b")
|
|
| 291 | - '(1 "A" "b")))
|
|
| 292 | - (assert-equal '("A" "a")
|
|
| 293 | - (set-exclusive-or '(1 "a" "b")
|
|
| 294 | - '(1 "A" "b")
|
|
| 295 | - :test #'equal))
|
|
| 296 | - (assert-equal nil
|
|
| 297 | - (set-exclusive-or '(1 "a" "b")
|
|
| 298 | - '(1 "A" "b")
|
|
| 299 | - :test #'equalp))))
|
|
| 286 | + ((test (min-length)
|
|
| 287 | + ;; From CLHS
|
|
| 288 | + (let ((lisp::*min-list-length-for-hashtable* min-length))
|
|
| 289 | + (assert-equal '("b" "A" "b" "a")
|
|
| 290 | + (set-exclusive-or '(1 "a" "b")
|
|
| 291 | + '(1 "A" "b")))
|
|
| 292 | + (assert-equal '("A" "a")
|
|
| 293 | + (set-exclusive-or '(1 "a" "b")
|
|
| 294 | + '(1 "A" "b")
|
|
| 295 | + :test #'equal))
|
|
| 296 | + (assert-equal nil
|
|
| 297 | + (set-exclusive-or '(1 "a" "b")
|
|
| 298 | + '(1 "A" "b")
|
|
| 299 | + :test #'equalp)))))
|
|
| 300 | 300 | ;; Test the list impl by making the min length large. Then test
|
| 301 | 301 | ;; the hashtable impl with a very short min length
|
| 302 | 302 | (test 100)
|