From 678bcc5d3da30b65daeee7fb8750adcb9dbdd6e3 Mon Sep 17 00:00:00 2001
From: Niten <niten@fudo.org>
Date: Sun, 15 Nov 2020 15:53:55 -0800
Subject: [PATCH] remove extra return

---
 backplane-server.lisp | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

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