Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
18 lines (14 sloc) 522 Bytes
;;;; upstream-mercurial.lisp
(in-package #:quicklisp-controller)
(defclass mercurial-source (vcs-source)
()
(:default-initargs
:command "hg"
:checkout-subcommand "clone"
:update-subcommand "pull"
:update-subcommand-arguments (list "-u")))
(defmethod make-release-tarball ((source mercurial-source) output-file)
(let ((prefix (release-tarball-prefix source))
(checkout (ensure-source-cache source)))
(with-posix-cwd checkout
(run "hg" "archive" "-t" "tgz" "-p" prefix output-file))))
Jump to Line
Something went wrong with that request. Please try again.