anchor.diff:                ((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))))))
  +            (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))
  
positive.code: (in-package #:lbot)
  
  (defun my-subseq (seq start &optional end)
    (check-type seq sequence)
  
negative.code:   (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 res))
                   (last-child (alexandria:last-elt
                                (plump:children (aref (plump:children res) 0))))
                   (last-text (plump:text
  