X-Git-Url: https://code.consxy.com/gitweb/gitweb.cgi?p=candle;a=blobdiff_plain;f=src%2Fmain%2Fprocessor.lisp;h=5e3363911fd9b15f88e3c9518100d84a1b2bf075;hp=0d6ec1ec075a258699aa69c91370163f518f4fd0;hb=ee77eb54acee4492045d4b5885bc5df332f58566;hpb=d7f08bad7f5d32edb80f2e1468eff32c50166a94 diff --git a/src/main/processor.lisp b/src/main/processor.lisp index 0d6ec1e..5e33639 100644 --- a/src/main/processor.lisp +++ b/src/main/processor.lisp @@ -8,7 +8,7 @@ (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 @@ -28,7 +28,7 @@ :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)