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/ChangeLog         |  5 +++++
 src/interp/msgdb.boot |  4 ++--
 src/lisp/core.lisp.in | 11 +++++++++--
 3 files changed, 16 insertions(+), 4 deletions(-)

(limited to 'src')

diff --git a/src/ChangeLog b/src/ChangeLog
index 9f2b546e..99a1cb6a 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2011-06-06  Gabriel Dos Reis  <gdr@cs.tamu.edu>
+
+	* lisp/core.lisp.in (%escapeSequenceAverseHost?): New.
+	* interp/msgdb.boot (brightPrint0): Use it.
+
 2011-06-05  Gabriel Dos Reis  <gdr@ce.tamu.edu>
 
 	* utils/command.cc (default_driver): New.
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)
diff --git a/src/lisp/core.lisp.in b/src/lisp/core.lisp.in
index 303ad074..87155ec3 100644
--- a/src/lisp/core.lisp.in
+++ b/src/lisp/core.lisp.in
@@ -145,6 +145,7 @@
 	   "%basicSystemIsComplete"
 	   "%algebraSystemIsComplete"
 	   "%nothing"
+	   "%escapeSequenceAverseHost?"
 	   
 	   "$hostPlatform"
 	   "$buildPlatform"
@@ -350,8 +351,7 @@
 	   (defconstant |$EnableLispProfiling| @oa_enable_profiling@))
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
-	   (when |$EnableLispProfiling|
-	     (progn #+sbcl (require :sb-sprof))))
+	   (progn #+sbcl (require :sb-sprof)))
 
 ;; Return true if the full OpenAxiom algebra system is completed
 ;; built.
@@ -421,6 +421,13 @@
   (cond (|$useDynamicLink| "@SHREXT@")
 	(t ".@LIBEXT@")))
 
+;; Return true if the host is escape sequence averse.  This is notably
+;; true on windows-based builds (win32 or win64)
+(defun |%escapeSequenceAverseHost?| ()
+  (or (member :win32 *features*)
+      (member :windows *features*)))
+
+
 (defconstant |$EditorProgram| "@oa_editor@")
 
 ;; Token expression to indicate absence of value or bottom value.
-- 
cgit v1.2.3