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 4137


Ignore:
Timestamp:
2016-06-01T20:00:48-07:00 (8 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/priority-queue.lisp

    r4136 r4137  
    3333
    3434(defclass priority-queue ()
    35   ((element-type :initarg :element-type :reader priority-queue-element-type :type symbol)
     35  ((element-type :initarg :element-type :initform 'fixnum :reader priority-queue-element-type :type symbol)
    3636   (heap :initarg :heap :reader priority-queue-heap)
    3737   (test :initarg :test :reader priority-queue-test))
    … …  
    4141(defmethod initialize-instance :after ((self priority-queue)
    4242                                       &key
    43                                          (element-type 'fixnum)
    4443                                         (test #'<=)
    4544                                         (element-key #'identity))
    46   (with-slots (heap (test-x test))
     45  (with-slots (heap (test-x test) element-type)
    4746      self
    4847    (setf heap (make-heap :element-type element-type)
Note: See TracChangeset for help on using the changeset viewer.