Add copy-func-prototype defun