anchor.diff:                  (copy-file (system-relative-pathname c "nyxt") binary-file)
                   ;; TODO: Use iolib/os:file-permissions instead of chmod?  Too verbose?
                   (run-program (list "chmod" "+x" (native-namestring binary-file))))
  -              (flet ((copy-directory (source destination)
  +              (flet ((copy-directory (source destination &key verbose-p)
                          "Copy the content (the file tree) of SOURCE to DESTINATION."
  +                       (when verbose-p
  +                         (format *error-output* "~&;; Copy ~s/* inside ~s.~%" source destination))
                          (collect-sub*directories
                           (ensure-directory-pathname source)
                           (constantly t)
  
positive.code:                                 (directory-files subdirectory))))))
                  (handler-case
                      (progn
                        (dolist (file (cons
                                       ;; Find `libnyxt' file regardless of its extension:
                                       (subpathp (first (delete-if
  
negative.code:                           (ensure-parent-exists dest)
                            (copy-file (system-relative-pathname :nyxt file)
                                       dest))))
                    (condition (c)
                      (format *error-output* "~&;; Git copy error: ~a" c)
                      (format *error-output* "~&;; Fallback to copying whole directories instead.~%")
                      (dolist (dir '("source" "libraries"))
                        (copy-directory (system-relative-pathname :nyxt dir)
                                        (merge-pathnames* dir *dest-source-dir*)
                                        :verbose-p t))))
                  (copy-file (system-source-file :nyxt) (merge-pathnames* "nyxt.asd" *dest-source-dir*))))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  