diff options
| author | Gabor Melis <mega@retes.hu> | 2024-01-18 14:31:54 +0000 |
|---|---|---|
| committer | Gabor Melis <mega@retes.hu> | 2024-08-01 12:09:13 +0200 |
| commit | c36c9ede6d0c5860c97dbd17423ad2d52bf7b2fe (patch) | |
| tree | bc20c689b1f3197337526ecd9018585d3b658f33 /tests/seq.pure.lisp | |
| parent | 4e2fae4f6bfc6c8d52abb051862823f9df8fa56e (diff) | |
Hash strings with FNV-1A instead of Jenkins' one-at-a-time
Faster on x86-64.
Diffstat (limited to 'tests/seq.pure.lisp')
| -rw-r--r-- | tests/seq.pure.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/seq.pure.lisp b/tests/seq.pure.lisp index eebd60e91..93e06e65d 100644 --- a/tests/seq.pure.lisp +++ b/tests/seq.pure.lisp @@ -497,7 +497,7 @@ ;; Since there's no canonical order within a bin - we don't know ;; whether bin 0 is {:AND,AND} or {AND,:AND} - this gets tricky to check. ;; This is unfortunately a change-detector (if we alter SXHASH, or anything). - (assert (equalp (car consts) #(:and and :not not :or or 0 0))))) + (assert (equalp (car consts) #(:and and :or or :not not 0 0))))) (with-test (:name :memq-empty-seq) (assert (not (funcall (checked-compile '(lambda (x) (member x '()))) 1))) |