*print-pretty* shouldn't affect output of the :raw elements

[svetlyak40wt]

Right now, content of the :raw block is wrapped when *print-pretty* is true:

CL-USER> (let ((*print-pretty* t))
                          (spinneret:with-html-string
                            (:raw "Very very very very very very very very very very very very very very very very very very very very very very very very long line")))
"Very very very very very very very very very very very very very very very very
very very very very very very very very long line"
CL-USER>

[svetlyak40wt]

As a workaround you can rebind *print-pretty* before :raw block:

CL-USER> (let ((*print-pretty* t))
           (spinneret:with-html-string
             (let ((*print-pretty* nil))
               (:raw "Very very very very very very very very very very very very very very very very very very very very very very very very long line"))))
" Very very very very very very very very very very very very very very very very very very very very very very very very long line"
CL-USER>

but I think, this issue should be fixed anyway.

[svetlyak40wt]

Also, setting of spinneret::*pre* to t can be used as a workaround:

CL-USER> (let ((*print-pretty* t))
           (spinneret:with-html-string
             (let ((spinneret::*pre* t))
               (:raw "Very very very very very very very very very very very very very very very very very very very very very very very very long line"))))
"Very very very very very very very very very very very very very very very very very very very very very very very very long line"

[ruricolist]

Merged, thanks.