[net-nittin-irc-cvs] CVS update: net-nittin-irc/example/cliki.lisp

[Brian Mastenbrook]

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