(when-let ((dir (vc-pijul-root file)))

  (when-let* ((dir (vc-pijul-root file)))

  (when-let ((dir (vc-pijul-root file)))

  (when-let* ((dir (vc-pijul-root file)))

  (when-let ((dir (vc-pijul-root file)))

  (when-let* ((dir (vc-pijul-root file)))

(defvar vc-pijul-remotes-history)
(defun vc-pijul-Clone (remote directory &optional state)
  "Attempt to clone REMOTE repository into DIRECTORY at STATE."
  (interactive
   (list (read-string "Remote: " nil 'vc-pijul-remotes-history)
         (expand-file-name
          (read-directory-name "Directory to clone: "))
         "P"))
  (let ((state (when state (read-string "State: "))))
    (find-file (vc-clone remote 'Pijul directory state))))

        (when-let ((file (match-string 2))
                   (state (match-string 1))
                   (file-state (vc-pijul--file-state root
                                 file (vc-pijul--state-code state))))

        (when-let* ((file (match-string 2))
                    (state (match-string 1))
                    (file-state (vc-pijul--file-state root
                                  file (vc-pijul--state-code state))))

  (if-let ((headers (gethash rev vc-pijul-headers-cache)))

  (if-let* ((headers (gethash rev vc-pijul-headers-cache)))

          (when-let ((key (match-string 1)))

          (when-let* ((key (match-string 1)))

- vc-pijul-Clone

- vc-clone