Plaster

(defun binary-search (vector key start end less) (if (= start (1- end)) start (let ((middle (floor (+ start end) 2))) (if (funcall less key (key (aref v middle))) (binary-search v key start middle less) (binary-search v key middle end less)))))