(defgeneric shutdown-system (job-system))
(defun start-processor-thread ()
- (format t "Starting processor in ~(~A~) mode~%" *job-system*)
+ (log:info "Starting processor in ~(~A~) mode" *job-system*)
(let*
((active t)
(processor-thread
:name "Processor")))
(push
(lambda ()
- (format t "Shutting down processor thread~%")
+ (log:info "Shutting down processor thread")
(setf active nil)
(awaken-processor-thread)
(sb-thread:join-thread processor-thread)