[Lisppaste-cvs] CVS update: lisppaste2/lisppaste.lisp

[Brian Mastenbrook]

Update of /project/lisppaste/cvsroot/lisppaste2
In directory common-lisp.net:/home/bmastenbrook/lisppaste2

Modified Files:
	lisppaste.lisp 
Log Message:
Use s-b-m-h instead of r-m-l

Date: Mon Apr 26 12:46:56 2004
Author: bmastenbrook

Index: lisppaste2/lisppaste.lisp
diff -u lisppaste2/lisppaste.lisp:1.13 lisppaste2/lisppaste.lisp:1.14
--- lisppaste2/lisppaste.lisp:1.13	Thu Mar 11 09:21:33 2004
+++ lisppaste2/lisppaste.lisp	Mon Apr 26 12:46:55 2004
@@ -1,4 +1,4 @@
-;;;; $Id: lisppaste.lisp,v 1.13 2004/03/11 14:21:33 bmastenbrook Exp $
+;;;; $Id: lisppaste.lisp,v 1.14 2004/04/26 16:46:55 bmastenbrook Exp $
 ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/lisppaste.lisp,v $
 
 ;;;; See the LICENSE file for licensing information.
@@ -47,7 +47,7 @@
 				  :port *default-irc-server-port*))
   (mapcar #'(lambda (channel) (irc:join *connection* channel)) *channels*)
   (add-hook nickname)
-  (irc:read-message-loop *connection*))
+  (irc:start-background-message-handler *connection*))
 
 (defmacro make-new-paste (paste-list (&optional annotate real-number annotate-list) url &rest keys
                           &key channel user title &allow-other-keys)