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

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

parent 7c7a6605
Loading
Loading
Loading
Loading
+2 −2
Original line number Diff line number Diff line
@@ -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/