diff options
Diffstat (limited to 'src/interp')
| -rw-r--r-- | src/interp/lisplib.boot | 2 | ||||
| -rw-r--r-- | src/interp/nlib.lisp | 9 | ||||
| -rw-r--r-- | src/interp/sys-utility.boot | 7 |
3 files changed, 8 insertions, 10 deletions
diff --git a/src/interp/lisplib.boot b/src/interp/lisplib.boot index 9f5279b2..f408b418 100644 --- a/src/interp/lisplib.boot +++ b/src/interp/lisplib.boot @@ -466,7 +466,7 @@ initializeLisplib libName == _$ERASE(libName,'ERRORLIB,$libraryDirectory) resetErrorCount() $libFile := writeLib1(libName,'ERRORLIB,$libraryDirectory) - ADDOPTIONS('FILE,$libFile) + addCompilerOption('FILE,$libFile) mkCtorDBForm ctor == ['constructorDB,quote ctor] diff --git a/src/interp/nlib.lisp b/src/interp/nlib.lisp index 4b57238e..e94a77d9 100644 --- a/src/interp/nlib.lisp +++ b/src/interp/nlib.lisp @@ -36,15 +36,6 @@ (IMPORT-MODULE "sys-utility") (in-package "BOOT") -(defun addoptions (key value) "adds pairs to $compilerOptions" - (push (cons key value) |$compilerOptions|) - (if (equal key 'FILE) - (push - (cons 'COMPILER-OUTPUT-STREAM - (open (concat (|libDirname| value) "/" "code.lsp") - :direction :output :if-exists :supersede)) - |$compilerOptions|))) - ;; (RDEFIOSTREAM ((MODE . IO) (FILE fn ft dir))) IO is I,O,INPUT,OUTPUT (defun rdefiostream (options &optional (missing-file-error-flag t)) (let ((mode (cdr (assoc 'mode options))) 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 |