Commit 40d0466d authored by pfdietz's avatar pfdietz

Fixed thinko. For some reason these tests started failing.

parent 47ed47e6
......@@ -139,13 +139,13 @@
(deftest search-list.15
(let ((pat '(10))
(target '(1 4 6 10 15 20)))
(search pat target :test #'>))
(search pat target :test #'<))
4)
(deftest search-list.16
(let ((pat '(10))
(target '(1 4 6 10 15 20)))
(search pat target :test-not #'<=))
(search pat target :test-not #'>=))
4)
(defharmless search.test-and-test-not.1
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment