mirror of
https://github.com/roswell/roswell.git
synced 2026-09-10 07:16:17 -04:00
31 lines
953 B
Common Lisp
31 lines
953 B
Common Lisp
#!/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:
|