<div> </div>
<div>I apologize in advance if I am misusing the library.</div>
<div> </div>
<div>I'm running in Win32 on Lispworks with a bunch of dependencies loaded through ASDF.</div>
<div> </div>
<div>I have the GZipped Tar file referenced on the CL-Containers download page.</div>
<div> </div>
<div> </div>
<div>Easy repetition of the bug:</div>
<div> </div>
<div>(setf m (make-instance 'Red-Black-Tree))</div>
<div>(insert-item m 31)</div>
<div>(size m) <em>; returns 1 as expected</em></div>
<div>(<strong>delete-item</strong> m 31)</div>
<div>(size m)  <em>; Should return 0, returns 1 instead.</em></div>
<div>(collect-elements m)</div>
<div> </div>
<div>Size returns 1, element list is empty.  Size never decrements - put insert/delete in a loop of a million, size will become a million.</div>
<div> </div>
<div>Replace the top line with</div>
<div>(setf m (make-instance 'binary-search-tree))</div>
<div> </div>
<div>And the size goes up and down with insert/delete, as expected.</div>
<div> </div>
<div> </div>
<div>I'd chase it down; but my lisp isn't incredibly strong and I figure the authors could track this down in 5 minutes. . . . </div>
<div> </div>
<div> </div>
<div>Thanks,</div>
<div>Matt</div>
<div> </div>
<div> </div>
<div> </div>