anchor.diff:    (optima:match (xmpp:body message)
       ((equal "v")
        (reply-chat connection (xmpp:from message)
  -                 (handler-case (git-version) (t (e) e)) (xmpp::type- message)))
  +                 (handler-case (git-version)
  +                   (t (e) (format nil "~a" e)))
  +                 (xmpp::type- message)))
       ((equal "errors")
        (reply-chat connection (xmpp:from message)
                    (format-errors) (xmpp::type- message)))
  
positive.code:                              (git-version))
                        (format nil "ci status: ~a (https://travis-ci.org/~a)"
                                status repo)))
                (t (e) 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)))
                      (t (e) e))))
         (reply-chat connection (xmpp:from message)
                     reply (xmpp::type- message))))))
  
  
negative.code:           ((string-equal "failing" last-text) :failing)
            (t :unknown))))))
  
  (defun get-github-repo (&optional (system (string-downcase (package-name #.*package*))))
    (check-type system (or string keyword))
    (with-system-path (path system)
      (let* ((out (run-program (format nil "cd ~a && git config --get remote.origin.url" path)))
  