bug#56648: 29.0.50; Need for `compiled-function-p`

[Eli Zaretskii]

> +(defun compiled-function-p (object)
> +  "Return non-nil if OBJECT is a function that has been compiled.
> +Does not distinguish between functions implemented in machine code
> +or byte-code."
> +  (or (subrp object) (byte-code-function-p object)))

What happened to this part from bytecomp.el:

> -  (or (byte-code-function-p (symbol-function 'byte-compile-form))
> -      (subr-native-elisp-p (symbol-function 'byte-compile-form))
> -      (assq 'byte-code (symbol-function 'byte-compile-form)) <<<<<<<<<<<<<
> +  (or (compiled-function-p (symbol-function 'byte-compile-form))