(define pc:closest-pitch (lambda (pc pitches) (cdar (cl:sort (map (lambda (p) (cons (pc:distance p pc) p)) pitches) (lambda (a b) (< (car a) (car b)))))))