define some constants for named values that aren't really "enum"s

fixes #80

Author: 3b

cl-opengl.asd

@@ -62,6 +62,7 @@
      (:file "funcs-gles2")
      ;; Lispifications.
      (:file "package")
+     (:file "special-constants")
      (:file "util")
      (:file "opengl")
      (:file "rasterization")

gl/package.lisp

@@ -455,4 +455,9 @@
    #:create-renderbuffers
    #:create-renderbuffer
    #:delete-renderbuffer
-   #:bind-image-textures))
+   #:bind-image-textures
+   ;; extra constants
+   #:+all-pixels-amd+
+   #:+invalid-index+
+   #:+timeout-ignored+
+   #:+timeout-ignored-apple+))

gl/special-constants.lisp

@@ -0,0 +1,9 @@
+(in-package #:cl-opengl)
+
+;;; special values for some numeric arguments
+
+(defconstant +all-pixels-amd+ #xFFFFFFFF)
+(defconstant +invalid-index+ #xFFFFFFFF)
+(defconstant +timeout-ignored+ #xFFFFFFFFFFFFFFFF)
+(defconstant +timeout-ignored-apple+ #xFFFFFFFFFFFFFFFF)
+