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 Fix another typo

Malformed flet is fixed now. Test runs correctly.

- - - - -

1 changed file:

- tests/sets.lisp

Changes:

===================================== tests/sets.lisp ===================================== @@ -283,20 +283,20 @@ (define-test set-exclusive-or.1 (:tag :issues) (flet - ((test min-length) - ;; From CLHS - (let ((lisp::*min-list-length-for-hashtable* min-length)) - (assert-equal '("b" "A" "b" "a") - (set-exclusive-or '(1 "a" "b") - '(1 "A" "b"))) - (assert-equal '("A" "a") - (set-exclusive-or '(1 "a" "b") - '(1 "A" "b") - :test #'equal)) - (assert-equal nil - (set-exclusive-or '(1 "a" "b") - '(1 "A" "b") - :test #'equalp)))) + ((test (min-length) + ;; From CLHS + (let ((lisp::*min-list-length-for-hashtable* min-length)) + (assert-equal '("b" "A" "b" "a") + (set-exclusive-or '(1 "a" "b") + '(1 "A" "b"))) + (assert-equal '("A" "a") + (set-exclusive-or '(1 "a" "b") + '(1 "A" "b") + :test #'equal)) + (assert-equal nil + (set-exclusive-or '(1 "a" "b") + '(1 "A" "b") + :test #'equalp))))) ;; Test the list impl by making the min length large. Then test ;; the hashtable impl with a very short min length (test 100)

View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/56ecb8cfbfd96a722cc710e1...