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

edit 'ros help run'

Browse source
This commit is contained in:
SANO Masatoshi 2017-01-28 23:05:25 +09:00
parent a403b46a48
commit 84ff091664
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/help-run.lisp
View file

@ -6,6 +6,6 @@
(defun run (argv)
(declare (ignorable argv))
(let ((s *error-output*))
(format s "Usage: ~A [OPTIONS] run [OPTIONS] [-- implementation-native-options...]~%~%" (opt "wargv0"))
(format s "Usage: ~A [OPTIONS] run [OPTIONS] [-- implementation-native-options...]~%~%" (pathname-name (opt "wargv0")))
(let ((*options* (nthcdr 4 *options*))) ;; fix me
(options nil))))