[cl-irc-cvs] r218 - trunk

[ehuelsmann at common-lisp.net]

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))