(receive (channel-name message is-action)
(condense-privmsg-line (irc-line-params parsed-line))
(let ((username (irc-line-username parsed-line)))
(receive (channel-name message is-action)
(condense-privmsg-line (irc-line-params parsed-line))
(let ((username (irc-line-username parsed-line)))