floss/stoe
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Enhance the gl-assert macro to include an implicit progn

Browse source
This commit is contained in:
Renaud Casenave-Péré 2015-04-21 17:14:50 +02:00
parent 8b96f8166f
commit a26b19be1b
1 changed files with 9 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/render/gl-utils.lisp
View file

@ -37,12 +37,15 @@ Store values like the drivers version."
(and (<= maj *major-version*)
(<= min *minor-version*))))
(defmacro gl-assert (form)
`(prog1
(defmacro gl-assert (&body body)
`(progn
,@(loop for form in body
collect `(prog1
,form
(let ((err-sym (%gl:get-error)))
(unless (eq err-sym :zero)
(error "The OpenGL command `~a'~%~2iresulted in an error: ~s~%" ',form err-sym)))))
(error "The OpenGL command `~a'~%~2iresulted in an error: ~s~%"
',form err-sym)))))))
(defmacro gl-restart (form)
`(restart-case