anchor.diff:  (defun list-generations (&optional profile)
     (manager-list-generations (manager) profile))
   
  -(export-always 'manager-list-generations) ; TODO: Remove defgeneric exports.
   (defgeneric manager-list-generations (manager &optional profile)
     (:method ((manager manager) &optional profile)
       (declare (ignorable profile))
  
positive.code: (defun uninstall (package-list &optional profile)
    (manager-uninstall (manager) package-list profile))
  
  (export-always 'manager-uninstall)
  (defmethod manager-uninstall ((manager manager) package-list &optional profile)
    (run (append (uninstall-command manager profile)
                 (mapcar #'name package-list))))
  
negative.code: (defun list-packages (&optional profile)
    (manager-list-packages (manager) profile))
  
  (defgeneric manager-list-packages (manager &optional profile)
    (:method ((manager manager) &optional profile)
      (declare (ignorable profile))
  