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

[Kevin Rosenberg]

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

Modified Files:
	protocol.lisp 
Log Message:
fix typo
Date: Tue Dec 16 18:32:26 2003
Author: krosenberg

Index: net-nittin-irc/protocol.lisp
diff -u net-nittin-irc/protocol.lisp:1.29 net-nittin-irc/protocol.lisp:1.30
--- net-nittin-irc/protocol.lisp:1.29	Tue Dec 16 18:31:17 2003
+++ net-nittin-irc/protocol.lisp	Tue Dec 16 18:32:26 2003
@@ -1,4 +1,4 @@
-;;;; $Id: protocol.lisp,v 1.29 2003/12/16 23:31:17 krosenberg Exp $
+;;;; $Id: protocol.lisp,v 1.30 2003/12/16 23:32:26 krosenberg Exp $
 ;;;; $Source: /project/net-nittin-irc/cvsroot/net-nittin-irc/protocol.lisp,v $
 
 ;;;; See LICENSE for licensing information.
@@ -130,7 +130,7 @@
       #+cmu (mp:make-process #'do-loop :name name)
       #+lispworks (mp:process-run-function name nil #'do-loop)
       #+sb-thread (sb-thread:make-thread #'do-loop)
-      #+(and sbcl (not sbcl-thread))
+      #+(and sbcl (not sb-thread))
       (sb-sys:add-fd-handler (sb-bsd-sockets:socket-file-descriptor
 			      (server-socket connection))
 			     :input (lambda (fd)