-(defconstant GL_POINTS #x0000)
-(defconstant GL_LINES #x0001)
-(defconstant GL_LINE_LOOP #x0002)
-(defconstant GL_LINE_STRIP #x0003)
-(defconstant GL_TRIANGLES #x0004)
-(defconstant GL_TRIANGLE_STRIP #x0005)
-(defconstant GL_TRIANGLE_FAN #x0006)
-(defconstant GL_QUADS #x0007)
-(defconstant GL_QUAD_STRIP #x0008)
-(defconstant GL_POLYGON #x0009)
+(mapcconst int "int" "GL_POINTS")
+(mapcconst int "int" "GL_LINES")
+(mapcconst int "int" "GL_LINE_LOOP")
+(mapcconst int "int" "GL_LINE_STRIP")
+(mapcconst int "int" "GL_TRIANGLES")
+(mapcconst int "int" "GL_TRIANGLE_STRIP")
+(mapcconst int "int" "GL_TRIANGLE_FAN")
+(mapcconst int "int" "GL_QUADS")
+(mapcconst int "int" "GL_QUAD_STRIP")
+(mapcconst int "int" "GL_POLYGON")