add :cl-opengl-checks-errors to *features* when error checking is ena…

…bled Ignore-this: 2ee09f39079e13899eb0f9484c4d573d darcs-hash:20090506085500-be795-b83209522aeb155e81b929d40bd781ba4920b9c9.gz
3b · May 6, 2009 · 8fc7392 · 8fc7392
1 parent 63ff2e9
commit 8fc7392
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/gl3/bindings.lisp b/gl3/bindings.lisp
@@ -40,6 +40,10 @@
                   (format s "OpenGL signalled ~A."
                           (opengl-error.error-code c))))))
 
+;;; in case we want to be able to tell whether we are using a cl-opengl with
+;;; automatic error checking, push something on *features*
+#-cl-opengl-no-check-error(push :cl-opengl-checks-errors *features*)
+
 (let ((in-begin nil))
   (defun set-in-begin (a) (setf in-begin a))
   (defun check-error (&optional context)