(funcall thunk)
(when (typep stream 'position-aware-stream)
(fresh-line stream)
- (format stream "~&#line ~D ~S~%"
+ (format stream "#line ~D ~S~%"
(1+ (position-aware-stream-line stream))
(let ((path (stream-pathname stream)))
(if path (namestring path) "<sod-output>")))))