anchor.diff:                   (xmpp::type- message)))
       ((optima.ppcre:ppcre "^say (.*)$" text)
        (reply-chat connection (xmpp:from message)
  -                 text (xmpp::type- message)))
  +                 text (xmpp::type- message)
  +                 :highlight (reply-nick (xmpp:from message))))
       ((optima.ppcre:ppcre "^man ([^:]+):([^/]+)/(.+)$" m f a)
        (reply-chat connection (xmpp:from message)
                    (get-erl-man-info m f a) (xmpp::type- message)))
  
positive.code:          (reply-chat connection (xmpp:from message)
                       title (xmpp::type- message)))))))
  
  (defun reply-chat (connection to reply kind)
    (if (string-equal kind "groupchat")
      (let* ((pos (position #\/ to))
             (to (if pos (subseq to 0 pos) to)))
        (xmpp:message connection to reply :type :groupchat))
      (xmpp:message connection to reply :type :chat)))
  
  
negative.code:                  (get-erl-man-info m f) (xmpp::type- message)))
      ((optima.ppcre:ppcre "^man ([^:]+)$" m)
       (reply-chat connection (xmpp:from message)
                   (get-erl-man-info m) (xmpp::type- message)))
      ((optima.ppcre:ppcre "^idea (.+)$" idea)
       (add-idea (reply-nick (xmpp:from message)) idea)
       (reply-chat connection (xmpp:from message)
                   "got it" (xmpp::type- message) 
                   :highlight (reply-nick (xmpp:from message))))
      ((equal "ideas")
       (reply-chat connection (xmpp:from message)
                   (get-ideas) (xmpp::type- message)))))
  
  (defun my-subseq (seq start &optional end)
    (if (> end (length seq))
  