;; this should be done with (setf stream-external-format)
(let ((efmt (getf options :external-format :default)))
(compose-encapsulating-streams stream efmt)
;; this should be done with (setf stream-external-format)
(let ((efmt (getf options :external-format :default)))
(compose-encapsulating-streams stream efmt)