[net-nittin-irc-cvs] CVS update: net-nittin-irc/protocol.lisp

[Brian Mastenbrook]

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