Method: (APPEND-MESSAGE LOG-CATEGORY STREAM-LOG-APPENDER T T)

Source

(defmethod append-message ((category log-category) (s stream-log-appender)
                           message level)
  (multiple-value-bind (second minute hour date month year)
      (decode-universal-time (get-universal-time))
    (restart-case
        (progn
          (format (log-stream s)
                  "~4,'0D-~2,'0D-~2,'0DT~2,'0D:~2,'0D.~2,'0D ~S ~S: "
                  year month date hour minute second
                  level (name category))
          (format (log-stream s) "~A~%" message))
      (use-*debug-io* ()
        :report "Use the current value of *debug-io*"
        (setf (log-stream s) *debug-io*)
        (append-message category s message level))
      (use-*standard-output* ()
        :report "Use the current value of *standard-output*"
        (setf (log-stream s) *standard-output*)
        (append-message category s message level))
      (silence-logger ()
        :report "Ignore all future messages to this logger."
        (setf (log-stream s) (make-broadcast-stream))))))