]> git.jsancho.org Git - gacela.git/commitdiff
(no commit message)
authorjsancho <devnull@localhost>
Mon, 12 Oct 2009 11:00:06 +0000 (11:00 +0000)
committerjsancho <devnull@localhost>
Mon, 12 Oct 2009 11:00:06 +0000 (11:00 +0000)
gacela.lisp

index 3f75376d1027ea30daabcee77c35d8fbaf9264bc..6ad199f314623426210e823ef26e4555b20a1391 100644 (file)
                      (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