Update of /project/cl-irc/cvsroot/cl-irc In directory common-lisp:/tmp/cvs-serv9527

Modified Files: event.lisp Log Message: Oops! Too few closing parents...

--- /project/cl-irc/cvsroot/cl-irc/event.lisp 2006/02/20 06:53:25 1.21 +++ /project/cl-irc/cvsroot/cl-irc/event.lisp 2006/02/20 17:27:57 1.22 @@ -1,4 +1,4 @@ -;;;; $Id: event.lisp,v 1.21 2006/02/20 06:53:25 ehuelsmann Exp $ +;;;; $Id: event.lisp,v 1.22 2006/02/20 17:27:57 ehuelsmann Exp $ ;;;; $Source: /project/cl-irc/cvsroot/cl-irc/event.lisp,v $

;;;; See LICENSE for licensing information. @@ -332,7 +332,7 @@ (connection message) :notice (source message) (make-ctcp-message - (format nil "PING ~A" (car (last (arguments message))))) + (format nil "PING ~A" (car (last (arguments message)))))))

(defmethod irc-message-event (connection (message ctcp-dcc-chat-request-message)) (declare (ignore connection))