Use utils logging
[candle] / src / main / processor.lisp
index 0d6ec1ec075a258699aa69c91370163f518f4fd0..5e3363911fd9b15f88e3c9518100d84a1b2bf075 100644 (file)
@@ -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)