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/dc292bb73492d075ee1634c2... -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/dc292bb73492d075ee1634c2... You're receiving this email because of your account on gitlab.common-lisp.net.