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

On Mon, Jun 08 2026, Michael Heerdegen via Users list for the GNU Emacs text editor wrote:

> #+begin_src emacs-lisp
> (advice-add
>  'common-lisp-indent-function :after-until
>  (defun my-common-lisp-indent-function--offset-fallback (indent-point state)
>    (save-excursion
>      (goto-char (elt state 1))
>      (+ (current-column) 2))))
> #+end_src
>
> This would change the algorithm to always do what you want for
> `with-clog-create'.

Ok, unfortunately it seems, that it’s not really *always*:

--8<---------------cut here---------------start------------->8---
(with-clog-create body
  (okokok ()
    (okokok ()
      (okokok ()
        (okokok ())))))

(defun my-func ()
  (with-clog-create body
    (okokok ()
            (NOT-OK ()
              (okokok ()
                (okokok ()))))))

(defun my-func ()
  (call-a-func
   (with-clog-create body
     (okokok ()
       (ok-here ()   ; strange...
         (okokok ()
           (okokok ())))))))
--8<---------------cut here---------------end--------------->8---

Line 10 of this test file is not ok.

How could I get my preferred indentation also for line 10 please?

TIA for any help,
-- 
           Peter