public
/
backplane-dns
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

remove extra return

This commit is contained in:
Niten 2020-11-15 15:53:55 -08:00
parent 120b820d8e
commit 678bcc5d3d
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
backplane-server.lisp
View File

@ -43,10 +43,7 @@
(cl-json:encode-json (cl-json:encode-json
`((STATUS . "OK") `((STATUS . "OK")
(MESSAGE . ,message) (MESSAGE . ,message)
(MSGID . ,msg-id))) (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))))
(defmethod render-result ((res result/error)) (defmethod render-result ((res result/error))
(with-slots (message msg-id) res (with-slots (message msg-id) res