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

Brian Mastenbrook bmastenbrook at common-lisp.net
Tue Jun 1 15:39:16 UTC 2004


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*)





More information about the cl-irc-cvs mailing list