]> git.jsancho.org Git - gacela.git/commitdiff
(no commit message)
authorjsancho <devnull@localhost>
Mon, 5 Oct 2009 05:57:17 +0000 (05:57 +0000)
committerjsancho <devnull@localhost>
Mon, 5 Oct 2009 05:57:17 +0000 (05:57 +0000)
gacela.lisp
gacela_draw.lisp

index e00837b3758fa1ac2dd232bc7aab62bf96f84e27..bf7cea34a889da6d1e6074d54a53858374673515 100644 (file)
 (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)
index 90efd0611772cd693edde2b5e8e38fea8ed0f215..450ed133c0eb15e12d6aab2b4d762b35df3e6ce7 100644 (file)
@@ -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