mirror of
https://github.com/roswell/roswell.git
synced 2026-09-10 07:16:17 -04:00
27 lines
718 B
Common Lisp
27 lines
718 B
Common Lisp
#!/bin/sh
|
|
#|-*- mode:lisp -*-|#
|
|
#|
|
|
exec ros +R +Q +A -m roswell -N roswell -- $0 "$@"
|
|
|#
|
|
(progn ;;init forms
|
|
(ros:ensure-asdf)
|
|
#+quicklisp(ql:quickload '() :silent t)
|
|
(roswell:include '("util-main" "system"))
|
|
)
|
|
|
|
(defpackage :ros.script.client.3837302398
|
|
(:use :cl :roswell.util :roswell.util.main))
|
|
(in-package :ros.script.client.3837302398)
|
|
|
|
(defmacro preload-client-subsystems ()
|
|
`(progn ,@(loop for s in (directory (merge-pathnames "client-*.lisp" (ros:opt "lispdir")))
|
|
collect `(system ,(pathname-name s)))))
|
|
#+nil(preload-client-subsystems)
|
|
|
|
(defun main (&rest argv)
|
|
(module-main argv
|
|
:default "default"
|
|
:usage "default")
|
|
)
|
|
;;; vim: set ft=lisp lisp:
|