Commit a34b7f0e authored by Raymond Toy's avatar Raymond Toy

Clean up implementation of PROCESS-FILE-COMMENT slightly.

parent ae88f40f
......@@ -1127,9 +1127,9 @@
(generate-comment (file-info)
(let* ((name (pathname (source-info-stream file-info)))
(proc (run-git name))
comment)
(if (and proc (zerop (process-exit-code proc))
(setf comment (read-line (process-output proc) nil nil)))
(comment (and proc (zerop (process-exit-code proc))
(read-line (process-output proc) nil nil))))
(if comment
(format nil "$Header: ~A ~A $"
(enough-namestring name)
comment)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment