anchor.diff:                               (git-version))
                         (format nil "ci status: ~a (https://travis-ci.org/~a)"
                                 status repo)))
  -              (t (e) e))))
  +              (t (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)))
  -                    (t (e) e))))
  +                    (t (e) (format nil "~a" e)))))
          (reply-chat connection (xmpp:from message)
                      reply (xmpp::type- message))))))
   
  
positive.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)))
  
negative.code:   (optima:match (xmpp:body message)
      ((equal "v")
       (reply-chat connection (xmpp:from 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)))
  