How can I get WITH-HTML-OUTPUT-TO-STRING to transform lists that are quoted?

e.g.

this works fine (not quoted): 

(with-html-output-to-string (out nil) (:div "test"))

but, how can I get cl-who to transform if the body is quoted:

with-html-output-to-string (out nil) '(:div "test"))