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

Modified Files:
	cliki.lisp 
Log Message:
Make cliki read its small definitions file on startup

Date: Mon Dec 15 18:11:13 2003
Author: bmastenbrook

Index: net-nittin-irc/example/cliki.lisp
diff -u net-nittin-irc/example/cliki.lisp:1.6 net-nittin-irc/example/cliki.lisp:1.7
--- net-nittin-irc/example/cliki.lisp:1.6	Mon Dec 15 14:48:19 2003
+++ net-nittin-irc/example/cliki.lisp	Mon Dec 15 18:11:12 2003
@@ -1,4 +1,4 @@
-;;;; $Id: cliki.lisp,v 1.6 2003/12/15 19:48:19 bmastenbrook Exp $
+;;;; $Id: cliki.lisp,v 1.7 2003/12/15 23:11:12 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.
@@ -176,6 +176,7 @@
       (privmsg *cliki-connection* (source message) (format nil "IDENTIFY ~A" *cliki-nickserv-password*))))
 
 (defun start-cliki-bot (nick server &rest channels)
+  (read-small-definitions)
   (setf *cliki-nickname* nick)
   (setf *cliki-connection* (connect :nickname *cliki-nickname* :server server))
   (mapcar #'(lambda (channel) (join *cliki-connection* channel)) channels)