anchor.diff:                (lambda (input)
                   `((:a :href (lisp-url
                                '(%describe-os-package
  -                               (list (ospama:find-os-package ,input))))
  +                               (ospama:find-os-packages ,input)))
                         ,input)
                     " "))
                 inputs))
  
positive.code: (defmethod object-string ((pkg ospama:os-package))
    (ospama:name pkg))
  (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)))
  
  
negative.code:                                           ,@(unless (ospama:expanded-outputs-p package)
                                                `((:a :class "button"
                                                      :href ,(lisp-url '(echo "Computing path & size...")
                                                                       `(ospama:expand-outputs (first (ospama:find-os-packages ,(ospama:name package))))
                                                                       `(%describe-os-package
                                                                         (list (first (ospama:find-os-packages ,(ospama:name package))))))
                                                      "Compute path & size")))
                                            ,(format-outputs (ospama:outputs package)))
                                       (:li "Supported systems: " ,(str:join " " (ospama:supported-systems package)))
  