anchor.diff:  (defmethod install-command ((manager guix-manager) profile)
     (append (list (path manager) "install")
             (when profile
  -            (list (str:concat "--profile=" profile)))))
  +            (list (str:concat "--profile=" (namestring profile))))))
   
   (defmethod manager-install-manifest ((manager guix-manager) manifest &optional profile)
     (run (append (list (path manager) "package"
                        (str:concat "--manifest=" (namestring manifest)))
                  (when profile
  -                 (list (str:concat "--profile=" profile))))))
  +                 (list (str:concat "--profile=" (namestring profile)))))))
   
   (defmethod uninstall-command ((manager guix-manager) profile)
     (append (list (path manager) "remove")
             (when profile
  -            (list (str:concat "--profile=" profile)))))
  +            (list (str:concat "--profile=" (namestring profile))))))
   
   (defmethod manager-list-files ((manager guix-manager) outputs)
     (alexandria:mappend
  
positive.code:              (mbegin %store-monad
                       (list-dependents (list (find-package ,name))))))))))
  
  (declaim (ftype (function (&optional (or symbol string))) list-installed))
  (defun list-installed (&optional (profile '%current-profile))
    "Return the installed packages in PROFILE as a list of strings.
  PROFILE is a full path to a profile."
  
negative.code:    `(write
       (map manifest-entry-name
            (manifest-entries
             (concatenate-manifests (map profile-manifest (list ,(namestring profile)))))))))
  
  (define-class guix-package (os-package)
    ((outputs '())
  