anchor.diff:  
   (defun find-project-directory (name &key exit-recursive-scan)
     "Return the directory pathname of the project named NAME by searching the local projects.
  -If EXIT-RECURSIVE-SCAN is non-nil, avoid recursive scan of local projects. By default, it will re-scan the local projects to avoid false negatives and false positives."
  +If EXIT-RECURSIVE-SCAN is non-nil, avoid recursive scan of local
  +projects. By default, it will re-scan the local projects to avoid
  +false negatives and false positives."
     (unless *git-projects*
       (setf *git-projects* (parse-projects)))
     (let ((result (find name *git-projects*
  
positive.code: (uiop:define-package :nyxt/vcs
    (:use :common-lisp :trivia :nyxt)
    (:documentation "Interact with Git repositories.
  
  New command: vcs-clone (alias git-clone), to clone a VCS repository on
  disk (Git only at the moment).
  
  Change the `*vcs-projects-roots*' list to define where to look for
  existing repositories on disk.
  
negative.code:   (namestring (merge-pathnames (uiop:truename* base) dir)))
  
  (defun choose-clone-url (root-name project-name clone-uri)
    "If we are cloning one repository of ours (ROOT-NAME equals
  `vcs-username'), then use a git remote url instead of https."
    (let ((username (nyxt/vcs::vcs-username (quri:uri-domain clone-uri))))
      (if (and username
               (string= root-name username))
  