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