#!/bin/sh
#|-*- mode:lisp -*-|#
#|[WIP]Quicklisp dist.
exec ros -Q -m roswell -N roswell -- $0 "$@"
|#
(progn
  (roswell:include "util-main")
  (roswell:include "util-config")
  (ignore-errors
     #+quicklisp(ql:quickload "gh-dist" :silent t)
     (uiop:symbol-call :gh-dist :setup))
  (mapc #'load (directory (merge-pathnames "dist-*.lisp" (ros:opt "lispdir"))))
  )

(defpackage :ros.script.dist.3714094546
  (:use :cl :roswell.util.main))
(in-package :ros.script.dist.3714094546)

(defun main (&rest args)
  (let* ((env (roswell.util.config:env))
         (ql-setup:*quicklisp-home*
          (if env
              (merge-pathnames (format nil "env/~A/lisp/quicklisp/" env)
                               (roswell.util:homedir))
              ql-setup:*quicklisp-home*)))
    (module-main args
                 :default "default"
                 :usage "default"
                 :error-output (make-broadcast-stream))))
;;; vim: set ft=lisp lisp:
