Added definition of (SETF CL:MACRO-FUNCTION).