common-lisp/roswell.roswell
1
0
Fork 0
mirror of https://github.com/roswell/roswell.git synced 2026-09-10 07:16:17 -04:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

change how 'ros init' choose module.

Browse source
This commit is contained in:
SANO Masatoshi 2017-06-08 02:51:53 +09:00
parent f1421c66c7
commit b849503734
1 changed files with 6 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lisp/init.ros
View file

@ -13,12 +13,10 @@ exec ros -Q -m roswell -L sbcl-bin -- $0 "$@"
(in-package :ros.script.init.3672012201)
(defun main (&optional name &rest r)
(when name
(unless r
(setq r (list name)
name "default"))
(let ((func (module "init" name)))
(if func
(apply func name r)
(format *error-output* "not supported template ~A~%" name)))))
(if name
(let ((func (module "init" name)))
(apply (or func (module "init" "default"))
`(,name ,@(unless func (list name)) ,@r)))
;; show usage
))
;;; vim: set ft=lisp lisp: