anchor.diff:    ;; (format xmpp:*debug-stream* "~&personal: ~a" (xmpp:body message))
     (optima:match (xmpp:body message)
       ((optima.ppcre:ppcre "^say (.*)$" text)
  -     (reply-chat connection (xmpp:from message) 
  +     (reply-chat connection (xmpp:from message)
                    text (xmpp::type- message)))))
   
   (defun process-groupchat-message (connection message)
  
positive.code: (defun process-chat-message (connection message)
    (unless (process-personal connection message)
      (unless (process-common connection message)
        (reply-chat connection (xmpp:from message) 
                    "No." (xmpp::type- message)))))
  
  (defun process-personal (connection message)
  
negative.code: (defun process-common (connection message)
    (optima:match (xmpp:body message)
      ((optima.ppcre:ppcre "(http[s]?://[\\S]+)" url)
       (let* ((stream (drakma:http-request url :want-stream t))
              (match (read-until stream #'(lambda (data)
                                            (ppcre:register-groups-bind
                                                (title)
                                                ("(?i)<title>([^<]*)</title>" data :sharedp t)
                                              title)))))
         (when match
           (reply-chat connection (xmpp:from message)
                       match (xmpp::type- message)))))))
  
  (defun reply-chat (connection to reply kind)
    (if (string-equal kind "groupchat")
  