X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=gacela.lisp;h=eecc4893ee41e5196887514e79932e302bb571d8;hb=4fe9bd9e78b0e3cee1133da2abcb05bc98322b31;hp=8cd0da8271b25d7324862b454a0cd7054412be3f;hpb=c31ef82b8f98c9011aa5a80777ad374566d743aa;p=gacela.git

diff --git a/gacela.lisp b/gacela.lisp
index 8cd0da8..eecc489 100644
--- a/gacela.lisp
+++ b/gacela.lisp
@@ -81,14 +81,6 @@
   (glHint GL_PERSPECTIVE_CORRECTION_HINT GL_NICEST)
   t)
 
-(defmacro progn-textures (&body code)
-  `(let (values)
-     (init-video-mode)
-     (glEnable GL_TEXTURE_2D)
-     (setq values (multiple-value-list (progn ,@code)))
-     (glDisable GL_TEXTURE_2D)
-     (apply #'values values)))
-
 (defun init-lighting ()
   (init-video-mode)
   (glEnable GL_LIGHTING))
@@ -171,8 +163,7 @@
 	  (make-resource :plist plist
 			 :constructor constructor
 			 :destructor destructor
-			 :free-function free-function
-			 :time (if static -1 (SDL_GetTicks)))))
+			 :time (if static t (SDL_GetTicks)))))
 
   (defun get-resource (key)
     (let ((resource (gethash key resources-table)))
@@ -182,10 +173,12 @@
 		      (setf (gethash key resources-table) resource)))
 	       (resource-plist resource)))))
 
+  (defun free-resource (key)
+    (funcall (resource-destructor (gethash key resources-table)))
+    (setf (resource-time (gethash key resources-table)) nil))
+
   (defun free-all-resources ()
-    (maphash (lambda (key res) (funcall (resource-free-function res) (resource-address res)))
-	     resources-table)
-    (clrhash resources-table)))
+    (maphash (lambda (key res) (free-resource key)) resources-table)))
 
 
 ;;; Connection with the GUI