Commit 13c300aa authored by Robert P. Goldman's avatar Robert P. Goldman
Browse files

Use "" instead of "clnet" abbreviation.

parent 7c7a6605
......@@ -151,12 +151,12 @@
(defvar *clnet* "clnet")
(defvar *clnet* "")
(defvar *clnet-asdf-public* "/project/asdf/public_html/")
(defun publish-archive ()
(let ((tarballs (mapcar 'tarname (list (driver-name) (asdf-defsystem-name) (asdf-git-name)))))
(run (format nil "cd ~S && rsync ~{~S ~}~S clnet:/project/asdf/public_html/archives/"
(run (format nil "cd ~S && rsync ~{~S ~}~S"
/build-dir/ tarballs (asdf-lisp-name)) :show t))
(format t "~&To download the tarballs, point your browser at:~%
Supports Markdown
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