Added getenv TERM for ccl and default for non ccl or clisp.

Pascal J. Bourguignon [2020-03-01 19:29]
Added getenv TERM for ccl and default for non ccl or clisp.
Filename
common-lisp/cesarum/activity.lisp
diff --git a/common-lisp/cesarum/activity.lisp b/common-lisp/cesarum/activity.lisp
index c5aaf86..9259c92 100644
--- a/common-lisp/cesarum/activity.lisp
+++ b/common-lisp/cesarum/activity.lisp
@@ -375,7 +375,9 @@ and restart the scheduling then.")

 #+debug-com.informatimago.common-lisp.cesarum.activity
 (defvar *in-terminal-p*
-  (and (string/= "dumb" (ext:getenv "TERM"))
+  (and (string/= "dumb" #+clisp (ext:getenv "TERM")
+                        #+ccl (ccl:getenv "TERM")
+                        #-(or clisp ccl) "xterm")
        (intersection
         (ensure-list
          (com.informatimago.common-lisp.cesarum.stream:bare-stream
ViewGit