diff options
author | dos-reis <gdr@axiomatics.org> | 2008-11-17 05:59:14 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2008-11-17 05:59:14 +0000 |
commit | 61c21a03a39727337729fc6bccae0f856271a61e (patch) | |
tree | 7096bec4e7182c3782269c158b1fc00794ce4861 /src/interp/sys-macros.lisp | |
parent | 5ab5655d4467eddbcef288bde816fe111b901948 (diff) | |
download | open-axiom-61c21a03a39727337729fc6bccae0f856271a61e.tar.gz |
* lisp/core.lisp.in (|getOptionValue|): Make second argument optional.
* interp/sys-driver.boot (initializeGlobalState): Set
$compileExportsOnly.
* interp/lisplib.boot (compDefineExports): New.
* interp/define.boot (skipCategoryPackage?): New.
(compDefineCategory1): Use it.
(compDefineFunctor): Don't compile to NRLIB if interested only in
exports.
(compDefineFunctor1): Honor $compileExportsOnly.
* interp/sys-macros.lisp (|withOutputFile|): New.
* interp/sys-utility.boot (quoteForm): Likewise.
Diffstat (limited to 'src/interp/sys-macros.lisp')
-rw-r--r-- | src/interp/sys-macros.lisp | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/interp/sys-macros.lisp b/src/interp/sys-macros.lisp index b66eb7c5..1564206b 100644 --- a/src/interp/sys-macros.lisp +++ b/src/interp/sys-macros.lisp @@ -1313,5 +1313,10 @@ (make-synonym-stream '*standard-output*)))) ,cmd)) +(defmacro |withOutputFile| (stream filespec form) + `(with-open-file (,stream ,filespec :direction :output + :if-exists :supersede) + ,form)) + (defmacro |spadConstant| (dollar n) `(spadcall (svref ,dollar (the fixnum ,n)))) |