Method on (SETF SICL-ENV:FUNCTION-TYPE).