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 less on 'ros help'

Browse source
This commit is contained in:
SANO Masatoshi 2017-01-28 02:42:31 +09:00
parent d967a843d2
commit 777b013ec0
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/help.ros
View file

@ -36,8 +36,10 @@ exec ros -Q -m roswell -L sbcl-bin -- $0 "$@"
(defun options (stream)
(format stream "~{ ~A~%~}~%"
(sort (mapcar (lambda (x) (subseq (pathname-name x) 5))
(directory (merge-pathnames "help-*.lisp" (opt "lispdir"))))
(sort (loop for x in (directory (merge-pathnames "help-*.lisp" (opt "lispdir")))
for name = (subseq (pathname-name x) 5)
unless (find name *important-commands* :test 'equal)
collect name)
#'string<)))
(defun main (&rest argv)