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

tweak features when dumped.

Browse source
This commit is contained in:
SANO Masatoshi 2018-11-11 11:14:58 +09:00
parent 3c55e8c5bb
commit 5da844872a
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/dump.ros
View file

@ -127,8 +127,7 @@ exec ros -- $0 "$@"
(let ((module (module "dump" (or
#+ccl "ccl"
#+cmucl "cmucl"
(remove #\Space (string-downcase (lisp-implementation-type))))))
(*features* (cons :roswell.dump *features*)))
(remove #\Space (string-downcase (lisp-implementation-type)))))))
(cond
((and module r)
(multiple-value-bind (args *predump*)
@ -137,7 +136,10 @@ exec ros -- $0 "$@"
(subcmd (find mode (funcall module :query *subcmds*)
:test 'equal
:key 'string-downcase))
(args (rest args)))
(args (rest args))
(*features* (cons (let (*read-eval*)
(read-from-string (format nil ":roswell.dump.~A" mode)))
*features*)))
(if subcmd
(funcall subcmd module args)
(format *error-output* "'~A' is not a valid command for '~A' subcommand for ~A ~%"