diff options
Diffstat (limited to 'src/interp/sys-utility.boot')
| -rw-r--r-- | src/interp/sys-utility.boot | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/src/interp/sys-utility.boot b/src/interp/sys-utility.boot index e4757eca..fa29d102 100644 --- a/src/interp/sys-utility.boot +++ b/src/interp/sys-utility.boot @@ -400,19 +400,12 @@ structure %Libstream == libDirname == (.dir) libIndexTable == (.tbl) libIndexStream == (.idxst) - libCodeStream == (.cdstr) + libCodeStream == (.cdst) libInsnStream == (.insnst) makeLibstream(m,p,idx==nil,st==nil) == mk%Libstream(m,p,idx,st,nil,nil) -addCompilerOption(key,val) == - $compilerOptions := [[key,:val],:$compilerOptions] - key is 'FILE => - st := outputTextFile strconc(libDirname val,'"/code.lsp") - $compilerOptions := [['COMPILER_-OUTPUT_-STREAM,:st],:$compilerOptions] - nil - makeFilename(filearg,filetype==nil) == if ident? filetype then filetype := symbolName filetype |