diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-04-28 18:26:46 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-04-28 18:26:46 +0000 |
| commit | b90ec55ea2329e5ffeda7f6cbd807f596c9cc444 (patch) | |
| tree | 0047eda31d3ac03cc7f4be9dcfcc8e959959903a /src/lisp | |
| parent | 9c53b933216af4ae6c7233384ace756572dcb597 (diff) | |
| download | open-axiom-b90ec55ea2329e5ffeda7f6cbd807f596c9cc444.tar.gz | |
more cleanup
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 -*- ;; |