Loading bin/asdf-builder +2 −2 Original line number Diff line number Diff line Loading @@ -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/ Loading Loading
bin/asdf-builder +2 −2 Original line number Diff line number Diff line Loading @@ -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/ Loading