anchor.diff:  (defclass quicklisp-diff-item ()
     ((libname :initarg :libname :accessor libname)
      (lisp :initarg :lisp :accessor lisp)
  -   (new-status :initarg :new-status :accessor new-status)
  -   (old-status :initarg :old-status :accessor old-status)))
  +   (new-result :initarg :new-result :accessor new-result)
  +   (old-result :initarg :old-result :accessor old-result)))
  +
  +(defun new-status (quicklisp-diff-item)
  +  (status (new-result quicklisp-diff-item)))
  +
  +(defun old-status (quicklisp-diff-item)
  +  (status (old-result quicklisp-diff-item)))
   
   ;; Diff of two quicklisp distro versions.
   (defclass quicklisp-diff ()
  
positive.code:              (fail-list '(:failed-tests ("a" "b") :known-to-fail ("b" "c"))))))
  
  (defparameter *lib-status-regressions-rules*
    `( ;new type             ;old type     ; do the new-result has regressions comparing to old-status?
      (()                     t            nil)
      (:ok                    t            nil)
      (:no-resource           t            nil)
  
negative.code:                            (make-instance 'quicklisp-diff-item
                                            :libname (getf (lib-result joined-lib-result) :libname)
                                            :lisp (funcall lisp-getter key)
                                            :new-result joined-lib-result
                                            :old-result joined-lib-result-prev)))
                      (cond ((has-regressions-p status status-prev)
                             (push (make-diff-item)
                                   (have-regressions diff)))
  