anchor.diff:    (check-type repo string)
     (check-type branch string)
     (let ((url (format nil "https://api.travis-ci.org/~a.svg?branch=~a" repo branch)))
  +    (with-content-types
       (multiple-value-bind (res code) (drakma:http-request url)
         (if (= code 200)
  -          (let* ((res (plump:parse (babel:octets-to-string res)))
  +            (let* ((res (plump:parse res))
                    (last-child (alexandria:last-elt
                                 (plump:children (aref (plump:children res) 0))))
                    (last-text (plump:text
  
positive.code: 
  (defun hn-top-items (&optional (amount 5))
    (check-type amount integer)
    (multiple-value-bind (data status)
        (drakma:http-request "https://hacker-news.firebaseio.com/v0/topstories.json")
      (if (= 200 status)
          (let ((top (json:decode-json-from-string (babel:octets-to-string data))))
            (subseq top 0 amount))
          (error (format nil "hn api returned ~a" status)))))
  
  (defun hn-item-info (id)
    (check-type id integer)
    (multiple-value-bind (data status)
        (drakma:http-request (format nil "https://hacker-news.firebaseio.com/v0/item/~a.json" id))
      (if (= 200 status)
          (json:decode-json-from-string (babel:octets-to-string data))
          (error (format nil "hn api returned ~a" status)))))
  
  (defun format-hn-info (item)
    (format nil "~a [<a href='~a'>урл</a>] [<a href='https://news.ycombinator.com/item?id=~a'>дискач</a>]"
  
negative.code:               ((string-equal "passing" last-text) :passing)
                ((string-equal "failing" last-text) :failing)
                (t :unknown)))
              (error (format nil "http request to ~s returned ~a" url code)))))))
  
  (defun get-github-repo (&optional (system (string-downcase (package-name #.*package*))))
    (check-type system (or string keyword))
  