349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
|
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
|
-
-
+
+
|
(if (not *time-to-exit*)
(let delay-loop ((count 0))
(if (and (not *time-to-exit*)
(< count 11)) ;; aprox 5-6 seconds
(begin
(thread-sleep! 1)
(delay-loop (+ count 1))))
(loop))))
(debug:print-info 0 "Exiting watchdog timer")))
(loop)))
(debug:print-info 0 "Exiting watchdog timer, *time-to-exit* = " *time-to-exit*))))
"Watchdog thread")))
(thread-start! *watchdog*)
(if (args:get-arg "-log")
(let ((oup (open-output-file (args:get-arg "-log"))))
(debug:print-info 0 "Sending log output to " (args:get-arg "-log"))
|