- (format stream "(~S ~S ~S ~S ~S ~S)~%" utime type source channel text
- (last-sexp-field type msg)))))
+ (format stream "(~S ~S ~S ~S ~S ~S)~%" utime type source channel text
+ (last-sexp-field type msg)))))
(output-event-for-a-stream msg type channel text logger i))))))))
(defun get-private-log-stream (logger)
(output-event-for-a-stream msg type channel text logger i))))))))
(defun get-private-log-stream (logger)