Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
26 lines (21 sloc) 785 Bytes
;;;; upstream-bzr.lisp
(in-package #:quicklisp-controller)
(defclass bzr-source (vcs-source)
()
(:default-initargs
:command "bzr"
:checkout-subcommand "branch"
:update-subcommand "merge"))
(defmethod source-host :around ((source bzr-source))
(if (string= "lp:" (location source) :end2 3)
"launchpad.net"
(call-next-method)))
(defmethod make-release-tarball ((source bzr-source) output-file)
(let* ((prefix (release-tarball-prefix source))
(tar-name (string-right-trim "/" prefix))
(checkout (ensure-source-cache source)))
(in-temporary-directory prefix
(let ((tempgz (make-pathname :name tar-name :type "tgz")))
(with-posix-cwd checkout
(run "bzr" "export" tempgz)
(copy tempgz output-file))))))