testp

(defun testp (n1 n2 &key (test '=))
  (progn 
    (cond ((pitchp n1)
           (setf n1 (pitch-to-midi n1)
                 n2 (pitch-to-midi n2)))
          ((velocityp n1)
           (setf n1 (get-velocity n1)
                 n2 (get-velocity n2))))

    (eval (list test n1 n2))))


(testp 'cs4 'd4 :test '<)
(testp 'cs4 'd4 :test '/=)
(testp 'cs4 'cs4 :test '=)

(testp 'mp 'mf :test '<)
(testp 12 13 :test '=)