Update of /project/cl-irc/cvsroot/cl-irc/example In directory common-lisp.net:/home/bmastenbrook/cl-irc/example Modified Files: cliki.lisp Log Message: slight change Date: Tue Jun 1 08:39:15 2004 Author: bmastenbrook Index: cl-irc/example/cliki.lisp diff -u cl-irc/example/cliki.lisp:1.6 cl-irc/example/cliki.lisp:1.7 --- cl-irc/example/cliki.lisp:1.6 Tue Jun 1 08:29:19 2004 +++ cl-irc/example/cliki.lisp Tue Jun 1 08:39:15 2004 @@ -1,4 +1,4 @@ -;;;; $Id: cliki.lisp,v 1.6 2004/06/01 15:29:19 bmastenbrook Exp $ +;;;; $Id: cliki.lisp,v 1.7 2004/06/01 15:39:15 bmastenbrook Exp $ ;;;; $Source: /project/cl-irc/cvsroot/cl-irc/example/cliki.lisp,v $ ;;;; cliki.lisp - CLiki as an infobot; only works on SBCL. @@ -194,9 +194,9 @@ (find-package :lisppaste) channel (> (length channel) 0) - (char= (elt channel 0) #\#)) - (funcall (intern "SAY-HELP" :lisppaste) - channel) + (char= (elt channel 0) #\#) + (funcall (intern "SAY-HELP" :lisppaste) + channel)) (return-from cliki-lookup nil)) (or (if (string-equal first-pass "help") *cliki-bot-help*)