Function: COMP-<

Source

(defun comp-< (v1 v2 &optional (comp *comparator*))
  (eq 'less-than (funcall comp v1 v2)))