anchor.diff:  (sera:export-always '*vcs-projects-roots*)
   (defparameter *vcs-projects-roots* '("~/projects" "~/src" "~/work" "~/common-lisp" "~/quicklisp/local-projects")
     "A list of directories to look for VCS repositories into.")
  -;; Possible improvement: specify the depth to look for projects alongside the directory.
  -;; See magit-list-repositories.
  +;; Possible improvement: specify the depth to look for projects
  +;; alongside the directory.  See magit-list-repositories.
   
   (declaim (type (or null alist-of-strings) *vcs-usernames-alist*))
   (sera:export-always '*vcs-usernames-alist*)
   (defvar *vcs-usernames-alist* '(("github.com" . "")
                                   ("gitlab.com" . "")
                                   ("bitbucket.org" . ""))
  -  "Your VCS usernames on different forges.  It helps some commands to do things
  -right, such as cloning over SSH instead of HTTPS.  The forge name should be a
  -domain, such as 'github.com'.")
  +  "Your VCS usernames on different forges.  It helps some commands to
  +do things right, such as cloning over SSH instead of HTTPS.  The forge
  +name should be a domain, such as 'github.com'.")
   
   (declaim (type (or null string) *vcs-username*))
   (sera:export-always '*vcs-username*)
  
positive.code:        nil))))
  
  (defun search-git-directories (dir)
    "Search all directories that contain a .git/ subdirectory, one level deep inside DIR."
    (when (uiop:directory-pathname-p (uiop:ensure-directory-pathname dir))
      (loop for dir in (uiop:subdirectories dir)
         for git-dir = (merge-pathnames dir ".git/")
  
negative.code: 
  (declaim (ftype (function (string)) vcs-username))
  (defun vcs-username (forge)
    "Find the username for this forge name. Look up into
  `*vcs-usernames-alist*' and fallback to `*vcs-username*'."
    (let* ((forge/username (assoc forge *vcs-usernames-alist* :test #'string-equal)))
      (cond
        ((null forge/username)
  