Changeset 3960

Timestamp:

2016-05-30T10:59:17-07:00 (8 years ago)

Author:

Marek Rychlik

Message:

* empty log message *

File:

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

branches/f4grobner/pair-queue.lisp

@@ -123 +123 @@
 
 
-#|
-(defun pair-queue-insert (b pair)
-  (priority-queue-insert b pair))
+(defgeneric enqueue (self object)
+  (:documentation "Insert an object into a queue SELF.")
+  (:method ((self critical-pair-queue) (pair critical-pair))
+    (with-slots (pq)
+        self
+      (priority-queue-insert pq pair))))
 
-(defun pair-queue-remove (b)
-  (priority-queue-remove b))
+(defgeneric dequeue (self) 
+  (:method ((self critical-pair-queue))
+    (with-slots (pq)
+        self
+      (priority-queue-remove pq))))
 
-(defun pair-queue-size (b)
-  (priority-queue-size b))
+(defgeneric queue-size (self) 
+  (:method ((self critical-pair-queue))
+    (with-slots (pq)
+        self
+      (priority-queue-size pq))))
 
-(defun pair-queue-empty-p (b)
-  (priority-queue-empty-p b))
+(defgeneric queue-empty-p (self)
+  (:method (self)
+    (with-slots (pq)
+        self
+      (priority-queue-empty-p pq))))
 
-
-
-
-|#