mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-18 23:32:17 -08:00
Code Issues Projects Releases Packages Wiki Activity

cmp: cxx: don't waste space when printing comments

Browse source 
We make the line length 80ch and print comment immedietely after "/* ".
This commit is contained in:
Daniel Kochmański 2023-11-07 13:58:16 +01:00
parent 6722d4b9da
commit e536bc56ab
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/cmp/cmpbackend-cxx/cmpc-wt.lsp
View file

@ -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)))