diff options
author | dos-reis <gdr@axiomatics.org> | 2011-06-06 11:46:58 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-06-06 11:46:58 +0000 |
commit | a4f2d884469f6d613cf1597e3dd1c91b39ca6ace (patch) | |
tree | c7e8cac24a9b20ad7ea5efdbf15da1966a960834 /src/lisp | |
parent | 08694a36b0b686351c8a2dbd2746bc78ea0dc221 (diff) | |
download | open-axiom-a4f2d884469f6d613cf1597e3dd1c91b39ca6ace.tar.gz |
* lisp/core.lisp.in (%escapeSequenceAverseHost?): New.
* interp/msgdb.boot (brightPrint0): Use it.
Diffstat (limited to 'src/lisp')
-rw-r--r-- | src/lisp/core.lisp.in | 11 |
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. |