* lisp/core.lisp.in (%escapeSequenceAverseHost?): New.

	* interp/msgdb.boot (brightPrint0): Use it.

1 files changed, 9 insertions, 2 deletions

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.