[cl-irc-cvs] CVS cl-irc

[ehuelsmann]

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