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

support 'ros dynamic-space-size=4gb build test.ros' to work.

Browse source
This commit is contained in:
SANO Masatoshi 2022-04-02 22:41:12 +09:00
parent 1c8e46de17
commit 73b5b2a460
1 changed files with 12 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
lisp/build-ros.lisp
View file

@ -27,10 +27,16 @@
(loop repeat 4
for line = (read-line in)
when (ignore-errors (string= line "exec" :end1 4))
do (setf opts (parse-argv line))))
(roswell:roswell `(,@(when (roswell:verbose) '("-v"))
,@impl-argv
,opts "-L" ,(or (ros:opt "*lisp")
(ros:opt "default.lisp"))
do (setf opts (parse-argv line))))
(let ((impl (or (ros:opt "*lisp")
(ros:opt "default.lisp"))))
(roswell:roswell `(,@(when (roswell:verbose) '("-v"))
,@impl-argv
,@(cond ((find impl '("sbcl" "sbcl-bin" "sbcl32" "sbcl-head") :test 'equal)
(append (if (ros:opt "dynamic-space-size")
(list (format nil "dynamic-space-size=~A" (ros:opt "dynamic-space-size"))))
(if (ros:opt "control-stack-size")
(list (format nil "control-stack-size=~A" (ros:opt "control-stack-size")))))))
,opts "-L" ,impl
"dump" ,@dump-argv "executable" ,(first argv))
:interactive nil)))
:interactive nil))))