anchor.diff:      (format nil "~a:~a~a~a"
               (ospama:name pkg)
               (ospama:name output)
  -            (make-string (max 1 (- 40 (length (ospama:name pkg)))) :initial-element #\ )
  +            (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))
  
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: (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 #\ )
            (ospama:synopsis pkg)))
  
  (defmethod object-string ((output ospama:os-package-output))
  