Skip to content
Snippets Groups Projects
Commit de94638d authored by ram's avatar ram
Browse files

Fixed FILE-COMMENT processing to actually work.

parent 1ae47785
No related branches found
No related tags found
No related merge requests found
...@@ -898,9 +898,9 @@ ...@@ -898,9 +898,9 @@
(compiler-warning "Ignoring extra file comment:~% ~S." (compiler-warning "Ignoring extra file comment:~% ~S."
form)) form))
(t (t
(setf (file-info-comment file) (let ((comment (coerce (second form) 'simple-string)))
(coerce (second form) 'simple-string)) (setf (file-info-comment file) comment)
(compiler-mumble "~&Comment:~% ~A~&"))))) (compiler-mumble "~&Comment: ~A~2&" comment))))))
(t (t
(let ((exp (preprocessor-macroexpand form))) (let ((exp (preprocessor-macroexpand form)))
(if (eq exp form) (if (eq exp form)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment