Update of /project/cl-irc/cvsroot/cl-irc/example In directory common-lisp.net:/home/lisppaste/cl-irc/example

Modified Files: cliki.lisp Log Message: for bmastenbrook: MORE HELP

Date: Thu Oct 13 20:26:21 2005 Author: lisppaste

Index: cl-irc/example/cliki.lisp diff -u cl-irc/example/cliki.lisp:1.33 cl-irc/example/cliki.lisp:1.34 --- cl-irc/example/cliki.lisp:1.33 Thu Oct 13 20:22:38 2005 +++ cl-irc/example/cliki.lisp Thu Oct 13 20:26:21 2005 @@ -1,4 +1,4 @@ -;;;; $Id: cliki.lisp,v 1.33 2005/10/13 18:22:38 lisppaste Exp $ +;;;; $Id: cliki.lisp,v 1.34 2005/10/13 18:26:21 lisppaste Exp $ ;;;; $Source: /project/cl-irc/cvsroot/cl-irc/example/cliki.lisp,v $

;;;; cliki.lisp - CLiki as an infobot; only works on SBCL. @@ -407,7 +407,10 @@ (format nil "Try saying something like ``~A: advice #11904'' to get some advice." nick))) ("apropos" . ,(lambda (nick) - (format nil "Try ``~A: apropos foo'' to search for all small definitions containing ''foo''." nick))))) + (format nil "Try ``~A: apropos foo'' to search for all small definitions containing ''foo''." nick))) + ("acronyms" . + ,(lambda (nick) + (format nil "See an acronym you don't recognize? Try ``~A: what does sbcl stand for?'' to find out what it means!" nick)))))

(defun cliki-bot-help (nick) (format nil "There are multiple help modules. Try ``/msg ~A help kind'', where kind is one of: ~{"~A"~^, ~}."