[cl-containers-devel] Problems with priority queues

[Josip Gracin]

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>)