sketch out of modifying apply-generic to use raise