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

show asdf version when 'ros asdf'

Browse source
This commit is contained in:
SANO Masatoshi 2017-05-18 22:53:02 +09:00
parent d20f0e6d2f
commit 49c89174e2
1 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/asdf.ros
View file

@ -80,8 +80,12 @@ exec ros -Q -m roswell -L sbcl-bin -- $0 "$@"
(format t "~A~%" i)))
(defun usage ()
(let ((s *error-output*))
(format s "Usage: ~A asdf install/use/list/delete version ~%" (opt "wargv0"))))
(let ((s *error-output*)
(asdf (config "asdf.version")))
(format s "Usage: ~A asdf install/use/list/delete version ~%" (pathname-name (opt "wargv0")))
(format s (if (zerop (length asdf))
"ASDF is not specified.~%"
"choosen version is ~S~%") asdf)))
(defun main (&optional subcmd &rest argv)
(if subcmd