(bind-func aiff_validate (lambda (fileptr) (and (= (strncmp fileptr "FORM" 4) 0) (= (strncmp (pref-ptr fileptr 8) "AIFF" 4) 0))))