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)