Skip to content
Snippets Groups Projects
Commit ca55e0ac authored by pfdietz's avatar pfdietz
Browse files

Removed dubious assertion in make-broadcast-stream.1

parent 055adda2
No related branches found
No related tags found
No related merge requests found
...@@ -13,7 +13,7 @@ ...@@ -13,7 +13,7 @@
;; (assert (not (input-stream-p s))) ;; (assert (not (input-stream-p s)))
(assert (open-stream-p s)) (assert (open-stream-p s))
(assert (streamp s)) (assert (streamp s))
(assert (eq (stream-element-type s) t)) ;; (assert (eq (stream-element-type s) t))
(values (values
(notnot (typep s 'stream)) (notnot (typep s 'stream))
(notnot (typep s 'broadcast-stream)) (notnot (typep s 'broadcast-stream))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment