diff options
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. |