anchor.diff:  (defmethod object-display ((pkg ospama:os-package))
     (format nil "~a~a~a"
             (ospama:name pkg)
  -          (make-string (max 1 (- 40 (length (ospama:name pkg)))) :initial-element #\ )
  +          (make-string (max 1 (- 40 (length (ospama:name pkg))))
  +                       :initial-element #\ )
             (ospama:synopsis pkg)))
   
   (defmethod object-string ((output ospama:os-package-output))
  
positive.code:       (:style (style buffer))
        (:h1 "Generation packages")
        (:ul
         (loop for package in (ospama:list-packages (ospama:path generation))
               collect
               (markup:markup*
                          `(:li (:a :class "button"
                                    :href ,(lisp-url `(%describe-os-package
                                                       (list (ospama:find-os-package ,(ospama:name package)))))
                                    ;; TODO: Display the output
                                    ,(ospama:name package))
                                " " ,(ospama:version package)))))))
      (set-current-buffer buffer)
      buffer))
  
  
negative.code:     (format nil "~a:~a~a~a"
              (ospama:name pkg)
              (ospama:name output)
              (make-string (max 1 (- 40
                                     (+ (length (ospama:name pkg))
                                        (length (ospama:name output)))))
                           :initial-element #\ )
              (ospama:synopsis pkg))))
  
  (defmethod object-string ((gen ospama:os-generation))
  