replace functionp with fboundp
fix