(use sdl-base)

#;1> (use sdl-base)
#;2> (case 12 ((SDL_QUIT) #t) (else #f))
#f
#;3> (eqv? 12 SDL_QUIT)
#t