diff options
| author | dos-reis <gdr@axiomatics.org> | 2012-05-11 20:39:20 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2012-05-11 20:39:20 +0000 |
| commit | 90e40ff963ffdca1272e393e2458d04040976096 (patch) | |
| tree | 3e7614a99dbee9d384e082957ae75a44a1ce109f /src/lisp | |
| parent | 0efd5f26be8d38a5eda78f9aa264c06015ee9e83 (diff) | |
| download | open-axiom-90e40ff963ffdca1272e393e2458d04040976096.tar.gz | |
* interp/preparse.lisp (PARSEPRINT): Move to spad-parser.boot.
Rename as parsePrint.
Diffstat (limited to 'src/lisp')
| -rw-r--r-- | src/lisp/core.lisp.in | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/lisp/core.lisp.in b/src/lisp/core.lisp.in index ac989be8..d793da9a 100644 --- a/src/lisp/core.lisp.in +++ b/src/lisp/core.lisp.in @@ -97,6 +97,8 @@ "deref" ;; IO + "$stdin" + "$stdout" "$InputStream" "$OutputStream" "$ErrorStream" @@ -114,6 +116,7 @@ "readIntegerIfCan" "formatToString" "formatToStream" + "formatToStdout" ;; compiler data structures "%Mode" @@ -526,6 +529,9 @@ ;; -*- File IO -*- +(defconstant |$stdout| *standard-output*) +(defconstant |$stdin| *standard-input*) + (defparameter |$InputStream| (make-synonym-stream '*standard-input*)) (defparameter |$OutputStream| (make-synonym-stream '*standard-output*)) (defparameter |$ErrorStream| (make-synonym-stream '*standard-output*)) @@ -592,6 +598,9 @@ (defmacro |formatToStream| (&rest x) `(format ,@x)) +(defmacro |formatToStdout| (&rest args) + `(format |$stdout| ,@args)) + ;; ;; -*- OpenAxiom filesystem -*- ;; |