(bind-func AudioBuffer
(lambda (filepath)
(cond ((rmatch "\\.wave?$" filepath)
(AudioBuffer_from_wave filepath))
((rmatch "\\.aiff?$" filepath)
(AudioBuffer_from_aiff filepath))
(else
(println "native xtlang audiofile reader only works for uncompressed aiff and wave files")
null))))