(bind-func audiofile_read_samples
(lambda (filepath dest:SAMPLE*)
(cond ((rmatch "\\.wave?$" filepath)
(audiofile_wave_read_samples filepath dest))
((rmatch "\\.aiff?$" filepath)
(audiofile_aiff_read_samples filepath dest))
(else
(println "native xtlang audiofile reader only works for uncompressed aiff and wave files")
#f))))