Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

improved Clack.Logger:log-message.

  • Loading branch information...
commit 22c8d111b4d0dc2c5d1575086b3cf299bc5af6de 1 parent ead2ceb
@fukamachi authored
Showing with 3 additions and 2 deletions.
  1. +3 −2 src/core/logger.lisp
View
5 src/core/logger.lisp
@@ -52,13 +52,14 @@ Log level must be a integer 0-7, or a keyword represents log level.
Example:
(log-message :warning \"Something wrong.\")"
@export
-(defun log-message (level message)
+(defun log-message (level format-control &rest format-args)
+ @type string format-control
(when (>= (normalize-loglevel level) *logger-min-level*)
(format *logger-output*
*logger-format-string*
(format-timestring nil (now) :format *logger-time-format*)
level
- message)))
+ (format nil format-control format-args))))
(defun normalize-loglevel (level)
"Log level is an integer or a keyword."
Please sign in to comment.
Something went wrong with that request. Please try again.