[Cl-irc-cvs] CVS update: cl-irc/example/specbot.lisp

Brian Mastenbrook bmastenbrook at common-lisp.net
Tue Nov 16 22:45:30 UTC 2004


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)





More information about the cl-irc-cvs mailing list