Function: COMP->

Source

(defun comp-> (v1 v2 &optional (comp *comparator*))
  (eq 'greater-than (funcall comp v1 v2)))