diff options
Diffstat (limited to 'src/lisp')
| -rw-r--r-- | src/lisp/core.lisp.in | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/src/lisp/core.lisp.in b/src/lisp/core.lisp.in index e9765261..3f34b9f8 100644 --- a/src/lisp/core.lisp.in +++ b/src/lisp/core.lisp.in @@ -81,6 +81,10 @@ "%BitVector" "%SimpleArray" + ;; IO + "inputBinaryFile" + "outputBinaryFile" + ;; compiler data structures "%Mode" "%Sig" @@ -433,6 +437,15 @@ (cond (ver (symbol-value ver)) (t -1)))) +;; -*- File IO -*- +(defun |inputBinaryFile| (f) + (open f :direction :input :element-type 'unsigned-byte + :if-does-not-exist nil)) + +(defun |outputBinaryFile| (f) + (open f :direction :output :element-type 'unsigned-byte + :if-exists :supersede)) + ;; ;; -*- OpenAxiom filesystem -*- ;; |