Works again.

[uxul-world.git] / opengl.lisp

diff --git a/opengl.lisp b/opengl.lisp
index e35026d..381246d 100644 (file)
--- a/opengl.lisp
+++ b/opengl.lisp
@@ -28,7 +28,8 @@
     id))\r
 \r
 (defun make-quad (imgs x y w h)\r
-  (destructuring-bind (x1 y1 x2 y2) imgs\r
+  (destructuring-bind (x1 y1 x2 y2 bla blubb) imgs\r
+    (declare (ignore bla blubb))\r
     (setf x (- x +screen-width+))\r
     (setf y (- y +screen-height+))\r
     ;(gl:bind-texture :texture-2d *spritesheet-id*)\r