From: jsancho Date: Mon, 19 Oct 2009 22:15:40 +0000 (+0000) Subject: (no commit message) X-Git-Url: https://git.jsancho.org/?a=commitdiff_plain;h=c0c271a74a11ccba4e5c2c51e46045c9073c32a6;p=gacela.git --- diff --git a/gacela_draw.lisp b/gacela_draw.lisp index c984948..5d10fa4 100644 --- a/gacela_draw.lisp +++ b/gacela_draw.lisp @@ -114,7 +114,6 @@ (cond (texture (let ((width (getf (get-resource texture) :width)) (height (getf (get-resource texture) :height))) -(print texture) (draw-rectangle (* f width) (* f height) :texture texture))))))) (defun draw-quad (v1 v2 v3 v4 &key texture) diff --git a/gacela_misc.lisp b/gacela_misc.lisp index 8a7c2e4..a3991d5 100755 --- a/gacela_misc.lisp +++ b/gacela_misc.lisp @@ -14,7 +14,6 @@ ;;; You should have received a copy of the GNU General Public License ;;; along with this program. If not, see . - (in-package :gacela) (defconstant INFINITY MOST-POSITIVE-LONG-FLOAT)