mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 02:30:42 -08:00
Code Issues Projects Releases Wiki Activity

set right margin on pretty

Browse source
This commit is contained in:
David Botton 2024-04-15 19:57:04 -04:00
parent b4ffb58a3f
commit 86217ad0f8
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
tools/clog-builder-render.lisp
View file

@ -124,8 +124,9 @@
:fill-pointer 0 :adjustable t)))
(with-output-to-string (s r)
(with-input-from-string (n result)
(let ((*standard-output* s)
(*print-case* :downcase))
(let ((*standard-output* s)
(*print-right-margin* 80)
(*print-case* :downcase))
(format t ";;;; CLOG Builder generated code - modify original .clog file and rerender")
(loop
(let ((l (read n nil)))