anchor.diff:  
   (defun hn-top-items (&optional (amount 5))
     (check-type amount integer)
  +  (with-content-types
     (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))))
  +          (let ((top (json:decode-json-from-string data)))
             (subseq top 0 amount))
  -        (error (format nil "hn api returned ~a" status)))))
  +          (error (format nil "hn api returned ~a" status))))))
   
   (defun hn-item-info (id)
     (check-type id integer)
  +  (with-content-types
     (multiple-value-bind (data status)
  -      (drakma:http-request (format nil "https://hacker-news.firebaseio.com/v0/item/~a.json" id))
  +        (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)))))
  +          (json:decode-json-from-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>]"
  
positive.code:   (check-type repo string)
    (check-type branch string)
    (let ((url (format nil "https://api.travis-ci.org/~a.svg?branch=~a" repo branch)))
      (multiple-value-bind (res code) (drakma:http-request url)
        (if (= code 200)
            (let* ((res (plump:parse (babel:octets-to-string res)))
                   (last-child (alexandria:last-elt
                                (plump:children (aref (plump:children res) 0))))
                   (last-text (plump:text
  
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))
  