From 36bfd923fa4b205dbbbb0c5ecfaafc5b00e0e709 Mon Sep 17 00:00:00 2001 From: Dimitri Fontaine Date: Wed, 25 Dec 2013 21:25:20 +0100 Subject: [PATCH] Fix monitor logging with no argument is given to the format string. --- src/monitor.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/monitor.lisp b/src/monitor.lisp index b6b750e..bb2732d 100644 --- a/src/monitor.lisp +++ b/src/monitor.lisp @@ -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)))