X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=gacela.lisp;h=bf7cea34a889da6d1e6074d54a53858374673515;hb=a43020f63638aee6921f1c6333b0d81fa72d4e11;hp=e00837b3758fa1ac2dd232bc7aab62bf96f84e27;hpb=62879aade12d2cd6858f68a1bf5d224bc61b5f86;p=gacela.git

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)