Author: ehuelsmann Date: Sat Aug 18 14:58:37 2012 New Revision: 218

Log: Fix Quakenet authentication bug as reported by Reinout Steven in http://lists.common-lisp.net/pipermail/cl-irc-devel/2010-January/000273.html

Modified: trunk/command.lisp

Modified: trunk/command.lisp ============================================================================== --- trunk/command.lisp Sat Aug 18 14:36:49 2012 (r217) +++ trunk/command.lisp Sat Aug 18 14:58:37 2012 (r218) @@ -344,8 +344,10 @@ (defmethod ping ((connection connection) (server string)) (send-irc-message connection :ping server))

-(defmethod pong ((connection connection) (server string) &optional (server2 "")) - (send-irc-message connection :pong server server2)) +(defmethod pong ((connection connection) (server string) &optional server2) + (if server2 + (send-irc-message connection :pong server server2) + (send-irc-message connection :pong server)))

(defmethod error- ((connection connection) (message string)) (send-irc-message connection :error message))