(no commit message)

[gacela.git] / gacela_draw.lisp

diff --git a/gacela_draw.lisp b/gacela_draw.lisp
index 67a3dde37b4dc9828015bca1c8b4fb60e42d33a2..88e773848334c5fc9d974ef718d8178812440f24 100644 (file)
--- a/gacela_draw.lisp
+++ b/gacela_draw.lisp
@@ -89,9 +89,9 @@
 (defun draw-image-function (filename)
   (multiple-value-bind
    (texture width height) (load-texture filename)
-        (cond (texture
-              (lambda (&optional (f 1))
-                (draw-rectangle (* f width) (* f height) :texture texture))))))
+   (lambda (&optional (f 1))
+     (cond (texture
+           (draw-rectangle (* f width) (* f height) :texture texture))))))
 
 (defun draw-quad (v1 v2 v3 v4 &key texture color)
   (cond (texture (progn-textures