diff options
| author | dos-reis <gdr@axiomatics.org> | 2012-05-28 18:29:20 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2012-05-28 18:29:20 +0000 |
| commit | d310a5d012161a4515d5c9e96e992fc6977d8f6b (patch) | |
| tree | 6436a7ac2ed1a978da9d2b2b055a6ea2cb9d916e /src/lisp | |
| parent | 62a125276f6dc3acedaf11af209b7e4c02306128 (diff) | |
| download | open-axiom-d310a5d012161a4515d5c9e96e992fc6977d8f6b.tar.gz | |
* interp/lexing.boot: Use makeToken directly.
(tokenInstall): Remove.
(getSpadIntegerToken): Lose parameter. Adjust callers.
(getNumberToken): Likewise.
(getArgumentDesignator): Likewise.
(getToken): Likewise.
(getSpadString): Likewise.
(getSpecial): Likewise.
(getGliph): Likewise.
(getIdentifier): Likewise.
* lisp/core.lisp.in ($stdio): New.
* boot/includer.boot: Use it.
* boot/translator.boot: Likewise.
* boot/utility.boot (stringPrefix?): New.
Diffstat (limited to 'src/lisp')
| -rw-r--r-- | src/lisp/core.lisp.in | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/lisp/core.lisp.in b/src/lisp/core.lisp.in index 4931c386..d869cbf4 100644 --- a/src/lisp/core.lisp.in +++ b/src/lisp/core.lisp.in @@ -99,6 +99,7 @@ ;; IO "$stdin" "$stdout" + "$stdio" "$InputStream" "$OutputStream" "$ErrorStream" @@ -531,6 +532,7 @@ (defparameter |$stdout| *standard-output*) (defparameter |$stdin| *standard-input*) +(defparameter |$stdio| *terminal-io*) (defparameter |$InputStream| (make-synonym-stream '*standard-input*)) (defparameter |$OutputStream| (make-synonym-stream '*standard-output*)) |