Plaster

(cond ((and (typep stream 'synonym-stream) (synonym-stream-symbol stream)) (stream-system-handle (symbol-value (synonym-stream-symbol stream)))) ((typep stream 'sb-sys:fd-stream) (slot-value stream 'sb-impl::fd)))