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