Changeset 4149 for branches

Timestamp:

2016-06-02T23:22:12-07:00 (8 years ago)

Author:

Marek Rychlik

Message:

* empty log message *

File:

• branches/f4grobner/priority-queue.lisp (modified) (2 diffs)

branches/f4grobner/priority-queue.lisp

@@ -37 +37 @@
   ((element-type :initarg :element-type 
                  :initform 'fixnum 
-                 :reader priority-queue-element-type 
+                 :accessor priority-queue-element-type 
                  :type symbol
                  :documentation "Element type stored in this queue.")
    (test :initarg :test 
-         :reader priority-queue-test
+         :accessor priority-queue-test
          :documentation "The partial order used in element comparison.")
    (heap :documentation "A private slot holding the heap."))
@@ -47 +47 @@
 Slots HEAP and TEST are read-only after they are initialized."))
 
+
 (defmethod initialize-instance :after ((self priority-queue) 
                                        &key 
                                          (test #'<=)
                                          (element-key #'identity))
+  (format t "PRIORITY-QUEUE::INITIALIZE-INSTANCE :AROUND~%")
   (with-slots (heap (test-x test) element-type)
-      self
+      (call-next-method)
     (setf heap (make-heap :element-type element-type)
-          test-x #'(lambda (x y) (funcall test (funcall element-key y) (funcall element-key x))))))
+          test-x #'(lambda (x y) (funcall test (funcall element-key y) (funcall element-key x)))))
+  self)
   
 (defgeneric enqueue (self item)