X-Git-Url: http://uxul.de/gitweb/?p=uxul-world.git;a=blobdiff_plain;f=opengl.lisp;fp=opengl.lisp;h=381246df26dea94520fb103cf8e8f2d4d7fae244;hp=e35026db7e042b62f80b54bb5d1c01b2c8f5ac4e;hb=f05e44b099e5976411b3ef1f980ec616bd221425;hpb=8f6d2e9fa2cee1be6687044f2f4813630305682b

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