From ca55e0ac6ae2348f1a090ddbee9493d3876b9f2b Mon Sep 17 00:00:00 2001
From: pfdietz <pfdietz@localhost>
Date: Tue, 26 Oct 2004 00:45:11 +0000
Subject: [PATCH] Removed dubious assertion in make-broadcast-stream.1

---
 ansi-tests/make-broadcast-stream.lsp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ansi-tests/make-broadcast-stream.lsp b/ansi-tests/make-broadcast-stream.lsp
index 73767ead..eca5ff6a 100644
--- a/ansi-tests/make-broadcast-stream.lsp
+++ b/ansi-tests/make-broadcast-stream.lsp
@@ -13,7 +13,7 @@
     ;; (assert (not (input-stream-p s)))
     (assert (open-stream-p s))
     (assert (streamp s))
-    (assert (eq (stream-element-type s) t))
+    ;; (assert (eq (stream-element-type s) t))
     (values
      (notnot (typep s 'stream))
      (notnot (typep s 'broadcast-stream))
-- 
GitLab