bug#24750: 26.0.50; incorrect Edebug spec for cl-loop

[npostavs]

tags 24750 fixed
close 24750 
quit

Mark Oteiza <mvoteiza@udel.edu> writes:
>
> That fixes the recipe here, but I am not terribly familiar with edebug
> specs.
>
> diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
> index 2ebb824..210a208 100644
> --- a/lisp/emacs-lisp/cl-macs.el
> +++ b/lisp/emacs-lisp/cl-macs.el
> @@ -923,6 +923,7 @@ cl-loop
>                                 "count" "maximize" "minimize" "if" "unless"
>                                 "return"]
>                            form]
> +                         ["using" (symbolp symbolp)]
>                           ;; Simple default, which covers 99% of the cases.
>                           symbolp form)))
>    (if (not (memq t (mapcar #'symbolp

In master (which now includes fc01cfc8 'Add "using" to cl-loop debug
spec (Bug#24750)'), I can use edebug successfully on a cl-loop with
`using', so I'm marking this fixed.

    (require 'cl-lib)
    (cl-loop for e being the elements of [1 2 3] using (index i)
             collect (cons i e))