Permalink
Browse files

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

…bled

Ignore-this: 2ee09f39079e13899eb0f9484c4d573d

darcs-hash:20090506085500-be795-b83209522aeb155e81b929d40bd781ba4920b9c9.gz
  • Loading branch information...
1 parent 63ff2e9 commit 8fc739240ebb1b2c32ae2c41422f3a6bdadc57f4 @3b committed May 6, 2009
Showing with 4 additions and 0 deletions.
  1. +4 −0 gl3/bindings.lisp
View
@@ -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)

0 comments on commit 8fc7392

Please sign in to comment.