From 239f329ee61842f96985fcdaefc704d5a59d3e84 Mon Sep 17 00:00:00 2001
From: "Tarn W. Burton" <twburton@gmail.com>
Date: Thu, 2 Nov 2023 13:57:02 -0400
Subject: [PATCH] Add gray-streams module to avoid use of redefine-cl-functions

---
 src/clos/streams.lsp | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/src/clos/streams.lsp b/src/clos/streams.lsp
index 3349ef17e..530f98fa7 100644
--- a/src/clos/streams.lsp
+++ b/src/clos/streams.lsp
@@ -822,6 +822,15 @@ them so."
                             'gray:stream-file-position
                             gray-package)
     (si::package-lock "COMMON-LISP" x)
+    (provide '#:gray-streams)
     nil))
 
+(pushnew :gray-streams-module *features*)
+
+(pushnew #'(lambda (module)
+             (when (string-equal module '#:gray-streams)
+               (redefine-cl-functions)
+               t))
+         sys:*module-provider-functions*)
+
 (setf clos::*clos-booted* t)