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:               (print-quicklisp-diff destination
                                      ql-new
                                      ql-old
                                      (compare-quicklisps joined-index ql-new ql-old)))))))
  
  ;; =========== print all the reports at once =============
  
  
negative.code:       (print-diff-item diff-item))))
  
  (defun print-all-quicklisps-diff-report (destination joined-index)
    (format destination "<html><head>~%")
    (format destination "  <title>Quicklisps Diff - CL Test Grid</title>~%")
    (format destination "  <link href=\"style.css\" rel=\"stylesheet\"/><head>~%")
    (format destination "<head>~%")
    (format destination "<body><pre>~%")
    (let ((quicklisps (mapcar #'car (distinct-addresses joined-index '(:lib-world)))))
      (loop
         for qls on (sort quicklisps #'string>)
  