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