Add interactive-stream-p detection for CMUCL

yitzchak · Dec 30, 2023 · 95bd34e · 95bd34e
1 parent 972a12b
commit 95bd34e
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/code/packages.lisp b/code/packages.lisp
@@ -108,6 +108,10 @@
   #+(or ccl clasp ecl mezzano mkcl sbcl sicl)
   (pushnew :gray-streams-interactive *features*)
 
+  #+cmucl
+  (when  (typep (fdefinition 'cl:interactive-stream-p) 'generic-function)
+    (pushnew :gray-streams-interactive *features*))
+
   #+(or abcl ecl)
   (when (find-symbol (string '#:stream-line-length)
                      #+abcl '#:gray-streams