add func my-real-function-subr-p