From a4f2d884469f6d613cf1597e3dd1c91b39ca6ace Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Mon, 6 Jun 2011 11:46:58 +0000
Subject: 	* lisp/core.lisp.in (%escapeSequenceAverseHost?): New. 	*
 interp/msgdb.boot (brightPrint0): Use it.

---
 src/interp/msgdb.boot | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/interp')

diff --git a/src/interp/msgdb.boot b/src/interp/msgdb.boot
index c52bbf60..61d4dcb3 100644
--- a/src/interp/msgdb.boot
+++ b/src/interp/msgdb.boot
@@ -604,13 +604,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 %hasFeature KEYWORD::WIN32
+    not IS_-CONSOLE 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 %hasFeature KEYWORD::WIN32
+    not IS_-CONSOLE out or %escapeSequenceAverseHost?()
       or stdStreamIsTerminal(1) = 0 => sayString('" ",out)
     not $highlightAllowed => sayString('" ",out)
     sayString($highlightFontOff,out)
-- 
cgit v1.2.3