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:     (run-program (format nil "fortune -a ~{~a ~}" args))))
  
  (defun yandex-translate (text &key lang-from (lang-to "ru"))
    (with-content-types
    (multiple-value-bind (data status)
        (drakma:http-request "https://translate.yandex.net/api/v1.5/tr.json/translate"
                               :method :post
                               :parameters `(("key" . ,*yandex-api-key*)
                                             ("lang" . ,(format nil "~:[~;~:*~a-~]~a"
                                                                lang-from lang-to))
                                     ("text" . ,text))
         :external-format-out :utf-8)
      (if (= 200 status)
            (let ((data (cl-json:decode-json-from-string data)))
            (cadr (assoc :text data)))
            (error (format nil "yandex api returned ~a" status))))))
  
  (defun lstack-push (item stack)
    (let ((content-size (length (lstack-content stack))))
  