(1+ (position-aware-stream-line stream))
(let ((path (stream-pathname stream)))
(if path (namestring path) "<sod-output>")))))
(1+ (position-aware-stream-line stream))
(let ((path (stream-pathname stream)))
(if path (namestring path) "<sod-output>")))))