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:

       (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?