diff options
Diffstat (limited to 'src/interp/sys-macros.lisp')
-rw-r--r-- | src/interp/sys-macros.lisp | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/src/interp/sys-macros.lisp b/src/interp/sys-macros.lisp index 01795fd3..d198e8f0 100644 --- a/src/interp/sys-macros.lisp +++ b/src/interp/sys-macros.lisp @@ -1209,3 +1209,16 @@ (if (STATEP ,g) (throw 'YIELD (list 'pair ,L) ,g))))) +;; +;; -*- Input/Output -*- +;; + +(defmacro |shoeConsole| (line) + `(write-line ,line *terminal-io*)) + +(defmacro |shoeInputFile| (filespec) + `(open ,filespec :direction :input :if-does-not-exist nil)) + +(defmacro |shoeread-line| (st) + `(read-line ,st nil nil)) + |