mirror of
https://github.com/dimitri/pgloader.git
synced 2025-08-07 14:56:59 +02:00
f30f596eca
Some path computation didn't work when trying to regression test the produced bundle. Also, the bundle building steps would use the pgloader system definition and dependencies from what's currently available in Quicklisp rather than from the local pgloader.asd being built.
31 lines
1.1 KiB
Common Lisp
31 lines
1.1 KiB
Common Lisp
;;;
|
|
;;; Script used to prepare a pgloader bundle
|
|
;;;
|
|
|
|
;; fetch a list of recent candidates with
|
|
;; (subseq (ql-dist:available-versions (ql-dist:dist "quicklisp")) 0 5)
|
|
;;
|
|
;; the 2017-06-30 QL release is broken, avoid it.
|
|
;;
|
|
(defvar *ql-dist* :latest)
|
|
|
|
(defvar *ql-dist-url-format*
|
|
"http://beta.quicklisp.org/dist/quicklisp/~a/distinfo.txt")
|
|
|
|
(let ((pkgs (append '("pgloader" "buildapp")
|
|
(getf (read-from-string
|
|
(uiop:read-file-string
|
|
(uiop:merge-pathnames* "pgloader.asd" *pwd*)))
|
|
:depends-on)))
|
|
(dist (if (or (eq :latest *ql-dist*)
|
|
(string= "latest" *ql-dist*))
|
|
(cdr
|
|
;; available-versions is an alist of (date . url), and the
|
|
;; first one is the most recent one
|
|
(first
|
|
(ql-dist:available-versions (ql-dist:dist "quicklisp"))))
|
|
(format nil *ql-dist-url-format* *ql-dist*))))
|
|
(ql-dist:install-dist dist :prompt nil :replace t)
|
|
(ql:bundle-systems pkgs :to *bundle-dir*))
|
|
(quit)
|