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

Modified Files: cliki.lisp Log Message: s-b-m-h instead of a-a-m-h

Date: Wed Dec 17 20:46:00 2003 Author: bmastenbrook

Index: net-nittin-irc/example/cliki.lisp diff -u net-nittin-irc/example/cliki.lisp:1.8 net-nittin-irc/example/cliki.lisp:1.9 --- net-nittin-irc/example/cliki.lisp:1.8 Tue Dec 16 18:18:01 2003 +++ net-nittin-irc/example/cliki.lisp Wed Dec 17 20:46:00 2003 @@ -1,4 +1,4 @@ -;;;; $Id: cliki.lisp,v 1.8 2003/12/16 23:18:01 bmastenbrook Exp $ +;;;; $Id: cliki.lisp,v 1.9 2003/12/18 01:46:00 bmastenbrook Exp $ ;;;; $Source: /project/net-nittin-irc/cvsroot/net-nittin-irc/example/cliki.lisp,v $

;;;; cliki.lisp - CLiki as an infobot; only works on SBCL. @@ -182,7 +182,7 @@ (mapcar #'(lambda (channel) (join *cliki-connection* channel)) channels) (add-hook *cliki-connection* 'irc::irc-privmsg-message 'msg-hook) (add-hook *cliki-connection* 'irc::irc-notice-message 'notice-hook) - #+sbcl (add-asynchronous-message-handler *cliki-connection*) + #+sbcl (start-background-message-handler *cliki-connection*) #-sbcl (read-message-loop *cliki-connection*))

(defun shuffle-hooks ()