diff options
| -rw-r--r-- | web/panettone/src/irc.lisp | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/web/panettone/src/irc.lisp b/web/panettone/src/irc.lisp index c94b0d2f4bea..f116e2a70631 100644 --- a/web/panettone/src/irc.lisp +++ b/web/panettone/src/irc.lisp @@ -21,6 +21,9 @@ May signal a condition if sending fails." (let ((socket (socket-connect irchost ircport))) (unwind-protect (progn - (format (socket-stream socket) "~@[~A ~]~A~%" channel body) + (format (socket-stream socket) "~@[~A ~]~A~A~%" + channel + #\ZERO_WIDTH_SPACE + body) (finish-output (socket-stream socket))) (ignore-errors (socket-close socket))))))) |