[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-serv26733

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

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