From d521a65ba712bf80f5bb6677e04d6a5ab36a42a6 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Mon, 7 May 2012 20:17:48 +0000 Subject: * 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. --- src/interp/parsing.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/interp/parsing.lisp') 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))) -- cgit v1.2.3