[bknr-cvs] ksprotte changed trunk/projects/bos/web/contract-tree.lisp

[BKNR Commits]

Revision: 3503
Author: ksprotte
URL: http://bknr.net/trac/changeset/3503

oops, stupid bugin start-contract-tree-image-update-daemon
U   trunk/projects/bos/web/contract-tree.lisp

Modified: trunk/projects/bos/web/contract-tree.lisp
===================================================================
--- trunk/projects/bos/web/contract-tree.lisp	2008-07-18 12:28:05 UTC (rev 3502)
+++ trunk/projects/bos/web/contract-tree.lisp	2008-07-18 13:29:12 UTC (rev 3503)
@@ -296,6 +296,9 @@
     (map-nodes #'contract-node-update-image-if-needed *contract-tree*
                :prune-test (lambda (node) (not (contract-node-update-image-needed-p node))))))
 
+(defun contract-tree-force-update-images ()
+  (map-nodes #'contract-node-update-image *contract-tree*))
+
 ;;; image handler
 (defclass contract-tree-image-handler (page-handler)
   ())
@@ -328,8 +331,9 @@
 (defun start-contract-tree-image-update-daemon ()
   (unless (contract-tree-image-update-daemon-running-p)
     (setq *contract-tree-image-update-daemon-halt* nil)
-    (bt:make-thread #'contract-tree-image-update-daemon-loop
-                    :name "contract-tree-image-update-daemon")))
+    (setq *contract-tree-image-update-daemon*
+	  (bt:make-thread #'contract-tree-image-update-daemon-loop
+			  :name "contract-tree-image-update-daemon"))))
 
 (defun stop-contract-tree-image-update-daemon (&key wait)
   (when (contract-tree-image-update-daemon-running-p)