Changeset 3459

Show
Ignore:
Timestamp:
07/16/08 14:18:57 (4 months ago)
Author:
ksprotte
Message:

fixed *contract-tree-image-update-daemon* not to use destroy-thread

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

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

    r3458 r3459  
    306306;; contract-tree image update daemon 
    307307(defvar *contract-tree-image-update-daemon* nil) 
     308(defvar *contract-tree-image-update-daemon-halt*) 
    308309 
    309310(defun contract-tree-image-update-daemon-loop () 
    310   (loop (contract-tree-update-images-if-needed) (sleep 10))) 
     311  (loop (when *contract-tree-image-update-daemon-halt* (return)) 
     312     (contract-tree-update-images-if-needed) 
     313     (sleep 10))) 
    311314 
    312315(defun contract-tree-image-update-daemon-running-p () 
    …… 
    316319(defun start-contract-tree-image-update-daemon () 
    317320  (unless (contract-tree-image-update-daemon-running-p) 
    318     (bt:make-thread #'contract-tree-image-update-daemon-loop :name "contract-tree-image-update-daemon"))) 
     321    (setq *contract-tree-image-update-daemon-halt* nil) 
     322    (bt:make-thread #'contract-tree-image-update-daemon-loop 
     323                    :name "contract-tree-image-update-daemon"))) 
    319324 
    320325(defun stop-contract-tree-image-update-daemon () 
    321   (when *contract-tree-image-update-daemon* 
    322     (bt:destroy-thread *contract-tree-image-update-daemon*) 
    323     (setq *contract-tree-image-update-daemon* nil))) 
     326  (when (contract-tree-image-update-daemon-running-p) 
     327    (setq *contract-tree-image-update-daemon-halt* t) 
     328    (warn "contract-tree-image-update-daemon will stop soon"))) 
    324329 
    325330;;; make-contract-tree-from-m2