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

[Brian Mastenbrook]

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