- (format-date-time (get-universal-time) :stream stream)
- (write-char #\space stream)
- (apply #'format stream fmt args)
- (write-char #\newline stream)
- (force-output stream))
+ (handler-case
+ (progn
+ (format-date-time (get-universal-time) :stream stream)
+ (write-char #\space stream)
+ (apply #'format stream fmt args)
+ (write-char #\newline stream)
+ (force-output stream))
+ (error (e)
+ (warn "Error ~A when trying to add-log-entry '~A'." e
+ (apply #'format nil fmt args)))))