[cl-containers-devel] Problems with priority queues

[Gary King]

Hi Josip,

The good news is that the version on the web is the same as the  
version I have here. The bad news is that this means there is a bug.  
This is such an obvious problem that I'm guessing it's bit-rot -- CL- 
Containers has next to no testsuite. I'll continue to look at this  
and try to get a fix out tonight.

thanks again for pointing it out to me and the list!

On Jul 9, 2007, at 5:36 AM, Josip Gracin wrote:

> Hi!
>
> Is the version of cl-containers available to asdf-install up to  
> date?     I ask because the following doesn't work in the version I  
> get from asdf-install:
>
> (let ((c (make-container 'priority-queue-on-container)))
>   (insert-item c 2)
>   (insert-item c 1)
>   (insert-item c 3)
>   (delete-element c 2))
>
>
> I get:
>
> debugger invoked on a SIMPLE-ERROR in thread #<THREAD "initial  
> thread" {A69C6E9}>:
>   There is no applicable method for the generic function
>     #<STANDARD-GENERIC-FUNCTION LEFT-CHILD (1)>
>   when called with arguments
>     (3).
>
> 0: ((SB-PCL::FAST-METHOD NO-APPLICABLE-METHOD (T))
>     #<unavailable argument>
>     #<unavailable argument>
>     #<STANDARD-GENERIC-FUNCTION LEFT-CHILD (1)>)
> 1: ((SB-PCL::FAST-METHOD DELETE-NODE (BINARY-SEARCH-TREE BST-NODE))
>     #<unavailable argument>
>     #<unavailable argument>
>     #<BINARY-SEARCH-TREE {A9D2EF1}>
>     #<BST-NODE 2>)
> 2: ((LAMBDA
>         (SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL. SB-PCL::.ARG0.
>          SB-PCL::.ARG1.))
>     #<unavailable argument>
>     #<unavailable argument>
>     #<BINARY-SEARCH-TREE {A9D2EF1}>
>     #<BST-NODE 2>)
> 3: (SB-INT:SIMPLE-EVAL-IN-LEXENV
>     (LET ((C (MAKE-CONTAINER 'PRIORITY-QUEUE-ON-CONTAINER)))
>       (INSERT-ITEM C 2)
>       (INSERT-ITEM C 1)
>       (INSERT-ITEM C 3)
>       (DELETE-ELEMENT C 2))
>     #<NULL-LEXENV>)
> _______________________________________________
> cl-containers-devel mailing list
> cl-containers-devel at common-lisp.net
> http://common-lisp.net/cgi-bin/mailman/listinfo/cl-containers-devel

--
Gary Warren King, metabang.com
Cell: (413) 885 9127
Fax: (206) 338-4052
gwkkwg on Skype * garethsan on AIM