Macro: WITH-COMPARATOR

Source

(defmacro with-comparator (comp &body body)
  `(let ((*comparator* ,comp))
    (declare (special *comparator*))
    ,@body))