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

Modified Files: specbot.lisp Log Message: better help

Date: Tue Nov 16 23:45:28 2004 Author: bmastenbrook

Index: cl-irc/example/specbot.lisp diff -u cl-irc/example/specbot.lisp:1.10 cl-irc/example/specbot.lisp:1.11 --- cl-irc/example/specbot.lisp:1.10 Tue Nov 16 23:35:02 2004 +++ cl-irc/example/specbot.lisp Tue Nov 16 23:45:27 2004 @@ -1,4 +1,4 @@ -;;;; $Id: specbot.lisp,v 1.10 2004/11/16 22:35:02 bmastenbrook Exp $ +;;;; $Id: specbot.lisp,v 1.11 2004/11/16 22:45:27 bmastenbrook Exp $ ;;;; $Source: /project/cl-irc/cvsroot/cl-irc/example/specbot.lisp,v $

;;;; specbot.lisp - an example IRC bot for cl-irc @@ -109,12 +109,13 @@ (member to-lookup '("help" "help?") :test #'string-equal)) (progn (privmsg *connection* destination - (format nil "To use the ~A bot, say something like "database term", where database is one of (~{~S~^, ~}) and term is the desired lookup." + (format nil "To use the ~A bot, say something like "database term", where database is one of (~{~S~^, ~}) and term is the desired lookup. The available databases are:" *nickname* (mapcar #'second *spec-providers*))) - (privmsg *connection* destination - (format nil "The available databases are: ~{~{~*~S, ~A~}~^; ~}" - *spec-providers*))) + (loop for (a b c d) on *spec-providers* by #'cddddr + do (privmsg *connection* destination + "~@{~{~*~S, ~A~}~}~}" a b c d)) + ) (loop for type in *spec-providers* for actual-fun = (if (typep (first type) 'symbol) (first type)