There's no need to have both an explicit call to `fresh-line' and `~&'
on the front of the following `format' string. The `fresh-line' call is
the right one to leave: otherwise the new line (if any) is started after
we've called `position-aware-stream-line', which will therefore give us
the wrong answer.
(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>")))))