spatial-trees
spatial-trees copied to clipboard
rpav
Spatial Trees internal error when playing with McClim
Stacktrace
SPATIAL-TREES internal error: please report how you got this.
invariant (1) violated for the old node #1=#<spatial-trees-protocol:spatial-tree-leaf-node
#<(927/2,897/2) - (963/2,933/2)>
(#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(927/2,897/2) - (963/2,933/2)>
:datum #<clim-internals::tree-output-record-entry
{101477D543}>)
#2=#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(927/2,897/2) - (963/2,933/2)>
:datum #<clim-internals::tree-output-record-entry
{101C070EA3}>)
#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(927/2,897/2) - (963/2,933/2)>
:datum #<clim-internals::tree-output-record-entry
{10148A8193}>)
#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(927/2,897/2) - (963/2,933/2)>
:datum #<clim-internals::tree-output-record-entry
{1014A0E243}>))> in #<spatial-trees-impl::r-tree
#<spatial-trees-protocol:spatial-tree-node
(#<spatial-trees-protocol:spatial-tree-node
#<(897/2,777/2) - (1053/2,1089/2)>
(#<spatial-trees-protocol:spatial-tree-node
#<(897/2,777/2) - (1053/2,873/2)>
(#<spatial-trees-protocol:spatial-tree-node
#<(987/2,837/2) - (1023/2,873/2)>
(#<spatial-trees-protocol:spatial-tree-node
#<(987/2,837/2) - (1023/2,873/2)>
(#<spatial-trees-protocol:spatial-tree-node
#<(987/2,837/2) - (1023/2,873/2)>
(#<spatial-trees-protocol:spatial-tree-leaf-node
#<(987/2,837/2) - (1023/2,873/2)>
(#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{1014AFAD03}>)
#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{1014A5BDC3}>)
#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{10149A5AF3}>)
#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101402C353}>)
#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C6BD683}>)
#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{1014600933}>)
#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{10147A4913}>))>
#<spatial-trees-protocol:spatial-tree-leaf-node
#<(987/2,837/2) - (1023/2,873/2)>
(#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101408BB73}>)
#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C6BC903}>)
#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{10143C3673}>)
#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{10148E9953}>))>
#<spatial-trees-protocol:spatial-tree-leaf-node
#<(987/2,837/2) - (1023/2,873/2)>
(#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C6BEA83}>)
#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C6604C3}>)
#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{1007BA5403}>)
#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101415DC93}>))>
#<spatial-trees-protocol:spatial-tree-leaf-node
#<(987/2,837/2) - (1023/2,873/2)>
(#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C664EC3}>)
#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101BDECDC3}>)
#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C6C0C83}>)
#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C6C2083}>))>
#<spatial-trees-protocol:spatial-tree-leaf-node
#<(987/2,837/2) - (1023/2,873/2)>
(#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C6C3483}>)
#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C663A43}>)
#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C6C4203}>)
#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C6C5683}>))>
#<spatial-trees-protocol:spatial-tree-leaf-node
#<(987/2,837/2) - (1023/2,873/2)>
(#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C6C4F83}>)
#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C6C1303}>)
#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C6C5CC3}>)
#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{1005C5F4E3}>))>)>
#<spatial-trees-protocol:spatial-tree-node
#<(987/2,837/2) - (1023/2,873/2)>
(#<spatial-trees-protocol:spatial-tree-leaf-node
#<(987/2,837/2) - (1023/2,873/2)>
(#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C6BE403}>)
#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C6BA783}>)
#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C6BF183}>)
#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C6C0583}>))>
#<spatial-trees-protocol:spatial-tree-leaf-node
#<(987/2,837/2) - (1023/2,873/2)>
(#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C6618C3}>)
#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C65BAC3}>)
#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C6BA083}>)
#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C6BB503}>))>
#<spatial-trees-protocol:spatial-tree-leaf-node
#<(987/2,837/2) - (1023/2,873/2)>
(#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C6C1A03}>)
#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C662CC3}>)
#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C6C2703}>)
#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C6C3B83}>))>
#<spatial-trees-protocol:spatial-tree-leaf-node
#<(987/2,837/2) - (1023/2,873/2)>
(#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C6C4903}>)
#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C6C2E03}>)
#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C6C6343}>)
#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C6C6A03}>))>)>
#<spatial-trees-protocol:spatial-tree-node
#<(987/2,837/2) - (1023/2,873/2)>
(#<spatial-trees-protocol:spatial-tree-leaf-node
#<(987/2,837/2) - (1023/2,873/2)>
(#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C665C43}>)
#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C664143}>)
#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C6676C3}>)
#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C667DC3}>))>
#<spatial-trees-protocol:spatial-tree-leaf-node
#<(987/2,837/2) - (1023/2,873/2)>
(#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101BDE8343}>)
#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C01C3A3}>)
#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C65B3C3}>)
#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C65C843}>))>
#<spatial-trees-protocol:spatial-tree-leaf-node
#<(987/2,837/2) - (1023/2,873/2)>
(#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C6BAE03}>)
#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C65F743}>)
#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C6BBB83}>)
#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C6BD003}>))>
#<spatial-trees-protocol:spatial-tree-leaf-node
#<(987/2,837/2) - (1023/2,873/2)>
(#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C6BDD03}>)
#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C6BC283}>)
#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C6BF803}>)
#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C6BFF03}>))>)>
#<spatial-trees-protocol:spatial-tree-node
#<(987/2,837/2) - (1023/2,873/2)>
(#<spatial-trees-protocol:spatial-tree-leaf-node
#<(987/2,837/2) - (1023/2,873/2)>
(#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C024723}>)
#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C020563}>)
#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C0254E3}>)
#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C0269E3}>))>
#<spatial-trees-protocol:spatial-tree-leaf-node
#<(987/2,837/2) - (1023/2,873/2)>
(#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C07EA83}>)
#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C085DC3}>)
#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C01FD23}>)
#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C0213E3}>))>
#<spatial-trees-protocol:spatial-tree-leaf-node
#<(987/2,837/2) - (1023/2,873/2)>
(#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C6569C3}>)
#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C01B5A3}>)
#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C657743}>)
#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C658B43}>))>
#<spatial-trees-protocol:spatial-tree-leaf-node
#<(987/2,837/2) - (1023/2,873/2)>
(#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C6598C3}>)
#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C657E43}>)
#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101BDE90C3}>)
#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101BDE97C3}>))>)>
#<spatial-trees-protocol:spatial-tree-node
#<(987/2,837/2) - (1023/2,873/2)>
(#<spatial-trees-protocol:spatial-tree-leaf-node
#<(987/2,837/2) - (1023/2,873/2)>
(#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C66CEC3}>)
#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C6691C3}>)
#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C66DC43}>)
#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C66F043}>))>
#<spatial-trees-protocol:spatial-tree-leaf-node
#<(987/2,837/2) - (1023/2,873/2)>
(#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C088843}>)
#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C042FA3}>)
#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C668B43}>)
#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C669F43}>))>
#<spatial-trees-protocol:spatial-tree-leaf-node
#<(987/2,837/2) - (1023/2,873/2)>
(#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C670443}>)
#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C027CA3}>)
#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C6711C3}>)
#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C672643}>))>
#<spatial-trees-protocol:spatial-tree-leaf-node
#<(987/2,837/2) - (1023/2,873/2)>
(#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
:datum #<clim-internals::tree-output-record-entry
{101C673343}>)
#S(spatial-trees-impl:leaf-node-entry
:rectangle #<(987/2,837/2) - (1023/2,873/2)>
..
[Condition of type spatial-trees-impl::internal-error]
Restarts:
0: [continue] Retry assertion.
1: [abort] Return to application command loop
2: [abort] Abort thread (#<thread "Listener" running {10058AD293}>)
Backtrace:
0: (sb-kernel:assert-error (<= (spatial-trees-impl::min-per-node spatial-trees-impl::tree) (length (spatial-trees-protocol:records spatial-trees-impl::leaf-node)) (spatial-trees-impl::max-per-node spatia..
Locals:
args-and-values = (((spatial-trees-impl::min-per-node spatial-trees-impl::tree) 3) ((length (spatial-trees-protocol:records spatial-trees-impl::leaf-node)) 8) ..)
arguments = (:format-control "invariant (1) violated for the old node ~S in ~S" :format-arguments ..)
assertion = (<= (spatial-trees-impl::min-per-node spatial-trees-impl::tree) (length (spatial-trees-protocol:records spatial-trees-impl::leaf-node)) (spatial-trees-impl::max-per-node spatial-trees-impl::tree))
datum = spatial-trees-impl::internal-error
places = nil
1: ((:method spatial-trees:insert (t spatial-trees-impl::r-tree)) #<clim-internals::tree-output-record-entry {101C05B063}> #<spatial-trees-impl::r-tree #<spatial-trees-protocol:spatial-tree-node (#<spati..
Locals:
spatial-trees-impl::leaf-node = #<spatial-trees-protocol:spatial-tree-leaf-node #<(927/2,897/2) - (963/2,933/2)> (#S(spatial-trees-impl:leaf-node-entry ..))>
spatial-trees-impl::new-node = #<spatial-trees-protocol:spatial-tree-leaf-node #<(897/2,897/2) - (963/2,933/2)> (#S(spatial-trees-impl:leaf-node-entry ..))>
spatial-trees-impl::r = #<clim-internals::tree-output-record-entry {101C05B063}>
spatial-trees-impl::r#1 = #S(spatial-trees-impl:leaf-node-entry :rectangle #<(927/2,897/2) - (963/2,933/2)> :datum #<clim-internals::tree-output-record-entry {101C05B063}>)
spatial-trees-impl::tree = #<spatial-trees-impl::r-tree #<spatial-trees-protocol:spatial-tree-node (#<spatial-trees-protocol:spatial-tree-node #<(897/2,777/2) - (1053/2,1089/2)> ..>)>>
2: (spatial-trees-impl::condense-tree #<spatial-trees-protocol:spatial-tree-leaf-node #<(897/2,897/2) - (963/2,933/2)> (#S(spatial-trees-impl:leaf-node-entry :rectangle #<(927/2,897/2) - (963/2,933/2)> :..
Locals:
#:n-list501 = (#<spatial-trees-protocol:spatial-tree-node #<(897/2,897/2) - (963/2,933/2)> (#<spatial-trees-protocol:spatial-tree-leaf-node # #> #<spatial-trees-protocol:spatial-tree-leaf-node # #>)> ..)
#:n-list503 = (#S(spatial-trees-impl:leaf-node-entry :rectangle #<(927/2,897/2) - (963/2,933/2)> :datum #<clim-internals::tree-output-record-entry {101C071EA3}>) ..)
node = #<spatial-trees-protocol:spatial-tree-leaf-node #<(897/2,897/2) - (963/2,933/2)> (#S(spatial-trees-impl:leaf-node-entry ..))>
node#1 = #<spatial-trees-protocol:spatial-tree-node (#<spatial-trees-protocol:spatial-tree-node #<(897/2,777/2) - (1053/2,1089/2)> ..>)>
oleaf = #S(spatial-trees-impl:leaf-node-entry :rectangle #<(927/2,897/2) - (963/2,933/2)> :datum #<clim-internals::tree-output-record-entry {101C05B063}>)
orphan = #<spatial-trees-protocol:spatial-tree-node #<(897/2,897/2) - (963/2,933/2)> (#<spatial-trees-protocol:spatial-tree-node #<(927/2,897/2) - (963/2,933/2)> ..>)>
q = (#<spatial-trees-protocol:spatial-tree-node #<(897/2,897/2) - (963/2,933/2)> (#<spatial-trees-protocol:spatial-tree-node # #> #<spatial-trees-protocol:spatial-tree-node # #>)> ..)
tree = #<spatial-trees-impl::r-tree #<spatial-trees-protocol:spatial-tree-node (#<spatial-trees-protocol:spatial-tree-node #<(897/2,777/2) - (1053/2,1089/2)> ..>)>>
3: ((:method spatial-trees:delete (t spatial-trees-impl::r-tree)) #<clim-internals::tree-output-record-entry {101C042023}> #<spatial-trees-impl::r-tree #<spatial-trees-protocol:spatial-tree-node (#<spati..
Locals:
spatial-trees-impl::leaf-node = #<spatial-trees-protocol:spatial-tree-leaf-node #<(897/2,897/2) - (963/2,933/2)> (#S(spatial-trees-impl:leaf-node-entry ..))>
spatial-trees-impl::r = #<clim-internals::tree-output-record-entry {101C042023}>
spatial-trees-impl::tree = #<spatial-trees-impl::r-tree #<spatial-trees-protocol:spatial-tree-node (#<spatial-trees-protocol:spatial-tree-node #<(897/2,777/2) - (1053/2,1089/2)> ..>)>>
4: ((:method recompute-extent-for-changed-child :around (standard-tree-output-record t t t t t)) #<standard-tree-output-history X 0:1053/2 Y 0:1089/2 {101439F193}> #<clim-internals::draw-line-output-reco..
Locals:
sb-pcl::.next-method-call. = #S(sb-pcl::fast-method-call ..)
clim-internals::child = #<clim-internals::draw-line-output-record X 927/2:963/2 Y 1053/2:1089/2 {101C042003}>
clim-internals::old-max-x = 963/2
clim-internals::old-max-y = 933/2
clim-internals::old-min-x = 927/2
clim-internals::old-min-y = 897/2
clim-internals::record = #<standard-tree-output-history X 0:1053/2 Y 0:1089/2 {101439F193}>
5: ((lambda (sb-pcl::.arg0. sb-pcl::.arg1. sb-pcl::.arg2. sb-pcl::.arg3. sb-pcl::.arg4. sb-pcl::.arg5.)) #<standard-tree-output-history X 0:1053/2 Y 0:1089/2 {101439F193}> #<clim-internals::draw-line-out..
Locals:
sb-pcl::.arg0. = #<standard-tree-output-history X 0:1053/2 Y 0:1089/2 {101439F193}>
sb-pcl::.arg1. = #<clim-internals::draw-line-output-record X 927/2:963/2 Y 1053/2:1089/2 {101C042003}>
sb-pcl::.arg2. = 927/2
sb-pcl::.arg3. = 897/2
sb-pcl::.arg4. = 963/2
sb-pcl::.arg5. = 933/2
sb-pcl::cache = #<sb-pcl::cache 2 keys, value, 20/32 lines, depth 2/3 {10188BE343}>
sb-pcl::miss-fn = #<CLOSURE (lambda (&rest sb-pcl::args) :in sb-pcl::make-caching-dfun) {10188BE45B}>
6: ((:method (setf clim::.output-record-position-star.) :around (t t clim-internals::basic-output-record)) 927/2 1053/2 #<clim-internals::draw-line-output-record X 927/2:963/2 Y 1053/2:1089/2 {101C042003..
Locals:
sb-pcl::.next-method-call. = #S(sb-pcl::fast-method-call ..)
clim-internals::nx = 927/2
clim-internals::ny = 1053/2
clim-internals::parent = #<standard-tree-output-history X 0:1053/2 Y 0:1089/2 {101439F193}>
clim-internals::record = #<clim-internals::draw-line-output-record X 927/2:963/2 Y 1053/2:1089/2 {101C042003}>
7: ((flet call-next-method :in "/home/francis/quicklisp/dists/quicklisp/software/mcclim-20140616-git/recording.lisp"))
Locals:
sb-pcl::.next-method-call. = #S(sb-pcl::fast-method-call ..)
sb-pcl::cnm-args = nil
clim-internals::nx = 927/2
clim-internals::ny = 1053/2
clim-internals::record = #<clim-internals::draw-line-output-record X 927/2:963/2 Y 1053/2:1089/2 {101C042003}>
8: ((:method (setf clim::.output-record-position-star.) :around (t t clim-internals::draw-line-output-record)) 927/2 1053/2 #<clim-internals::draw-line-output-record X 927/2:963/2 Y 1053/2:1089/2 {101C04..
Locals:
sb-pcl::.next-method-call. = #S(sb-pcl::fast-method-call ..)
clim-internals::nx = 927/2
clim-internals::ny = 1053/2
clim-internals::record = #<clim-internals::draw-line-output-record X 927/2:963/2 Y 1053/2:1089/2 {101C042003}>
9: ((lambda (clim-internals::record) :in clim-internals::sheet-move-output-vertically) #<clim-internals::draw-line-output-record X 927/2:963/2 Y 1053/2:1089/2 {101C042003}>)
Locals:
clim-internals::delta-y = 78
clim-internals::record = #<clim-internals::draw-line-output-record X 927/2:963/2 Y 1053/2:1089/2 {101C042003}>
clim-internals::y = 0
10: ((lambda (clim-internals::child) :in map-over-output-records-overlapping-region) #<clim-internals::draw-line-output-record X 927/2:963/2 Y 1053/2:1089/2 {101C042003}>)
Locals:
clim-internals::child = #<clim-internals::draw-line-output-record X 927/2:963/2 Y 1053/2:1089/2 {101C042003}>
function = #<CLOSURE (lambda (clim-internals::record) :in clim-internals::sheet-move-output-vertically) {101BAF3FFB}>
clim-internals::function-args = nil
region = #<standard-bounding-rectangle X 0:656 Y 0:666 {101BAF4013}>
11: (clim-internals::map-over-tree-output-records #<CLOSURE (lambda (clim-internals::child) :in map-over-output-records-overlapping-region) {101BAF417B}> #<standard-tree-output-history X 0:1053/2 Y 0:1089..
Locals:
child = #<clim-internals::tree-output-record-entry {101C042023}>
function = #<CLOSURE (lambda (clim-internals::child) :in map-over-output-records-overlapping-region) {101BAF417B}>
function-args = nil
#:n-list2396 = (#<clim-internals::tree-output-record-entry {101C03BBE3}> #<clim-internals::tree-output-record-entry {101C0419A3}> #<clim-internals::tree-output-record-entry {101C0441E3}> ..)
record = #<standard-tree-output-history X 0:1053/2 Y 0:1089/2 {101439F193}>
rectangle = #<(0,0) - (656,666)>
sort-order = :most-recent-last
12: ((:method map-over-output-records-overlapping-region (t standard-tree-output-record t)) #<CLOSURE (lambda (clim-internals::record) :in clim-internals::sheet-move-output-vertically) {101BAF3FFB}> #<sta..
Locals:
function = #<CLOSURE (lambda (clim-internals::record) :in clim-internals::sheet-move-output-vertically) {101BAF3FFB}>
clim-internals::function-args = nil
clim-internals::record = #<standard-tree-output-history X 0:1053/2 Y 0:1089/2 {101439F193}>
region = #<standard-bounding-rectangle X 0:656 Y 0:666 {101BAF4013}>
13: ((lambda (sb-pcl::.arg0. sb-pcl::.arg1. sb-pcl::.arg2. sb-int:&more sb-pcl::.more-context. sb-pcl::.more-count.)) #<CLOSURE (lambda (clim-internals::record) :in clim-internals::sheet-move-output-verti..
Locals:
sb-pcl::.arg0. = #<CLOSURE (lambda (clim-internals::record) :in clim-internals::sheet-move-output-vertically) {101BAF3FFB}>
sb-pcl::.arg1. = #<standard-tree-output-history X 0:1053/2 Y 0:1089/2 {101439F193}>
sb-pcl::.arg2. = #<standard-bounding-rectangle X 0:656 Y 0:666 {101BAF4013}>
sb-pcl::.more-context. = 70368531663528
sb-pcl::.more-count. = 0
sb-pcl::cache = #<sb-pcl::cache 1 key, value, 25/32 lines, depth 1/3 {1005B75B83}>
sb-pcl::miss-fn = #<CLOSURE (lambda (&rest sb-pcl::args) :in sb-pcl::make-caching-dfun) {1005B75B6B}>
sb-debug::more = nil
14: (clim-internals::sheet-move-output-vertically #<clim-listener::listener-interactor-pane clim-listener::interactor {1013E7A253}> 0 78)
Locals:
delta-y = 78
sheet = #<clim-listener::listener-interactor-pane clim-listener::interactor {1013E7A253}>
y = 0
15: ((labels #:g344 :in clim-internals::invoke-with-input-editor-typeout) #<unused argument>)
Locals:
clim-internals::delta-y = 78
clim-internals::editing-stream = #<standard-input-editing-stream {1014C90483}>
clim-internals::encapsulated-stream = #<clim-listener::listener-interactor-pane clim-listener::interactor {1013E7A253}>
clim-internals::new-typeout-record = #<standard-sequence-output-record X 0:78 Y 0:78 {101BADA9A3}>
clim-internals::old-height = 0
clim-internals::old-min-y = 0
16: ((:method clim-internals::invoke-with-sheet-medium-bound (t null permanent-medium-sheet-output-mixin)) #<CLOSURE (labels #:g344 :in clim-internals::invoke-with-input-editor-typeout) {7FFFE6AA96AB}> #<..
Locals:
clim-internals::continuation = #<CLOSURE (labels #:g344 :in clim-internals::invoke-with-input-editor-typeout) {7FFFE6AA96AB}>
sheet = #<clim-listener::listener-interactor-pane clim-listener::interactor {1013E7A253}>
17: ((:method clim-internals::invoke-with-input-editor-typeout (clim-internals::standard-input-editing-mixin function)) #<standard-input-editing-stream {1014C90483}> #<FUNCTION (lambda (stream) :in clim-i..
Locals:
clim-internals::continuation = #<FUNCTION (lambda (stream) :in clim-internals::clear-typeout) {100D314CFB}>
clim-internals::editing-stream = #<standard-input-editing-stream {1014C90483}>
clim-internals::encapsulated-stream = #<clim-listener::listener-interactor-pane clim-listener::interactor {1013E7A253}>
clim-internals::new-typeout-record = #<standard-sequence-output-record X 0:78 Y 0:78 {101BADA9A3}>
clim-internals::old-height = 0
clim-internals::old-min-y = 0
#:|erase-DEFAULTING-TEMP| = t
18: ((sb-pcl::emf clim-internals::invoke-with-input-editor-typeout) #<unused argument> #<unused argument> #<standard-input-editing-stream {1014C90483}> #<FUNCTION (lambda (stream) :in clim-internals::clea..
Locals:
sb-pcl::.arg0. = #<standard-input-editing-stream {1014C90483}>
sb-pcl::.arg1. = #<FUNCTION (lambda (stream) :in clim-internals::clear-typeout) {100D314CFB}>
sb-pcl::.dfun-more-context. = 70368531663784
sb-pcl::.dfun-more-count. = 2
sb-pcl::.keyargs-start. = 0
sb-pcl::.valid-keys. = (:erase)
sb-pcl::effective-method-gensym-0 = #S(sb-pcl::fast-method-call ..)
sb-debug::more = (:erase t)
19: (clim-internals::clear-typeout #<standard-input-editing-stream {1014C90483}>)
Locals:
stream = #<standard-input-editing-stream {1014C90483}>
20: ((:method clim-internals::finalize (input-editing-stream t)) #<standard-input-editing-stream {1014C90483}> #<unused argument>) [fast-method]
Locals:
stream = #<standard-input-editing-stream {1014C90483}>
21: ((flet call-next-method :in "/home/francis/quicklisp/dists/quicklisp/software/mcclim-20140616-git/input-editing-drei.lisp"))
Locals:
sb-pcl::.next-method-call. = #S(sb-pcl::fast-method-call ..)
sb-pcl::cnm-args = nil
clim-internals::input-sensitizer = #<CLOSURE (lambda (stream clim-internals::cont) :in accept-1) {1014C9043B}>
stream = #<standard-input-editing-stream {1014C90483}>
22: ((:method clim-internals::finalize (drei:drei-input-editing-mixin t)) #<standard-input-editing-stream {1014C90483}> #<CLOSURE (lambda (stream clim-internals::cont) :in accept-1) {1014C9043B}>) [fast-m..
Locals:
sb-pcl::.next-method-call. = #S(sb-pcl::fast-method-call ..)
clim-internals::input-sensitizer = #<CLOSURE (lambda (stream clim-internals::cont) :in accept-1) {1014C9043B}>
stream = #<standard-input-editing-stream {1014C90483}>
23: ((flet #:cleanup-fun-209 :in clim-internals::invoke-with-input-editing)) [cleanup]
Locals:
clim-internals::editing-stream = #<standard-input-editing-stream {1014C90483}>
clim-internals::input-sensitizer = #<CLOSURE (lambda (stream clim-internals::cont) :in accept-1) {1014C9043B}>
24: ((:method clim-internals::invoke-with-input-editing (clim-stream-pane t t t t)) #<clim-listener::listener-interactor-pane clim-listener::interactor {1013E7A253}> #<CLOSURE (lambda (stream) :in accept-..
Locals:
class = standard-input-editing-stream
clim-internals::continuation = #<CLOSURE (lambda (stream) :in accept-1) {1014C9039B}>
clim-internals::editing-stream = #<standard-input-editing-stream {1014C90483}>
clim-internals::initial-contents = ""
clim-internals::input-sensitizer = #<CLOSURE (lambda (stream clim-internals::cont) :in accept-1) {1014C9043B}>
stream = #<clim-listener::listener-interactor-pane clim-listener::interactor {1013E7A253}>
25: ((flet call-next-method :in "/home/francis/quicklisp/dists/quicklisp/software/mcclim-20140616-git/input-editing.lisp"))
Locals:
sb-pcl::.next-method-call. = #S(sb-pcl::fast-method-call ..)
class = standard-input-editing-stream
sb-pcl::cnm-args = nil
clim-internals::continuation = #<CLOSURE (lambda (stream) :in accept-1) {1014C9039B}>
clim-internals::initial-contents = ""
clim-internals::input-sensitizer = #<CLOSURE (lambda (stream clim-internals::cont) :in accept-1) {1014C9043B}>
stream = #<clim-listener::listener-interactor-pane clim-listener::interactor {1013E7A253}>
26: ((:method clim-internals::invoke-with-input-editing :around (t t t t t)) #<clim-listener::listener-interactor-pane clim-listener::interactor {1013E7A253}> #<CLOSURE (lambda (stream) :in accept-1) {101..
Locals:
sb-pcl::.next-method-call. = #S(sb-pcl::fast-method-call ..)
class = standard-input-editing-stream
clim-internals::continuation = #<CLOSURE (lambda (stream) :in accept-1) {1014C9039B}>
clim-internals::initial-contents = ""
clim-internals::input-sensitizer = #<CLOSURE (lambda (stream clim-internals::cont) :in accept-1) {1014C9043B}>
stream = #<clim-listener::listener-interactor-pane clim-listener::interactor {1013E7A253}>
27: ((flet call-next-method :in "/home/francis/quicklisp/dists/quicklisp/software/mcclim-20140616-git/input-editing.lisp"))
Locals:
sb-pcl::.next-method-call. = #S(sb-pcl::fast-method-call ..)
class = standard-input-editing-stream
sb-pcl::cnm-args = nil
clim-internals::continuation = #<CLOSURE (lambda (stream) :in accept-1) {1014C9039B}>
clim-internals::initial-contents = ""
clim-internals::input-sensitizer = #<CLOSURE (lambda (stream clim-internals::cont) :in accept-1) {1014C9043B}>
stream = #<clim-listener::listener-interactor-pane clim-listener::interactor {1013E7A253}>
28: ((:method clim-internals::invoke-with-input-editing :around (extended-output-stream t t t t)) #<clim-listener::listener-interactor-pane clim-listener::interactor {1013E7A253}> #<CLOSURE (lambda (strea..
Locals:
sb-pcl::.next-method-call. = #S(sb-pcl::fast-method-call ..)
class = standard-input-editing-stream
clim-internals::continuation = #<CLOSURE (lambda (stream) :in accept-1) {1014C9039B}>
clim-internals::initial-contents = ""
clim-internals::input-sensitizer = #<CLOSURE (lambda (stream clim-internals::cont) :in accept-1) {1014C9043B}>
stream = #<clim-listener::listener-interactor-pane clim-listener::interactor {1013E7A253}>
29: (accept-1 #<clim-listener::listener-interactor-pane clim-listener::interactor {1013E7A253}> command-or-form :view nil :default "hello" :default-type clim-listener::empty-input :provide-default #<unuse..
Locals:
clim-internals::activation-gestures = (:newline :return)
#:n-supplied-1565 = nil
#:n-supplied-1566 = t
#:n-supplied-1567 = t
#:n-supplied-1568 = nil
#:n-supplied-1569 = nil
#:n-supplied-1570 = nil
#:n-supplied-1571 = nil
clim-internals::sensitizer-object = nil
clim-internals::sensitizer-type = nil
common-lisp:stream = #<clim-listener::listener-interactor-pane clim-listener::interactor {1013E7A253}>
common-lisp:type = command-or-form
view = #<clim-listener::listener-view {10080CEC83}>
#:|activation-gestures-DEFAULTING-TEMP| = nil
#:|additional-activation-gestures-DEFAULTING-TEMP| = nil
#:|additional-delimiter-gestures-DEFAULTING-TEMP| = nil
#:|default-DEFAULTING-TEMP| = "hello"
#:|default-type-DEFAULTING-TEMP| = clim-listener::empty-input
#:|delimiter-gestures-DEFAULTING-TEMP| = nil
#:|insert-default-DEFAULTING-TEMP| = nil
#:|replace-input-DEFAULTING-TEMP| = t
#:|view-DEFAULTING-TEMP| = nil
30: ((:method stream-accept (standard-extended-input-stream t)) #<clim-listener::listener-interactor-pane clim-listener::interactor {1013E7A253}> command-or-form :default-type clim-listener::empty-input :..
Locals:
#:n-supplied-1436 = nil
#:rest-context-1434 = 70368531671276
#:rest-count-1435 = 8
stream = #<clim-listener::listener-interactor-pane clim-listener::interactor {1013E7A253}>
type = command-or-form
view = #<clim-listener::listener-view {10080CEC83}>
#:|view-DEFAULTING-TEMP| = nil
sb-debug::more = (:default-type clim-listener::empty-input :prompt nil :default "hello" ...)
31: ((sb-pcl::emf stream-accept) #<unused argument> #<unused argument> #<clim-listener::listener-interactor-pane clim-listener::interactor {1013E7A253}> command-or-form :default-type clim-listener::empty-..
Locals:
sb-pcl::.arg0. = #<clim-listener::listener-interactor-pane clim-listener::interactor {1013E7A253}>
sb-pcl::.arg1. = command-or-form
sb-pcl::.dfun-more-context. = 70368531671344
sb-pcl::.dfun-more-count. = 8
sb-pcl::.keyargs-start. = 0
sb-pcl::.valid-keys. = t
sb-pcl::effective-method-gensym-0 = #S(sb-pcl::fast-method-call :function #<FUNCTION (sb-pcl::fast-method stream-accept (standard-extended-input-stream t))> :pv nil :next-method-call nil :arg-info (2 . t))
sb-debug::more = (:default-type clim-listener::empty-input :prompt nil :default "hello" ...)
32: ((labels clim-internals::do-accept :in accept) (:default-type clim-listener::empty-input :prompt nil :default "hello" ...))
Locals:
clim-internals::args = (:default-type clim-listener::empty-input :prompt nil :default "hello" ...)
clim-internals::real-type = command-or-form
stream = #<clim-listener::listener-interactor-pane clim-listener::interactor {1013E7A253}>
33: (accept command-or-form :stream #<clim-listener::listener-interactor-pane clim-listener::interactor {1013E7A253}> :prompt nil :default "hello" :default-type clim-listener::empty-input)
Locals:
#:added1338 = 255
clim-internals::default-from-history = nil
clim-internals::history = #<clim-internals::presentation-history {1007AAF503}>
#:n-supplied-1320 = t
#:n-supplied-1321 = nil
#:n-supplied-1322 = t
#:n-supplied-1323 = t
#:n-supplied-1324 = nil
clim-internals::real-default-type = clim-listener::empty-input
clim-internals::real-history-type = command-or-form
clim-internals::real-type = command-or-form
clim-internals::rest-args = (:stream #<clim-listener::listener-interactor-pane clim-listener::interactor {1013E7A253}> :prompt nil :default "hello" ...)
clim-internals::rest-args#1 = (:default-type clim-listener::empty-input :prompt nil :default "hello" ...)
common-lisp:stream = #<clim-listener::listener-interactor-pane clim-listener::interactor {1013E7A253}>
common-lisp:type = command-or-form
#:|default-DEFAULTING-TEMP| = "hello"
#:|default-type-DEFAULTING-TEMP| = clim-listener::empty-input
#:|history-DEFAULTING-TEMP| = nil
#:|provide-default-DEFAULTING-TEMP| = nil
#:|stream-DEFAULTING-TEMP| = #<clim-listener::listener-interactor-pane clim-listener::interactor {1013E7A253}>
#:|view-DEFAULTING-TEMP| = nil
34: ((flet #:cont789 :in read-frame-command) #<clim-listener::listener-interactor-pane clim-listener::interactor {1013E7A253}>)
Locals:
stream = #<clim-listener::listener-interactor-pane clim-listener::interactor {1013E7A253}>
35: ((flet #:cont487 :in invoke-with-text-style) #<unused argument>)
Locals:
clim-internals::continuation = #<FUNCTION (flet #:cont789 :in read-frame-command) {100CA0B47B}>
sheet = #<clim-listener::listener-interactor-pane clim-listener::interactor {1013E7A253}>
36: ((:method invoke-with-text-style (medium t t)) #<clim-clx::clx-medium {101439F1D3}> #<CLOSURE (flet #:cont487 :in invoke-with-text-style) {7FFFE6AAD8AB}> #<standard-text-style :fix :roman :normal>) [f..
Locals:
clim-internals::continuation = #<CLOSURE (flet #:cont487 :in invoke-with-text-style) {7FFFE6AAD8AB}>
#:g509 = #<standard-text-style :sans-serif :roman :normal>
medium = #<clim-clx::clx-medium {101439F1D3}>
#:new507 = #<standard-text-style :fix :roman :normal>
text-style = #<standard-text-style :fix :roman :normal>
37: ((lambda (sb-pcl::.arg0. sb-pcl::.arg1. sb-pcl::.arg2.)) #<clim-clx::clx-medium {101439F1D3}> #<CLOSURE (flet #:cont487 :in invoke-with-text-style) {7FFFE6AAD8AB}> #<standard-text-style :fix :roman :n..
Locals:
sb-pcl::.arg0. = #<clim-clx::clx-medium {101439F1D3}>
sb-pcl::.arg1. = #<CLOSURE (flet #:cont487 :in invoke-with-text-style) {7FFFE6AAD8AB}>
sb-pcl::.arg2. = #<standard-text-style :fix :roman :normal>
sb-pcl::cache = #<sb-pcl::cache 2 keys, value, 3/8 lines, depth 1/2 {101455D483}>
sb-pcl::miss-fn = #<CLOSURE (lambda (&rest sb-pcl::args) :in sb-pcl::make-caching-dfun) {101455D56B}>
38: ((:method invoke-with-text-style (sheet t t)) #<clim-listener::listener-interactor-pane clim-listener::interactor {1013E7A253}> #<FUNCTION (flet #:cont789 :in read-frame-command) {100CA0B47B}> #<stand..
Locals:
clim-internals::continuation = #<FUNCTION (flet #:cont789 :in read-frame-command) {100CA0B47B}>
medium = #<clim-clx::clx-medium {101439F1D3}>
sheet = #<clim-listener::listener-interactor-pane clim-listener::interactor {1013E7A253}>
text-style = #<standard-text-style :fix :roman :normal>
39: ((lambda (sb-pcl::.arg0. sb-pcl::.arg1. sb-pcl::.arg2.)) #<clim-listener::listener-interactor-pane clim-listener::interactor {1013E7A253}> #<FUNCTION (flet #:cont789 :in read-frame-command) {100CA0B47..
Locals:
sb-pcl::.arg0. = #<clim-listener::listener-interactor-pane clim-listener::interactor {1013E7A253}>
sb-pcl::.arg1. = #<FUNCTION (flet #:cont789 :in read-frame-command) {100CA0B47B}>
sb-pcl::.arg2. = #<standard-text-style :fix :roman :normal>
sb-pcl::cache = #<sb-pcl::cache 2 keys, value, 3/8 lines, depth 1/2 {101455D483}>
sb-pcl::miss-fn = #<CLOSURE (lambda (&rest sb-pcl::args) :in sb-pcl::make-caching-dfun) {101455D56B}>
40: ((:method read-frame-command (clim-listener::listener)) #<unused argument> :stream #<clim-listener::listener-interactor-pane clim-listener::interactor {1013E7A253}>) [fast-method]
Locals:
#:n-supplied-785 = t
stream = #<clim-listener::listener-interactor-pane clim-listener::interactor {1013E7A253}>
#:|stream-DEFAULTING-TEMP| = #<clim-listener::listener-interactor-pane clim-listener::interactor {1013E7A253}>
41: ((flet call-next-method :in "/home/francis/quicklisp/dists/quicklisp/software/mcclim-20140616-git/frames.lisp"))
Locals:
sb-pcl::.next-method-call. = #S(sb-pcl::fast-method-call ..)
sb-pcl::.rest-arg. = (:stream #<clim-listener::listener-interactor-pane clim-listener::interactor {1013E7A253}>)
sb-pcl::cnm-args = nil
clim-internals::frame = #<clim-listener::listener {100A12D563}>
42: ((:method read-frame-command :around (application-frame)) #<clim-listener::listener {100A12D563}> :stream #<clim-listener::listener-interactor-pane clim-listener::interactor {1013E7A253}>) [fast-metho..
Locals:
sb-pcl::.next-method-call. = #S(sb-pcl::fast-method-call ..)
sb-pcl::.rest-arg. = (:stream #<clim-listener::listener-interactor-pane clim-listener::interactor {1013E7A253}>)
clim-internals::frame = #<clim-listener::listener {100A12D563}>
43: ((:method default-frame-top-level (application-frame)) #<clim-listener::listener {100A12D563}> :command-parser command-line-command-parser :command-unparser command-line-command-unparser :partial-comm..
Locals:
clim-internals::first-time = nil
clim-internals::frame = #<clim-listener::listener {100A12D563}>
clim-internals::query-io = #<clim-listener::listener-interactor-pane clim-listener::interactor {1013E7A253}>
#:|command-parser-DEFAULTING-TEMP| = command-line-command-parser
#:|command-unparser-DEFAULTING-TEMP| = command-line-command-unparser
#:|partial-command-parser-DEFAULTING-TEMP| = command-line-read-remaining-arguments-for-partial-command
#:|prompt-DEFAULTING-TEMP| = clim-listener::print-listener-prompt
44: ((sb-pcl::emf default-frame-top-level) #<unused argument> #<unused argument> #<clim-listener::listener {100A12D563}> :prompt clim-listener::print-listener-prompt)
Locals:
sb-pcl::.arg0. = #<clim-listener::listener {100A12D563}>
sb-pcl::.dfun-more-context. = 70368531672700
sb-pcl::.dfun-more-count. = 2
sb-pcl::.keyargs-start. = 0
sb-pcl::.valid-keys. = (:command-parser :command-unparser :partial-command-parser :prompt)
sb-pcl::effective-method-gensym-0 = #S(sb-pcl::fast-method-call :function #<FUNCTION (sb-pcl::fast-method default-frame-top-level (application-frame))> :pv nil :next-method-call nil :arg-info (1 . t))
sb-debug::more = (:prompt clim-listener::print-listener-prompt)
45: ((lambda (#:frame-arg302) :in "/home/francis/quicklisp/dists/quicklisp/software/mcclim-20140616-git/Apps/Listener/listener.lisp") #<clim-listener::listener {100A12D563}>)
Locals:
#:frame-arg302 = #<clim-listener::listener {100A12D563}>
46: ((flet #:form-fun-690 :in run-frame-top-level))
Locals:
clim-internals::frame = #<clim-listener::listener {100A12D563}>
47: ((:method run-frame-top-level (application-frame)) #<clim-listener::listener {100A12D563}>) [fast-method]
Locals:
clim-internals::frame = #<clim-listener::listener {100A12D563}>
#:g676 = nil
#:new674 = #S(clim-internals::process ..)
48: ((flet call-next-method :in "/home/francis/quicklisp/dists/quicklisp/software/mcclim-20140616-git/frames.lisp"))
Locals:
sb-pcl::.next-method-call. = #S(sb-pcl::fast-method-call :function #<FUNCTION (sb-pcl::fast-method run-frame-top-level (application-frame))> :pv nil :next-method-call nil :arg-info (1 . t))
sb-pcl::.rest-arg. = nil
sb-pcl::cnm-args = nil
clim-internals::frame = #<clim-listener::listener {100A12D563}>
49: ((flet #:form-fun-792 :in run-frame-top-level))
Locals:
sb-pcl::.next-method-call. = #S(sb-pcl::fast-method-call :function #<FUNCTION (sb-pcl::fast-method run-frame-top-level (application-frame))> :pv nil :next-method-call nil :arg-info (1 . t))
sb-pcl::.rest-arg. = nil
clim-internals::frame = #<clim-listener::listener {100A12D563}>
#:old-stream793 = nil
clim-internals::query-io = 70368531673668
50: ((:method run-frame-top-level :around (application-frame)) #<clim-listener::listener {100A12D563}>) [fast-method]
Locals:
sb-pcl::.next-method-call. = #S(sb-pcl::fast-method-call :function #<FUNCTION (sb-pcl::fast-method run-frame-top-level (application-frame))> :pv nil :next-method-call nil :arg-info (1 . t))
sb-pcl::.rest-arg. = nil
clim-internals::frame = #<clim-listener::listener {100A12D563}>
clim-internals::original-state = :disabled
clim-internals::query-io = #<clim-listener::listener-interactor-pane clim-listener::interactor {1013E7A253}>
51: ((flet clim-listener::run :in clim-listener:run-listener))
Locals:
clim-listener::fm = #<clim-clx::clx-frame-manager {1009ADB633}>
clim-listener::frame = #<clim-listener::listener {100A12D563}>
#:|package-DEFAULTING-TEMP| = :clim-user
52: ((flet #:without-interrupts-body-290 :in clim-sys:restart-process))
Locals:
#:outer-allow-with-interrupts-289 = t
clim-internals::p = #S(clim-internals::process ..)
53: ((labels clim-internals::boing :in clim-sys:restart-process))
Locals:
clim-internals::p = #S(clim-internals::process ..)
54: ((flet #:without-interrupts-body-1226 :in sb-thread::initial-thread-function-trampoline))
[No Locals]
Catch-tags:
sb-thread::%return-from-thread
55: ((flet sb-thread::with-mutex-thunk :in sb-thread::initial-thread-function-trampoline))
[No Locals]
Catch-tags:
sb-thread::%abort-thread
sb-impl::%end-of-the-world
sb-int:toplevel-catcher
56: ((flet #:without-interrupts-body-660 :in sb-thread::call-with-mutex))
[No Locals]
57: (sb-thread::call-with-mutex #<CLOSURE (flet sb-thread::with-mutex-thunk :in sb-thread::initial-thread-function-trampoline) {7FFFE6AAEBAB}> #<sb-thread:mutex "thread result lock" owner: #<sb-thread:thr..
Locals:
sb-debug::arg-0 = #<CLOSURE (flet sb-thread::with-mutex-thunk :in sb-thread::initial-thread-function-trampoline) {7FFFE6AAEBAB}>
sb-debug::arg-1 = #<sb-thread:mutex "thread result lock" owner: #<sb-thread:thread "Listener" running {10058AD293}>>
sb-debug::arg-2 = nil
sb-debug::arg-3 = t
sb-debug::arg-4 = nil
58: (sb-thread::initial-thread-function-trampoline #<sb-thread:thread "Listener" running {10058AD293}> #S(sb-thread:semaphore :name "Thread setup semaphore" :%count 0 :waitcount 0 :mutex #<sb-thread:mutex..
Locals:
sb-debug::arg-0 = #<sb-thread:thread "Listener" running {10058AD293}>
sb-debug::arg-1 = #S(sb-thread:semaphore :name "Thread setup semaphore" :%count 0 :waitcount 0 :mutex #<sb-thread:mutex (free) {10058AD303}> :queue #<sb-thread:waitqueue {10058AD333}>)
sb-debug::arg-2 = #<CLOSURE (labels clim-internals::boing :in clim-sys:restart-process) {10058AD21B}>
sb-debug::arg-3 = nil
sb-debug::arg-4 = nil
sb-debug::arg-5 = nil
sb-debug::arg-6 = nil
59: ("foreign function: call_into_lisp")
60: ("foreign function: new_thread_trampoline")
To reproduce: ()
(clim-listener:run-listener :new-process t)
;; in the clim listener ``(setq mm::*hack* *standard-output*)``
(defun gen (i)
(let* ((out-and-start '(f x)))
(loop
for k from 0 to i
do (setq out-and-start (apply #'append (mapcar (lambda (s) (case s (x '(f + f y f + y f - + +)) (y '(- y f - x + - y)))) out-and-start))))
(remove-if (lambda (sym) (member sym '(x y) :test 'eq)) out-and-start)))
(let* ((x 450) (y 450) (new-x x) (new-y y) (a 1) (step 15))
(loop
for r in (gen 10)
do (progn (cond ((= a 1) (setq new-y (+ step y)))
((= a 2) (setq new-x (- x step)))
((= a 3) (setq new-y (- y step)))
((= a 4) (setq new-x (+ step x))))
(case r
(f (draw-line* mm::*hack* x y new-x new-y :ink +blue+ :line-thickness 3)
(setq x new-x y new-y))
(- (setq a (if (= 1 a) 4 (1- a))))
(+ (setq a (if (= 4 a) 1 (1+ a))))
(t nil)))))
I'm not sure how to make this example run... my familiarity with (Mc)CLIM is limited. Can you provide a complete example?
(clim-listener:run-listener :new-process t) ;; run this line at repl to launch the listener
;; in the clim listener (setq mm::*hack* *standard-output*) mm::hack can be anything really, we just need to be able to access the pane.
Then run the code starting with defining `gen' which generates a large tree.
I've run into this same exception in a few places, namely when generating large trees. I've not the time to hunt down the issue now, but will be leaving this open as a placeholder for when I do.