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

make 'ros build' a bit verbose when with -v.

Browse source
This commit is contained in:
SANO Masatoshi 2017-09-05 21:24:42 +09:00
parent 4dea24d3f8
commit 9993015b04
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/build-ros.lisp
View file

@ -20,7 +20,8 @@
for line = (read-line in)
when (ignore-errors (string= line "exec" :end1 4))
do (setf opts (parse-argv line))))
(roswell:roswell `(,opts "-L" ,(or (ros:opt "*lisp")
(ros:opt "default.lisp"))
"dump" ,@(rest argv) "executable" ,(first argv))
(roswell:roswell `(,@(when (roswell:verbose) '("-v"))
,opts "-L" ,(or (ros:opt "*lisp")
(ros:opt "default.lisp"))
"dump" ,@(rest argv) "executable" ,(first argv))
:interactive nil)))