(bind-func iffchunk_check_ID "check the chunk & form IDs are valid" (lambda (hdr:IffChunkHeader* id:i8*) (= (strncmp (aref-ptr (tref-ptr hdr 0) 0) id 4) 0)))