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

[Lisppaste and co.]

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\"~^, ~}."