Re: master 5f8922b9e2: ; * lisp/emacs-lisp/cconv.el (cconv--var-classification): Optimise.

[Stefan Monnier]

Mattias Engdegård [2022-07-09 05:54:21] wrote:
>     ; * lisp/emacs-lisp/cconv.el (cconv--var-classification): Optimise.
> ---
>  lisp/emacs-lisp/cconv.el | 3 +--
>  1 file changed, 1 insertion(+), 2 deletions(-)
>
> diff --git a/lisp/emacs-lisp/cconv.el b/lisp/emacs-lisp/cconv.el
> index eca1123899..7f95fa94fa 100644
> --- a/lisp/emacs-lisp/cconv.el
> +++ b/lisp/emacs-lisp/cconv.el
> @@ -267,8 +267,7 @@ Returns a form where all lambdas don't have any free 
> variables."
>  
>  (define-inline cconv--var-classification (binder form)
>    (inline-quote
> -   (alist-get (cons ,binder ,form) cconv-var-classification
> -              nil nil #'equal)))
> +   (cdr (assoc (cons ,binder ,form) cconv-var-classification))))

I think a better optimization for that is to write a compiler-macro, no?


        Stefan