(setq line-processor #'process-line-inside-pre)
(write-string "<pre class=\"lisp\">" output)
(push (subseq line (+ len +indent+)) piece-of-code)
(setq line-processor #'process-line-inside-pre)
(write-string "<pre class=\"lisp\">" output)
(push (subseq line (+ len +indent+)) piece-of-code)