case and foreign values added by Kooda on Wed Aug 19 11:04:47 2015
(use sdl-base) #;1> (use sdl-base) #;2> (case 12 ((SDL_QUIT) #t) (else #f)) #f #;3> (eqv? 12 SDL_QUIT) #t
(use sdl-base) #;1> (use sdl-base) #;2> (case 12 ((SDL_QUIT) #t) (else #f)) #f #;3> (eqv? 12 SDL_QUIT) #t