Turned SICL-ENV:GET-SETF-EXPANSION into a function with only required parameters.