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

Modified Files: specbot.lisp Log Message: Fix help for /msg

Date: Tue Oct 26 03:38:49 2004 Author: bmastenbrook

Index: cl-irc/example/specbot.lisp diff -u cl-irc/example/specbot.lisp:1.8 cl-irc/example/specbot.lisp:1.9 --- cl-irc/example/specbot.lisp:1.8 Wed Oct 20 22:21:33 2004 +++ cl-irc/example/specbot.lisp Tue Oct 26 03:38:49 2004 @@ -1,4 +1,4 @@ -;;;; $Id: specbot.lisp,v 1.8 2004/10/20 20:21:33 bmastenbrook Exp $ +;;;; $Id: specbot.lisp,v 1.9 2004/10/26 01:38:49 bmastenbrook Exp $ ;;;; $Source: /project/cl-irc/cvsroot/cl-irc/example/specbot.lisp,v $

;;;; specbot.lisp - an example IRC bot for cl-irc @@ -97,7 +97,9 @@ (source message) (first (arguments message)))) (to-lookup (strip-address (trailing-argument message)))) - (if (and (not (string= to-lookup (trailing-argument message))) + (if (and (or + (string-equal (first (arguments message)) *nickname*) + (not (string= to-lookup (trailing-argument message)))) (member to-lookup '("help" "help?") :test #'string-equal)) (progn (privmsg *connection* destination