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

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

Index: net-nittin-irc/protocol.lisp diff -u net-nittin-irc/protocol.lisp:1.26 net-nittin-irc/protocol.lisp:1.27 --- net-nittin-irc/protocol.lisp:1.26 Tue Dec 16 17:45:54 2003 +++ net-nittin-irc/protocol.lisp Tue Dec 16 18:21:56 2003 @@ -1,4 +1,4 @@ -;;;; $Id: protocol.lisp,v 1.26 2003/12/16 22:45:54 krosenberg Exp $ +;;;; $Id: protocol.lisp,v 1.27 2003/12/16 23:21:56 krosenberg Exp $ ;;;; $Source: /project/net-nittin-irc/cvsroot/net-nittin-irc/protocol.lisp,v $

;;;; See LICENSE for licensing information. @@ -136,14 +136,12 @@ irc-message-event on them." (flet ((do-loop () (read-message-loop connection))) (let ((name (format nil "irc-hander-~D" (incf *background-count*)))) - (cond - (async - #+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) - #+(and sbcl (not sbcl-thread)) (add-asynchronous-message-handler - connection)))))) + #+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) + #+(and sbcl (not sbcl-thread)) (add-asynchronous-message-handler + connection))))

(defmethod read-message-loop ((connection connection)) (loop while (read-message connection)))