diff options
| author | dos-reis <gdr@axiomatics.org> | 2014-11-20 14:08:30 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2014-11-20 14:08:30 +0000 |
| commit | f4f36ca38155309071be1bf845aed0029e29fd0f (patch) | |
| tree | 4373a0657805d42b078c139a176235800f0716aa /src/lisp | |
| parent | 6eb6cb046be4895a71869d26e9bb0baa8b46772f (diff) | |
| download | open-axiom-f4f36ca38155309071be1bf845aed0029e29fd0f.tar.gz | |
Introduce forkStreamByName.
Diffstat (limited to 'src/lisp')
| -rw-r--r-- | src/lisp/core.lisp.in | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/lisp/core.lisp.in b/src/lisp/core.lisp.in index 025791f2..dece602f 100644 --- a/src/lisp/core.lisp.in +++ b/src/lisp/core.lisp.in @@ -113,6 +113,7 @@ "closeFile" "closeStream" "eof?" + "forkStreamByName" "prettyPrint" "readLine" "readExpr" @@ -607,6 +608,10 @@ (defmacro |eof?| (s) `(null (peek-char nil ,s nil nil nil))) +;; Make a new stream object, duplicate of the denotation of argument. +(defmacro |forkStreamByName| (s) + `(make-synonym-stream ,s)) + ;; Read a line from the input text file. Quietly return ;; %nothing at end of file. (defmacro |readLine| (f) |