get-setf-method

[David C. Plummer <DCP@SCRC-QUABBIN.ARPA>]

Excuse me if this has already been cleared up, but
	(get-setf-method (macroexpand form env))
just won't cut it.  Consider this example:

	(defmacro raster-aref (raster-array x y)
	  ...code-to-ensure-order-of-evaluation...
	  `(aref ,raster-array ,y ,x))
	(defsetf raster-aref ...)

Now,
	(raster-aref array (foo) (bar))
expands into (in our system, at least)
	(let ((.gensym-for-raster-array. array)
	      (.gensym-for-bar. (bar)))
	  (aref .gensym-for-raster-array. .gensym-for-bar. (foo)))
Since when does LET have a DEFSETF method?

I agree with whoever said the environment should be a required argument.