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/msgdb.boot | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/interp/msgdb.boot') diff --git a/src/interp/msgdb.boot b/src/interp/msgdb.boot index 149ea132..6e46b830 100644 --- a/src/interp/msgdb.boot +++ b/src/interp/msgdb.boot @@ -1,6 +1,6 @@ -- Copyright (c) 1991-2002, The Numerical Algorithms Group Ltd. -- All rights reserved. --- Copyright (C) 2007-2011, Gabriel Dos Reis. +-- Copyright (C) 2007-2012, Gabriel Dos Reis. -- All rights reserved. -- -- Redistribution and use in source and binary forms, with or without @@ -626,13 +626,13 @@ brightPrint0(x,out == $OutputStream) == x = '"%b" => -- FIXME: this kludge is GCL-specific. Find way to support -- highlighting on all supported Lisp. - not IS_-CONSOLE out or %escapeSequenceAverseHost?() + not ioTerminal? out or %escapeSequenceAverseHost?() or stdStreamIsTerminal(1) = 0 => sayString('" ",out) not $highlightAllowed => sayString('" ",out) sayString($highlightFontOn,out) k := blankIndicator x => BLANKS(k,out) x = '"%d" => - not IS_-CONSOLE out or %escapeSequenceAverseHost?() + not ioTerminal? out or %escapeSequenceAverseHost?() or stdStreamIsTerminal(1) = 0 => sayString('" ",out) not $highlightAllowed => sayString('" ",out) sayString($highlightFontOff,out) -- cgit v1.2.3