close Warning: Can't synchronize with repository "(default)" (The repository directory has changed, you should resynchronize the repository with: trac-admin $ENV repository resync '(default)'). Look in the Trac log for more information.

Changeset 4001


Ignore:
Timestamp:
2016-05-30T21:31:11-07:00 (8 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/priority-queue.lisp

    r4000 r4001  
    4242                                  (test #'<=)
    4343                                  (element-key #'identity))
    44   (with-accessors ((heap priority-queue-heap)
    45                    (test-x priority-queue-test))
     44  (with-slots (heap (test-x test))
    4645      self
    4746    (setf heap (make-heap :element-type element-type)
    … …  
    5453      (heap-insert heap item test))
    5554    self))
    56 
    5755
    5856(defgeneric dequeue (self)
Note: See TracChangeset for help on using the changeset viewer.