Re: feature/native-comp 711b2c8 2/2: * lisp/loadup.el: Don't load pcase on native builds (bug#47025).

[Andrea Corallo]

Stefan Monnier <monnier@iro.umontreal.ca> writes:

>> -(if (byte-code-function-p (symbol-function 'macroexpand-all))
>> +(if (or (byte-code-function-p (symbol-function 'macroexpand-all))
>> +        (subr-native-elisp-p (symbol-function 'macroexpand-all)))
>
> BTW, I find this rather ugly.

I thought this is very similar to one of the two suggested :)

> I think for this specific case, I will be able to come up with a better
> (less ad-hoc/circumstantial) test, but I wonder if this kind of test was
> also needed in enough other places that we might think about providing
> some other test (like `function-interpreted-p` maybe?).

Yep, `function-interpreted-p' might be handy to have.

Thanks

  Andrea