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