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

Use "common-lisp.net" instead of "clnet" abbreviation.

parent 7c7a6605
......@@ -151,12 +151,12 @@
(make-asdf-lisp)
(values))
(defvar *clnet* "clnet")
(defvar *clnet* "common-lisp.net")
(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 common-lisp.net:/project/asdf/public_html/archives/"
/build-dir/ tarballs (asdf-lisp-name)) :show t))
(format t "~&To download the tarballs, point your browser at:~%
http://common-lisp.net/project/asdf/archives/
......
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