Commit 8bcef62b authored by Robert Goldman's avatar Robert Goldman

Fix archive publishing bugs.

Some errors in the naming of tarballs.
Also use of what seem like non-standard "tar" options.
parent 4ead7313
...@@ -176,7 +176,7 @@ ...@@ -176,7 +176,7 @@
(defun public-path (x) (strcat *clnet-asdf-public* x)) (defun public-path (x) (strcat *clnet-asdf-public* x))
(defun publish-archive () (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" (run `(rsync "--times" "--chmod=a+rX,ug+w"
,@tarballs ,(asdf-lisp-name) (,*clnet* ":" ,(public-path "archives/"))) ,@tarballs ,(asdf-lisp-name) (,*clnet* ":" ,(public-path "archives/")))
:show t :directory (pn "build/"))) :show t :directory (pn "build/")))
...@@ -187,11 +187,11 @@ ...@@ -187,11 +187,11 @@
(defun link-archive () (defun link-archive ()
(run (format nil "ln -sf ~S ~S ; ln -sf ~S ~S ; ln -sf ~S ~S ; ln -sf ~S ~S" (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") (public-path "archives/uiop.tar.gz")
(tarname (asdf-defsystem-name)) (tarname (asdf-defsystem-name))
(public-path "archives/asdf-defsystem.tar.gz") (public-path "archives/asdf-defsystem.tar.gz")
(tarname (asdf-git-name)) (tarname (asdf-all-name))
(public-path "archives/asdf.tar.gz") (public-path "archives/asdf.tar.gz")
(asdf-lisp-name) (asdf-lisp-name)
(public-path "archives/asdf.lisp")) (public-path "archives/asdf.lisp"))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment