"Retry applying" restart doesn't work for SETF

[pfeilgm]

When a non-existant SETF is called, you have the option to retry applying the function, but with SETF it doesn't work, because it can't be funcalled directly.

1 > Invoking restart: Retry applying (SETF TS::CORPORATION) to (#<CORPORATION "Unformed Corporation"> #<TERM-SHEET #x3000433B4DED>).

Error: (SETF TS::CORPORATION) is not of type (OR SYMBOL FUNCTION), and can't be FUNCALLed or APPLYed While executing: CCL::DEFAULT-UNDEFINED-FUNCTION-CALL-RESTARTS, in process Listener(6). Type cmd-. to abort, cmd-\ for a list of available restarts. Type :? for other options.

1 >