X-Git-Url: https://git.jsancho.org/?a=blobdiff_plain;f=gacela.lisp;h=6ad199f314623426210e823ef26e4555b20a1391;hb=bf0af06a8306983f0c4fae8375dd6973e64aa593;hp=3f75376d1027ea30daabcee77c35d8fbaf9264bc;hpb=18b7b395aeba9aabdd47c52a0ae6bcd7d0f78f00;p=gacela.git

diff --git a/gacela.lisp b/gacela.lisp
index 3f75376..6ad199f 100644
--- a/gacela.lisp
+++ b/gacela.lisp
@@ -182,10 +182,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