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

customize look of rendered code

Browse source
This commit is contained in:
David Botton 2024-04-15 20:05:50 -04:00
parent 86217ad0f8
commit fd2afcefd9
3 changed files with 10 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

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