[Cl-irc-cvs] CVS update: cl-irc/example/cliki.lisp - cl-irc-cvs@common-lisp.net - mailman3.common-lisp.net

28 Jul 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:
BUGS
Date: Wed Jul 28 07:36:25 2004
Author: bmastenbrook
Index: cl-irc/example/cliki.lisp
diff -u cl-irc/example/cliki.lisp:1.19 cl-irc/example/cliki.lisp:1.20

--- cl-irc/example/cliki.lisp:1.19	Wed Jul 28 07:34:46 2004
+++ cl-irc/example/cliki.lisp	Wed Jul 28 07:36:25 2004
@@ -1,4 +1,4 @@
-;;;; $Id: cliki.lisp,v 1.19 2004/07/28 14:34:46 bmastenbrook Exp $
+;;;; $Id: cliki.lisp,v 1.20 2004/07/28 14:36:25 bmastenbrook Exp $
 ;;;; $Source: /project/cl-irc/cvsroot/cl-irc/example/cliki.lisp,v $
;;;; cliki.lisp - CLiki as an infobot; only works on SBCL.
@@ -504,7 +504,8 @@
                                         (:forward (elt (cdr strings) 1))
                                         (:backward (elt (cdr strings) 3))))
                                 (person (if (string-equal person "me")
-                                            (or sender channel "you")))
+                                            (or sender channel "you")
+                                            person))
                                 (about (cliki-lookup term :sender sender
                                                     :channel channel)))
                            (if about

    