From 1022882a212a095ff295bc24ec582bfbb21b3d76 Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@benasque2.(none)>
Date: Sat, 28 Jun 2008 20:09:04 +0200
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)