[cl-irc-cvs] CVS cl-irc

[ehuelsmann]

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

Modified Files:
	protocol.lisp 
Log Message:
Fix syntax error.

--- /project/cl-irc/cvsroot/cl-irc/protocol.lisp	2006/01/30 19:51:12	1.32
+++ /project/cl-irc/cvsroot/cl-irc/protocol.lisp	2006/02/12 08:08:07	1.33
@@ -1,4 +1,4 @@
-;;;; $Id: protocol.lisp,v 1.32 2006/01/30 19:51:12 ehuelsmann Exp $
+;;;; $Id: protocol.lisp,v 1.33 2006/02/12 08:08:07 ehuelsmann Exp $
 ;;;; $Source: /project/cl-irc/cvsroot/cl-irc/protocol.lisp,v $
 
 ;;;; See LICENSE for licensing information.
@@ -299,7 +299,7 @@
                     (read-line (network-stream connection) t))))
       (setf (connection message) connection)
       message)
-    (end-of-file)))
+    (end-of-file ())))
        ;; satisfy read-message-loop assumption of nil when no more messages
 
 (defmethod send-irc-message ((connection connection) command