Fix monitor logging with no argument is given to the format string.

This commit is contained in:
Dimitri Fontaine 2013-12-25 21:25:20 +01:00
parent cd1d5ad597
commit 36bfd923fa

View File

@ -96,7 +96,9 @@
params
;; cl-log:log-message is a macro, we can't use apply
;; here, so we need to break a level of abstraction
(let ((mesg (format nil "~{~}" description arguments)))
(let ((mesg (if arguments
(format nil "~{~}" description arguments)
description)))
(cl-log:log-message category mesg)))))
until (eq event :stop)))