[Git][cmucl/cmucl][issue-140-stream-element-type-two-way-stream] Handle stream-external-format of broadcast-stream

[Raymond Toy (@rtoy)]

Raymond Toy pushed to branch issue-140-stream-element-type-two-way-stream at cmucl / cmucl


Commits:
dc292bb7 by Raymond Toy at 2022-11-15T21:15:25-08:00
Handle stream-external-format of broadcast-stream

Actually implement what the spec says for the external format of a
`broadcast-stream`.

- - - - -


1 changed file:

- src/code/stream.lisp


Changes:

=====================================
src/code/stream.lisp
=====================================
@@ -296,7 +296,10 @@
       (fd-stream (fd-stream-external-format stream))
       (broadcast-stream
        ;; See http://www.lispworks.com/documentation/HyperSpec/Body/t_broadc.htm
-       :default)
+       (let ((components (broadcast-stream-streams stream)))
+	 (if (null components)
+	     :default
+	     (stream-external-format (car (last components))))))
       (synonym-stream
        ;; Not defined by CLHS.  What should happen if
        ;; (synonym-stream-symbol stream) is unbound?



View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/dc292bb73492d075ee1634c25efad39bea33780d

-- 
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/dc292bb73492d075ee1634c25efad39bea33780d
You're receiving this email because of your account on gitlab.common-lisp.net.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cmucl-cvs/attachments/20221116/59f8ba08/attachment.html>