(defun liece-clfns-subr-fboundp (symbol)
"Return t if SYMBOL's function definition is a basic function."
(and (fboundp symbol)
- (or (subrp (symbol-function symbol-function))
+ (or (subrp (symbol-function symbol))
(string-equal (symbol-file symbol) "subr"))))
(if (featurep 'xemacs)