diff options
author | dos-reis <gdr@axiomatics.org> | 2012-05-07 20:17:48 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2012-05-07 20:17:48 +0000 |
commit | d521a65ba712bf80f5bb6677e04d6a5ab36a42a6 (patch) | |
tree | 526828111f15df0a4bab047326fda317ae333a87 /src/interp/parsing.lisp | |
parent | 171ca9c9ca0ae4c58c5c25c51122c662b0cafe02 (diff) | |
download | open-axiom-d521a65ba712bf80f5bb6677e04d6a5ab36a42a6.tar.gz |
* interp/vmlisp.lisp (ioTerminal?): Rename form IS-CONSOLE.
* interp/bootlex.lisp: Adjust.
* interp/diagnostics.boot: Likewise.
* interp/macros.lisp: Likewise.
* interp/msgdb.boot: Likewise.
* interp/parsing.lisp: Likewise.
* interp/preparse.lisp: Likewise.
* interp/server.boot: Likewise.
Diffstat (limited to 'src/interp/parsing.lisp')
-rw-r--r-- | src/interp/parsing.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/parsing.lisp b/src/interp/parsing.lisp index 5f52da48..66b4598e 100644 --- a/src/interp/parsing.lisp +++ b/src/interp/parsing.lisp @@ -86,7 +86,7 @@ :adjustable t :initial-contents s)))) (defun get-a-line (stream) - (if (and (IS-CONSOLE stream) (not |$leanMode|)) + (if (and (|ioTerminal?| stream) (not |$leanMode|)) (|printPrompt|)) (let ((ll (read-a-line stream))) (if (stringp ll) (make-string-adjustable ll) ll))) |