Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
cmucl
cmucl
Commits
a34b7f0e
Commit
a34b7f0e
authored
Oct 12, 2011
by
Raymond Toy
Browse files
Clean up implementation of PROCESS-FILE-COMMENT slightly.
parent
ae88f40f
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/main.lisp
View file @
a34b7f0e
...
...
@@ -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
))
(
set
f
comment
(
read-line
(
process-output
proc
)
nil
nil
)))
(
comment
(
and
proc
(
zerop
(
process-exit-code
proc
)
)
(
read-line
(
process-output
proc
)
nil
nil
))
))
(
i
f
comment
(
format
nil
"$Header: ~A ~A $"
(
enough-namestring
name
)
comment
)
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment