From 4cb56790e13ad56cf6926d33d6595023a70ef247 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Tue, 25 Nov 2014 23:43:43 +0000
Subject: Replace FILE-POSITION with builtin getFileCursor and setFileCursor.

---
 src/lisp/core.lisp.in | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'src/lisp')

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))
-- 
cgit v1.2.3