diff --git a/backplane-server.lisp b/backplane-server.lisp index ddc403e..5fa6c99 100644 --- a/backplane-server.lisp +++ b/backplane-server.lisp @@ -43,10 +43,7 @@ (cl-json:encode-json `((STATUS . "OK") (MESSAGE . ,message) - (MSGID . ,msg-id))) - (let ((msg (if message (format nil ":~A" message) "")) - (msgid (if msg-id (format nil " (~A)" msg-id) ""))) - (format nil "OK~A~A" msgid msg)))) + (MSGID . ,msg-id))))) (defmethod render-result ((res result/error)) (with-slots (message msg-id) res