Version of bin/asdf-builder corresponding to 3.1.6 tarball

             destination))

    (ensure-directories-exist destination)

    (run `(cp "-pHux" --parents ,@files ,destination) :directory base :show t)

    (run `(tar "zcfC" ,tarball ,*build-dir*

    (run `(tar "zcf" ,tarball "-C" ,*build-dir*

               ;; TODO: Have better autodetection for which tar is being used,

               ;; and fall back to no option if not recognized.

               #+linux (* :owner root :group root) ;; assume GNU tar on Linux.

               #+darwin (* :uid 0 :gid 0) ;; assume BSD tar on Darwin.

               (,name /)) :show t)

    (delete-directory-tree destination :validate #'(lambda (x) (equal x destination)))

    (values)))

(defun public-path (x) (strcat *clnet-asdf-public* x))

(defun publish-archive ()

  (let ((tarballs (mapcar 'tarname (list (driver-name) (asdf-defsystem-name) (asdf-git-name)))))

  (let ((tarballs (mapcar 'tarname (list (uiop-name) (asdf-defsystem-name) (asdf-all-name)))))

    (run `(rsync "--times" "--chmod=a+rX,ug+w"

                  ,@tarballs ,(asdf-lisp-name) (,*clnet* ":" ,(public-path "archives/")))

          :show t :directory (pn "build/")))

(defun link-archive ()

  (run (format nil "ln -sf ~S ~S ; ln -sf ~S ~S ; ln -sf ~S ~S ; ln -sf ~S ~S"

               (tarname (driver-name))

               (tarname (uiop-name))

               (public-path "archives/uiop.tar.gz")

               (tarname (asdf-defsystem-name))

               (public-path "archives/asdf-defsystem.tar.gz")

               (tarname (asdf-git-name))

               (tarname (asdf-all-name))

               (public-path "archives/asdf.tar.gz")

               (asdf-lisp-name)

               (public-path "archives/asdf.lisp"))