From d310a5d012161a4515d5c9e96e992fc6977d8f6b Mon Sep 17 00:00:00 2001 From: dos-reis Date: Mon, 28 May 2012 18:29:20 +0000 Subject: * 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. --- src/lisp/core.lisp.in | 2 ++ 1 file changed, 2 insertions(+) (limited to 'src/lisp') 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*)) -- cgit v1.2.3