From: Mark Wooding Date: Tue, 5 Jan 2016 16:29:45 +0000 (+0000) Subject: src/module-impl.lisp (output-c-excursion): Remove redundant `~&'. X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/commitdiff_plain/44929d946ed4afd2792bb1355f4bd1226bea6449 src/module-impl.lisp (output-c-excursion): Remove redundant `~&'. 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. --- diff --git a/src/module-impl.lisp b/src/module-impl.lisp index 206b5e6..873e091 100644 --- a/src/module-impl.lisp +++ b/src/module-impl.lisp @@ -171,7 +171,7 @@ (defun output-c-excursion (stream location thunk) (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) "")))))