Changeset 3503

Show
Ignore:
Timestamp:
07/18/08 15:29:12 (4 months ago)
Author:
ksprotte
Message:

oops, stupid bugin start-contract-tree-image-update-daemon

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/projects/bos/web/contract-tree.lisp

    r3500 r3503  
    297297               :prune-test (lambda (node) (not (contract-node-update-image-needed-p node)))))) 
    298298 
     299(defun contract-tree-force-update-images () 
     300  (map-nodes #'contract-node-update-image *contract-tree*)) 
     301 
    299302;;; image handler 
    300303(defclass contract-tree-image-handler (page-handler) 
    …… 
    329332  (unless (contract-tree-image-update-daemon-running-p) 
    330333    (setq *contract-tree-image-update-daemon-halt* nil) 
    331     (bt:make-thread #'contract-tree-image-update-daemon-loop 
    332                     :name "contract-tree-image-update-daemon"))) 
     334    (setq *contract-tree-image-update-daemon* 
     335          (bt:make-thread #'contract-tree-image-update-daemon-loop 
     336                          :name "contract-tree-image-update-daemon")))) 
    333337 
    334338(defun stop-contract-tree-image-update-daemon (&key wait)