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