Update of /project/net-nittin-irc/cvsroot/net-nittin-irc In directory common-lisp.net:/tmp/cvs-serv8324

Modified Files: protocol.lisp Log Message: Fix a bug.

Date: Fri Nov 14 15:24:40 2003 Author: bmastenbrook

Index: net-nittin-irc/protocol.lisp diff -u net-nittin-irc/protocol.lisp:1.10 net-nittin-irc/protocol.lisp:1.11 --- net-nittin-irc/protocol.lisp:1.10 Fri Nov 14 15:12:12 2003 +++ net-nittin-irc/protocol.lisp Fri Nov 14 15:24:39 2003 @@ -1,4 +1,4 @@ -;;;; $Id: protocol.lisp,v 1.10 2003/11/14 20:12:12 bmastenbrook Exp $ +;;;; $Id: protocol.lisp,v 1.11 2003/11/14 20:24:39 bmastenbrook Exp $ ;;;; $Source: /project/net-nittin-irc/cvsroot/net-nittin-irc/protocol.lisp,v $

;;;; See LICENSE for licensing information. @@ -114,9 +114,9 @@ #+sbcl (sb-sys:add-fd-handler (sb-bsd-sockets:socket-file-descriptor (server-socket connection)) - (lambda (fd) - (declare (ignore fd)) - (read-messsage connection))) + :input (lambda (fd) + (declare (ignore fd)) + (read-messsage connection))) #-sbcl (error "add-asynchronous-message-handler is not supported now on non-SBCL"))