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)