;; the "default" one, will try a few common naming conventions, and bail out
;; otherwise
(define sampler-parse-filename
(lambda (filename)
(or (sampler-parse-midinote-filename filename)
(sampler-parse-spn-filename filename)
#f)))