Work at SourceForge, help us to make it a better place! We have an immediate need for a Support Technician in our San Francisco or Denver office.
CLHS 188.8.131.52 says that "If more than one such argument pair matches, the
leftmost argument pair is used".
(defparameter x 1)
(defun test-key () (find 1 #(0 1 2 3) :test #'= :test (incf x)))
(list (test-key) x)
Expected: (1 2)
[Taken from clisp's macro8.tst]
Platform: Linux/x86. SBCL version: 0.8.9 compiled by CMUCL 18e.