(functionp): Use byte-code-function-p, not compiled-function-p.

This commit is contained in:
Richard M. Stallman 1997-08-05 20:52:56 +00:00
parent bf896a1b80
commit c029995c63

View file

@ -1065,7 +1065,7 @@ configuration."
(defun functionp (object)
"Non-nil if OBJECT is a type of object that can be called as a function."
(or (subrp object) (compiled-function-p object)
(or (subrp object) (byte-code-function-p object)
(eq (car-safe object) 'lambda)
(and (symbolp object) (fboundp object))))