diff --git a/ansi-tests/make-broadcast-stream.lsp b/ansi-tests/make-broadcast-stream.lsp index 73767ead622bd485fd3e848e96b68ea7f27e81e6..eca5ff6a0b9e82fde7b3e7add3a800e4634f7b58 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))