diff options
author | dos-reis <gdr@axiomatics.org> | 2014-11-25 23:43:43 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2014-11-25 23:43:43 +0000 |
commit | 4cb56790e13ad56cf6926d33d6595023a70ef247 (patch) | |
tree | 28902a1a87f45ed1b19415ee58175400ad7d640c /src/lisp | |
parent | ec6a4e8f924d972e02803e8a963123a0c1cc36d2 (diff) | |
download | open-axiom-4cb56790e13ad56cf6926d33d6595023a70ef247.tar.gz |
Replace FILE-POSITION with builtin getFileCursor and setFileCursor.
Diffstat (limited to 'src/lisp')
-rw-r--r-- | src/lisp/core.lisp.in | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/lisp/core.lisp.in b/src/lisp/core.lisp.in index dece602f..61877e29 100644 --- a/src/lisp/core.lisp.in +++ b/src/lisp/core.lisp.in @@ -113,6 +113,8 @@ "closeFile" "closeStream" "eof?" + "getFileCursor" + "setFileCursor" "forkStreamByName" "prettyPrint" "readLine" @@ -608,6 +610,12 @@ (defmacro |eof?| (s) `(null (peek-char nil ,s nil nil nil))) +(defmacro |getFileCursor| (s) + `(file-position ,s)) + +(defmacro |setFileCursor| (s n) + `(file-position ,s ,n)) + ;; Make a new stream object, duplicate of the denotation of argument. (defmacro |forkStreamByName| (s) `(make-synonym-stream ,s)) |