bug#10968: 24.0.94; loop indentation with `C-M-q' broken

[npostavs]

retitle 10968 common-lisp-indent-function, `C-M-q' on multiline `loop' broken
found 10968 25.2
tags 10968 fixed
close 10968 26.1
quit

Thierry Volpiatto <thierry.volpiatto@gmail.com> writes:

> Glenn Morris <rgm@gnu.org> writes:
>
>> Thierry Volpiatto wrote:
>>
>>> It seem indenting a CL loop with `C-M-q' (indent-pp-sexp)
>>> doesn't work anymore unless the loop close is <= two lines.
>>
>> Please give an example.
> (require 'cl)
> (setq lisp-indent-function 'common-lisp-indent-function)
>
> Use C-M-q on following sexp:
>
> (loop with cont = (make-hash-table :test test)
>       for elm in seq
> unless (gethash elm cont)
> do (puthash elm elm cont)
> finally return
> (loop for i being the hash-values in cont collect i))

With current master I get

(loop with cont = (make-hash-table :test test)
   for elm in seq
   unless (gethash elm cont)
   do (puthash elm elm cont)
   finally return
     (loop for i being the hash-values in cont collect i))

I believe this is correct.