From 10faa8ddaf2e96c1c2c06eac5f30b22336bf36bc Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Sat, 28 Jun 2008 18:15:40 +0000
Subject: [PATCH] Make the subtypep database consistent with the gray stream
 classes

---
 src/lsp/predlib.lsp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/lsp/predlib.lsp b/src/lsp/predlib.lsp
index 872eceb05..d8c7b9e9d 100644
--- a/src/lsp/predlib.lsp
+++ b/src/lsp/predlib.lsp
@@ -1089,7 +1089,8 @@ if not possible."
 	       (SYNONYM-STREAM)
  	       (TWO-WAY-STREAM)
 	       (STREAM (OR BROADCAST-STREAM CONCATENATED-STREAM ECHO-STREAM
-			   FILE-STREAM STRING-STREAM SYNONYM-STREAM TWO-WAY-STREAM))
+			   FILE-STREAM STRING-STREAM SYNONYM-STREAM TWO-WAY-STREAM
+			   #+clos-streams GRAY:FUNDAMENTAL-STREAM))
 
 	       (READTABLE)
 	       #+threads (MP::PROCESS)