Changeset 4150

Timestamp:

2016-06-02T23:39:40-07:00 (9 years ago)

Author:

Marek Rychlik

Message:

* empty log message *

File:

• branches/f4grobner/priority-queue.lisp (modified) (1 diff)

branches/f4grobner/priority-queue.lisp

@@ -48 +48 @@
 
 
-(defmethod initialize-instance :after ((self priority-queue) 
+(defmethod initialize-instance :around ((self priority-queue) 
                                        &key 
                                          (test #'<=)
                                          (element-key #'identity))
-  (format t "PRIORITY-QUEUE::INITIALIZE-INSTANCE :AROUND~%")
+  "Fill in the HEAP slot with an instance of a heap. NOTE: This has to
+  be an :AROUND method, so that the slot ELEMENT-TYPE can be
+  initialized in a BEFORE method of a subclass of PRIORITY-QUEUE."
   (with-slots (heap (test-x test) element-type)
       (call-next-method)
+    (inspect self)
     (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))))
+    (inspect self))
   self)