X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/blobdiff_plain/fbd5be649c2cddfdcf0557bf7321b1d1bbaa39e4..ed3ce6c2352d76442b79badfbe08bc6ecde6934d:/src/module-impl.lisp

diff --git a/src/module-impl.lisp b/src/module-impl.lisp
index 44aa0b8..1eb2531 100644
--- a/src/module-impl.lisp
+++ b/src/module-impl.lisp
@@ -195,7 +195,10 @@ (defmethod print-object ((fragment c-fragment) stream)
 		 (prin1 (subseq text 0 37) stream)
 		 (write-string "..." stream))))
 	(output-c-excursion stream location
-			    (lambda (stream) (write-string text stream))))))
+			    (lambda (stream)
+			      (awhen (file-location-column location)
+				(dotimes (i it) (write-char #\space stream)))
+			      (write-string text stream))))))
 
 (defmethod make-load-form ((fragment c-fragment) &optional environment)
   (make-load-form-saving-slots fragment :environment environment))