anchor.diff:  CLONE-URI: quri:uri object."
     (log:debug "Cloning ~a into ~a" project-name target-dir)
     (echo "Cloning ~a into ~a" project-name target-dir)
  -  (setf (quri:uri-path clone-uri)
  -        (str:concat "/" root-name "/" project-name))
     (handler-case (progn
                     (uiop:launch-program
                      (list "git" "clone"
  -                         (quri:render-uri clone-uri)
  +                         (choose-clone-url root-name project-name clone-uri)
                            (next/vcs::concat-filenames target-dir project-name))))
       (error (c)
         (echo-warning "Error cloning ~a: ~a" project-name c))))
  
positive.code:   "Fuzzy-match local project roots."
    (fuzzy-match input *vcs-projects-roots*))
  
  (defun clone (project-name root-name target-dir clone-uri)
    "Do the (Git) clone.
  PROJECT-NAME: string
  
negative.code:   "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.
  
  (defvar *github-username* ""
    "Your Github username. Helps some commands to do things right.")
  
  (defparameter *git-projects* '()
    "Currently registered Git projects.")
  