diff options
Diffstat (limited to 'src/interp/sys-utility.boot')
-rw-r--r-- | src/interp/sys-utility.boot | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/interp/sys-utility.boot b/src/interp/sys-utility.boot index 189ff955..d3a8c18d 100644 --- a/src/interp/sys-utility.boot +++ b/src/interp/sys-utility.boot @@ -420,3 +420,10 @@ structure %Libstream == makeLibstream(m,p,idx==nil,st==nil) == mk%Libstream(m,p,idx,st) + +addCompilerOption(key,val) == + $compilerOptions := [[key,:val],:$compilerOptions] + key is 'FILE => + st := outputTextFile strconc(libDirname val,'"/code.lsp") + $compilerOptions := [['COMPILER_-OUTPUT_-STREAM,:st],:$compilerOptions] + nil |