Steel Bank Common Lisp

Hi all,

  I've been messing around with get-setf-expansion
  and run into problems when using it in sbcl 0.8
  and 0.8.6.1.

  My understanding was that if no
  environment was given then the null lexical
  environment was to be used, or is there yet
  another outside case that I've missed.


  eg.
  * (lisp-implementation-version)

  "0.8.6.1"
  * (defstruct foo (x))  

  FOO
  * (get-setf-expansion '(foo-x foo))

debugger invoked on condition of type TYPE-ERROR in thread 4631:
  The value NIL is not of type SB-KERNEL:LEXENV.
restarts (invokable by number or by possibly-abbreviated name):
  0: [ABORT   ] Reduce debugger level (leaving debugger, returning to toplevel).
  1: [TOPLEVEL] Restart at toplevel READ/EVAL/PRINT loop.
(SB-IMPL::EXPAND-OR-GET-SETF-INVERSE 2 (FOO-X FOO) NIL)[:EXTERNAL]
0]


Regards,
  Sean.

-- 
The pen is mightier than the sword. 
Only if the sword is very short and the pen is very sharp.
Terry Pratchett.