From a43020f63638aee6921f1c6333b0d81fa72d4e11 Mon Sep 17 00:00:00 2001
From: jsancho <devnull@localhost>
Date: Mon, 5 Oct 2009 05:57:17 +0000
Subject: [PATCH]

---
 gacela.lisp      | 2 +-
 gacela_draw.lisp | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/gacela.lisp b/gacela.lisp
index e00837b..bf7cea3 100644
--- a/gacela.lisp
+++ b/gacela.lisp
@@ -255,7 +255,7 @@
 (defstruct resource plist free-function time)
 (defstruct texture filename min-filter mag-filter)
 
-(let ((resources-table (make-hash-table :test 'equal)))
+(let ((resources-table (make-hash-table :test 'equalp)))
 
   (defun set-resource (key plist free-function &key static)
     (setf (gethash key resources-table)
diff --git a/gacela_draw.lisp b/gacela_draw.lisp
index 90efd06..450ed13 100644
--- a/gacela_draw.lisp
+++ b/gacela_draw.lisp
@@ -76,7 +76,7 @@
 ;  (init-textures)
 ;  (init-video-mode)
   (let ((key (make-texture :filename filename :min-filter min-filter :mag-filter mag-filter)))
-    (cond ((get-resource key) key)
+    (cond ((get-resource key) t)
 	  (t
 	   (progn-textures
 	    (multiple-value-bind
-- 
2.39.2