<HTML><BODY style="word-wrap: break-word; -khtml-nbsp-mode: space; -khtml-line-break: after-white-space; ">Hi Modius,<DIV><BR class="khtml-block-placeholder"></DIV><DIV>I've verified the incorrect behavior and believe I have a fix; FWIW, the problem is only with the size method. Anything involving the contents of the red-black tree should work fine.</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV>I'll try to get the patch out sometime tomorrow. Thanks again for your report.</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV><BR><DIV><DIV>On Mar 18, 2007, at 1:53 AM, Modius Roman wrote:</DIV><BR class="Apple-interchange-newline"><BLOCKQUOTE type="cite"><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><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">_______________________________________________</DIV><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; ">cl-containers-devel mailing list</DIV><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; "><A href="mailto:cl-containers-devel@common-lisp.net">cl-containers-devel@common-lisp.net</A></DIV><DIV style="margin-top: 0px; margin-right: 0px; margin-bottom: 0px; margin-left: 0px; "><A href="http://common-lisp.net/cgi-bin/mailman/listinfo/cl-containers-devel">http://common-lisp.net/cgi-bin/mailman/listinfo/cl-containers-devel</A></DIV> </BLOCKQUOTE></DIV><BR><DIV> <SPAN class="Apple-style-span" style="border-collapse: separate; border-spacing: 0px 0px; color: rgb(0, 0, 0); font-family: Helvetica; font-size: 12px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; text-align: auto; -khtml-text-decorations-in-effect: none; text-indent: 0px; -apple-text-size-adjust: auto; text-transform: none; orphans: 2; white-space: normal; widows: 2; word-spacing: 0px; "><SPAN class="Apple-style-span" style="border-collapse: separate; border-spacing: 0px 0px; color: rgb(0, 0, 0); font-family: Helvetica; font-size: 12px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; text-align: auto; -khtml-text-decorations-in-effect: none; text-indent: 0px; -apple-text-size-adjust: auto; text-transform: none; orphans: 2; white-space: normal; widows: 2; word-spacing: 0px; "><SPAN class="Apple-style-span" style="border-collapse: separate; border-spacing: 0px 0px; color: rgb(0, 0, 0); font-family: Helvetica; font-size: 12px; font-style: normal; font-variant: normal; font-weight: normal; letter-spacing: normal; line-height: normal; text-align: auto; -khtml-text-decorations-in-effect: none; text-indent: 0px; -apple-text-size-adjust: auto; text-transform: none; orphans: 2; white-space: normal; widows: 2; word-spacing: 0px; "><DIV>--</DIV><DIV>Gary Warren King, metabang.com </DIV><DIV>Cell: (413) 885 9127</DIV><DIV>Fax: (206) 338-4052</DIV></SPAN><DIV>gwkkwg on Skype * garethsan on AIM</DIV><DIV><BR class="khtml-block-placeholder"></DIV><DIV><BR class="khtml-block-placeholder"></DIV></SPAN><BR class="Apple-interchange-newline"></SPAN> </DIV><BR></DIV></BODY></HTML>