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)