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

fix message when just `ros dump`.

Browse source
This commit is contained in:
SANO Masatoshi 2017-05-07 16:17:31 +09:00
parent 70663c5844
commit 6a41b99f99
1 changed files with 14 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
lisp/dump.ros
View file

@ -91,14 +91,18 @@ exec ros -- $0 "$@"
#+ccl "ccl"
#+cmucl "cmucl"
(remove #\Space (string-downcase (lisp-implementation-type)))))))
(if (and r module)
(let ((func (find (first r) (funcall module :query *subcmds*)
:test 'equal
:key 'string-downcase)))
(if func
(funcall func module (rest r))
(format *error-output* "'~A' is not a valid command for '~A' subcommand for ~A ~%"
(first r) (pathname-name *load-pathname*) (lisp-implementation-type))))
(format *error-output* "'~A' is not supported for ~A ~%"
(pathname-name *load-pathname*) (lisp-implementation-type)))))
(cond
((and module r)
(let ((func (find (first r) (funcall module :query *subcmds*)
:test 'equal
:key 'string-downcase)))
(if func
(funcall func module (rest r))
(format *error-output* "'~A' is not a valid command for '~A' subcommand for ~A ~%"
(first r) (pathname-name *load-pathname*) (lisp-implementation-type)))))
(module
(format *error-output* "Possible subcmd~%~%~{~(~A~)~%~}" (funcall module :query *subcmds*)))
(t
(format *error-output* "'~A' is not supported for ~A ~%"
(pathname-name *load-pathname*) (lisp-implementation-type))))))
;;; vim: set ft=lisp lisp: