(defun make-stream-log-appender (&optional (stream *debug-io*)) (make-instance 'stream-log-appender :stream stream))