From 95bd34e88399e602e10a733f7e8b1dd5474b5c5f Mon Sep 17 00:00:00 2001
From: "Tarn W. Burton" <twburton@gmail.com>
Date: Sat, 30 Dec 2023 16:06:18 -0500
Subject: [PATCH] Add interactive-stream-p detection for CMUCL

---
 code/packages.lisp | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/code/packages.lisp b/code/packages.lisp
index a5c2938..a5ba17e 100644
--- 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