From de94638d376eaeeeb598e683b1b5fa3b45b3fb4c Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Wed, 19 Sep 1990 21:12:33 +0000
Subject: [PATCH] Fixed FILE-COMMENT processing to actually work.

---
 compiler/main.lisp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/compiler/main.lisp b/compiler/main.lisp
index 8074e130e..2fa6a056f 100644
--- a/compiler/main.lisp
+++ b/compiler/main.lisp
@@ -898,9 +898,9 @@
 		      (compiler-warning "Ignoring extra file comment:~%  ~S."
 					form))
 		     (t
-		      (setf (file-info-comment file)
-			    (coerce (second form) 'simple-string))
-		      (compiler-mumble "~&Comment:~%  ~A~&")))))
+		      (let ((comment (coerce (second form) 'simple-string)))
+			(setf (file-info-comment file) comment)
+			(compiler-mumble "~&Comment: ~A~2&" comment))))))
 	    (t
 	     (let ((exp (preprocessor-macroexpand form)))
 	       (if (eq exp form)
-- 
GitLab