Changeset 3993 for branches/f4grobner

Timestamp:

2016-05-30T21:13:07-07:00 (9 years ago)

Author:

Marek Rychlik

Message:

* empty log message *

File:

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

branches/f4grobner/priority-queue.lisp

@@ -23 +23 @@
   (:use :cl :heap)
   (:export "PRIORITY-QUEUE"
-           "MAKE-PRIORITY-QUEUE"
-           "PRIORITY-QUEUE-INSERT"
-           "PRIORITY-QUEUE-REMOVE"
-           "PRIORITY-QUEUE-EMPTY-P"
-           "PRIORITY-QUEUE-SIZE"
+           "ENQUEUE"
+           "DEQUEUE"
+           "QUEUE-EMPTY-P"
+           "QUEUE-SIZE"
            )
   (:documentation "Implements a priority queue."))
@@ -35 +34 @@
 (defclass priority-queue ()
   ((heap :initarg :heap :accessor priority-queue-heap)
-   (test :initarg :ters :accessor priority-queue-test))
+   (test :initarg :test :accessor priority-queue-test))
   (:documentation "Representa a priority queue."))