anchor.diff:      ((equal "v")
        (reply-chat connection (xmpp:from message)
                    (handler-case (git-version)
  -                   (t (e) (format nil "~a" e)))
  +                   (error (e) (format nil "~a" e)))
                    (xmpp::type- message)))
       ((equal "errors")
        (reply-chat connection (xmpp:from message)
  
positive.code:     ((optima.ppcre:ppcre "^say$")
       (reply-chat connection (xmpp:from message)
                   (handler-case (fortune :short t)
                     (t (e) (format nil "~a" e)))
                   (xmpp::type- message)))
      ((optima.ppcre:ppcre "^say (.*)$" text)
       (reply-chat connection (xmpp:from message)
                   text (xmpp::type- message)
  
negative.code:                              (git-version))
                        (format nil "ci status: ~a (https://travis-ci.org/~a)"
                                status repo)))
                (error (e) (format nil "~a" e)))))
         (reply-chat connection (xmpp:from message)
                     reply (xmpp::type- message))))
      ((equal "reload!")
       (let ((reply (handler-case (progn
                                    (reload)
                                    (git-version))
                      (error (e) (format nil "~a" e)))))
         (reply-chat connection (xmpp:from message)
                     reply (xmpp::type- message))))
      ((equal "ci")
       (let ((reply (handler-case (format nil "~a" (travis-status (get-github-repo)))
                      (error (e) (format nil "~a" e)))))
         (reply-chat connection (xmpp:from message)
                     reply (xmpp::type- message))))))
  
  