;;;
;;; 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)