From e536bc56ab0dfef8356f9de4cab080eb8eca9a41 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= Date: Tue, 7 Nov 2023 13:58:16 +0100 Subject: [PATCH] cmp: cxx: don't waste space when printing comments We make the line length 80ch and print comment immedietely after "/* ". --- src/cmp/cmpbackend-cxx/cmpc-wt.lsp | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/src/cmp/cmpbackend-cxx/cmpc-wt.lsp b/src/cmp/cmpbackend-cxx/cmpc-wt.lsp index 85b01f027..3a3bc3699 100644 --- a/src/cmp/cmpbackend-cxx/cmpc-wt.lsp +++ b/src/cmp/cmpbackend-cxx/cmpc-wt.lsp @@ -127,7 +127,7 @@ (if single-line (progn (fresh-line stream) - (princ "/* " stream)) + (princ "/* " stream)) (format stream "~50T/* ")) (let* ((l (1- (length text)))) (declare (fixnum l)) @@ -144,8 +144,7 @@ (t (princ c stream))))) (princ (schar text l) stream)) - (format stream "~70T*/") - ) + (format stream "~78T*/")) (defun do-wt-comment (message-or-format args single-line-p) (unless (and (symbolp message-or-format) (not (symbol-package message-or-format)))