set right margin on pretty

This commit is contained in:
David Botton 2024-04-15 19:57:04 -04:00
parent b4ffb58a3f
commit 86217ad0f8

View file

@ -125,6 +125,7 @@
(with-output-to-string (s r)
(with-input-from-string (n result)
(let ((*standard-output* s)
(*print-right-margin* 80)
(*print-case* :downcase))
(format t ";;;; CLOG Builder generated code - modify original .clog file and rerender")
(loop