diff options
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)))) |