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)