"Pass the FP for indirect lambda vars once" SBCL commit breaks McCLIM

sbcl-mcclim-breakage

There is no applicable method for the generic function
  #<STANDARD-GENERIC-FUNCTION CLIM:REGION-UNION (44)>
when called with arguments
  (#1=#<CLIM-INTERNALS::PORT-EVENT-QUEUE {10197C60D3}> #1#).
   [Condition of type SB-PCL::NO-APPLICABLE-METHOD-ERROR]

Restarts:
 0: [RETRY] Retry calling the generic function.
 1: [ABORT] Return to application command loop
 2: [RETRY] Retry SLIME REPL evaluation request.
 3: [*ABORT] Return to SLIME's top level.
 4: [ABORT] abort thread (#<THREAD "repl-thread" RUNNING {1008B783E3}>)

Backtrace:
  0: ((:METHOD NO-APPLICABLE-METHOD (T)) #<STANDARD-GENERIC-FUNCTION CLIM:REGION-UNION (44)> #<CLIM-INTERNALS::PORT-EVENT-QUEUE {10197C60D3}> #<CLIM-INTERNALS::PORT-EVENT-QUEUE {10197C60D3}>) [fast-method]
  1: (SB-PCL::CALL-NO-APPLICABLE-METHOD #<STANDARD-GENERIC-FUNCTION CLIM:REGION-UNION (44)> (#1=#<CLIM-INTERNALS::PORT-EVENT-QUEUE {10197C60D3}> #1#))
  2: ((LABELS CLIM-INTERNALS::FUN :IN CLIM-INTERNALS::EVENT-QUEUE-APPEND) (#<CLIM:WINDOW-REPAINT-EVENT {10203C6603}>))
  3: ((LABELS CLIM-INTERNALS::FUN :IN CLIM-INTERNALS::EVENT-QUEUE-APPEND) (#<CLIM:WINDOW-REPAINT-EVENT {10203C3D83}> #<CLIM:WINDOW-REPAINT-EVENT {10203C6603}>))
  4: ((FLET SB-THREAD::WITH-MUTEX-THUNK :IN CLIM-INTERNALS::EVENT-QUEUE-APPEND))
  5: ((FLET "WITHOUT-INTERRUPTS-BODY-1" :IN SB-THREAD::CALL-WITH-MUTEX))
  6: (SB-THREAD::CALL-WITH-MUTEX #<CLOSURE (FLET SB-THREAD::WITH-MUTEX-THUNK :IN CLIM-INTERNALS::EVENT-QUEUE-APPEND) {7F4BB3DAD55B}> #<SB-THREAD:MUTEX "event queue" owner: #<SB-THREAD:THREAD "repl-thread" ..
  7: ((:METHOD CLIM-INTERNALS::EVENT-QUEUE-APPEND (CLIM-INTERNALS::STANDARD-EVENT-QUEUE T)) #<CLIM-INTERNALS::PORT-EVENT-QUEUE {10197C60D3}> #<CLIM:WINDOW-REPAINT-EVENT {10203D61D3}>) [fast-method]
  8: ((SB-PCL::EMF CLIM:RESIZE-SHEET) #<unused argument> #<unused argument> #<CLIM-CLX::CLX-713-HRACK-PANE "(Unnamed Pane)" {101CAAB7A3}> 486 449.0)
  9: (CLIM-INTERNALS::LAYOUT-CHILD #<CLIM-CLX::CLX-713-HRACK-PANE "(Unnamed Pane)" {101CAAB7A3}> :EXPAND :EXPAND 0 33.0 486 449.0)
 10: ((:METHOD CLIM-INTERNALS::BOX-LAYOUT-MIXIN/VERTICALLY-ALLOCATE-SPACE (CLIM-INTERNALS::RACK-LAYOUT-MIXIN T T)) #<CLIM-CLX::CLX-713-VRACK-PANE "(Unnamed Pane)" {101CAC2503}> 486 482) [fast-method]
 11: ((SB-PCL::EMF CLIM:ALLOCATE-SPACE) #<unused argument> #<unused argument> #<CLIM-CLX::CLX-713-TOP-LEVEL-SHEET-PANE CLIM-INTERNALS::TOP-LEVEL-SHEET {101B5CE093}> 486 482)
 12: ((SB-PCL::EMF CLIM:NOTE-SHEET-REGION-CHANGED) #<unused argument> #<unused argument> #<CLIM-CLX::CLX-713-TOP-LEVEL-SHEET-PANE CLIM-INTERNALS::TOP-LEVEL-SHEET {101B5CE093}>)
 13: ((SB-PCL::EMF (SETF CLIM:SHEET-REGION)) #<unused argument> #<unused argument> #<CLIM:STANDARD-BOUNDING-RECTANGLE X 0:486 Y 0:482 {10201DF763}> #<CLIM-CLX::CLX-713-TOP-LEVEL-SHEET-PANE CLIM-INTERNALS::..
 14: ((:METHOD (SETF CLIM:SHEET-REGION) :AROUND (T CLIM:BASIC-SHEET)) #<CLIM:STANDARD-BOUNDING-RECTANGLE X 0:486 Y 0:482 {10201DF763}> #<CLIM-CLX::CLX-713-TOP-LEVEL-SHEET-PANE CLIM-INTERNALS::TOP-LEVEL-SHE..
 15: (CLIM-INTERNALS::%SET-SHEET-REGION-AND-TRANSFORMATION #<CLIM-CLX::CLX-713-TOP-LEVEL-SHEET-PANE CLIM-INTERNALS::TOP-LEVEL-SHEET {101B5CE093}> #<CLIM:STANDARD-BOUNDING-RECTANGLE X 0:486 Y 0:482 {10201DF..
 16: ((:METHOD CLIM:HANDLE-EVENT (CLIM-INTERNALS::TOP-LEVEL-SHEET-PANE CLIM:WINDOW-CONFIGURATION-EVENT)) #<CLIM-CLX::CLX-713-TOP-LEVEL-SHEET-PANE CLIM-INTERNALS::TOP-LEVEL-SHEET {101B5CE093}> #<CLIM:WINDOW..
 17: (CLIM-EXTENSIONS:SIMPLE-EVENT-LOOP #<CLIM-DEMO:DEMODEMO {1019316FD3}>)
 18: ((:METHOD CLIM:READ-FRAME-COMMAND :AROUND (CLIM:APPLICATION-FRAME)) #<CLIM-DEMO:DEMODEMO {1019316FD3}> :STREAM NIL) [fast-method]
 19: ((:METHOD CLIM:DEFAULT-FRAME-TOP-LEVEL (CLIM:APPLICATION-FRAME)) #<CLIM-DEMO:DEMODEMO {1019316FD3}> :COMMAND-PARSER CLIM:COMMAND-LINE-COMMAND-PARSER :COMMAND-UNPARSER CLIM:COMMAND-LINE-COMMAND-UNPARSE..
 --more--