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.

Ignore:
Timestamp:
2016-06-01T19:56:41-07:00 (8 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/priority-queue.lisp

    r4004 r4136  
    3333
    3434(defclass priority-queue ()
    35   ((heap :initarg :heap :reader priority-queue-heap)
     35  ((element-type :initarg :element-type :reader priority-queue-element-type :type symbol)
     36   (heap :initarg :heap :reader priority-queue-heap)
    3637   (test :initarg :test :reader priority-queue-test))
    3738  (:documentation "Representa a priority queue based on heaps.
    … …  
    3940
    4041(defmethod initialize-instance :after ((self priority-queue)
    41                                 &key
    42                                   (element-type 'fixnum)
    43                                   (test #'<=)
    44                                   (element-key #'identity))
     42                                       &key
     43                                        (element-type 'fixnum)
     44                                        (test #'<=)
     45                                        (element-key #'identity))
    4546  (with-slots (heap (test-x test))
    4647      self
Note: See TracChangeset for help on using the changeset viewer.