Commit 67273b74 authored by Daniel Kochmański's avatar Daniel Kochmański

bug: fix -1 bug

parent c6ccec00
......@@ -42,7 +42,7 @@
(if (numberp ir)
ir
-1))))
(best (apply #'min results)))
(best (apply #'min (remove-if #'minusp results))))
(cl-who:htm
(:tr (:th (cl-who:str b))
(dolist (r results)
......
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