~mdw
/
sod
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
doc/list-exports: Use the same output directory as the main `Makefile'.
[sod]
/
src
/
module-impl.lisp
diff --git
a/src/module-impl.lisp
b/src/module-impl.lisp
index
44aa0b8
..
1eb2531
100644
(file)
--- a/
src/module-impl.lisp
+++ b/
src/module-impl.lisp
@@
-195,7
+195,10
@@
(prin1 (subseq text 0 37) stream)
(write-string "..." stream))))
(output-c-excursion stream location
(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))
(defmethod make-load-form ((fragment c-fragment) &optional environment)
(make-load-form-saving-slots fragment :environment environment))