diff options
| author | Douglas Katzman <dougk@google.com> | 2024-02-05 00:53:51 -0500 |
|---|---|---|
| committer | Douglas Katzman <dougk@google.com> | 2024-02-05 01:12:24 -0500 |
| commit | e61fb35c4640befea119d9e8c1850f317b0a41e8 (patch) | |
| tree | 0d38f9e1017ad2f562bf691095b5e765e28bbfa8 /tests/seq.pure.lisp | |
| parent | 78a0ff78f9fc933b55d57da5e386309fa4b877c7 (diff) | |
Use FIND/POSITION transform on const list for MEMBER too
Diffstat (limited to 'tests/seq.pure.lisp')
| -rw-r--r-- | tests/seq.pure.lisp | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/tests/seq.pure.lisp b/tests/seq.pure.lisp index 415a7a777..f5ff03927 100644 --- a/tests/seq.pure.lisp +++ b/tests/seq.pure.lisp @@ -487,7 +487,9 @@ (with-test (:name :position-empty-seq) (assert (not (funcall (checked-compile '(lambda (x) (position x #()))) 1)))) -(with-test (:name :hash-based-memq) +;;; I'm keeping this not-very-great test so that if I decide to re-allow hash collisions +;;; in the hash-based MEMBER transform, then there's already a test for it. +(with-test (:name :hash-based-memq :skipped-on :sbcl) (let* ((f (checked-compile '(lambda (x) (if (member x '(:and :or :not and or not)) t nil)))) |