small indentation inside with-html from spinneret (Common Lisp)

Hi,

I’m trying to get such an indentation inside the with-html macro:

--8<---------------cut here---------------start------------->8---
(with-html
  (:div.name1 test
   (:div.name2 test
    (:div.name3 test
     (:div.name4 test
      (:div.name5 test))))))
--8<---------------cut here---------------end--------------->8---

I’ve tried things like

--8<---------------cut here---------------start------------->8---
(put 'with-html 'common-lisp-indent-function
     '((&whole 2 (&whole 2 (&whole 2 (&whole 2 (&whole 2 &rest 1) &rest 1)
                                   &rest 1) &rest 1) &rest 1)))
--8<---------------cut here---------------end--------------->8---

but without success. What could I do please, to get such an indentation
please, at least for 4-5 levels?

TIA for any hints,
-- 
           Peter