anchor.diff:  (defun list-profiles ()
     (manager-list-profiles (manager)))
   
  -(export-always 'manager-list-profiles)
   (defgeneric manager-list-profiles (manager)
     (:method ((manager manager))
       (error "Unspecified manager method"))
  
positive.code: (defun find-os-package (name)
    (manager-find-os-package (manager) name))
  
  (export-always 'manager-find-os-package)
  (defgeneric manager-find-os-package (manager name)
    (:method ((manager manager) name)
      (declare (ignorable name))
  
negative.code: (defun uninstall (package-list &optional profile)
    (manager-uninstall (manager) package-list profile))
  
  (defmethod manager-uninstall ((manager manager) package-list &optional profile)
    (run (append (uninstall-command manager profile)
                 (mapcar #'name package-list))))
  