anchor.diff:            (format nil "~a~%~a" (sanitize-string sig) (sanitize-string result)))))))
   
   (defun sanitize-string (str)
  +  (check-type str string)
     (trim (html-entities:decode-entities
            (ppcre:regex-replace-all "<[^>]+>" str ""))
           :inside t))
   
   (defun get-erl-man-info (module &optional fun arity)
  +  (check-type module string)
  +  (check-type fun (or string null))
  +  (check-type arity (or string null))
     (let ((link (erl-man-link module fun arity)))
       (multiple-value-bind (stream status)
           (drakma:http-request link :want-stream t)
  
positive.code:                      title (xmpp::type- message)))))))
  
  (defun reply-nick (from)
    (let ((pos (position #\/ from)))
      (when pos (subseq from (1+ pos)))))
  
  (defun reply-chat (connection to reply kind &key highlight)
    (if (string-equal kind "groupchat")
      (let* ((pos (position #\/ to))
             (to (if pos (subseq to 0 pos) to))
  
negative.code:                                   :name (make-thread-name login))))
  
  (defun connect (login pass &key room (nick login))
    (check-type login string)
    (check-type pass string)
    (check-type room string)
    (let ((*room* room))
      (declare (special *room*))
      (setf *connection* (xmpp:connect-tls :hostname "jabber.ru"))
  