Changeset 4137
- Timestamp:
- 2016-06-01T20:00:48-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/priority-queue.lisp
r4136 r4137 33 33 34 34 (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) 36 36 (heap :initarg :heap :reader priority-queue-heap) 37 37 (test :initarg :test :reader priority-queue-test)) … … 41 41 (defmethod initialize-instance :after ((self priority-queue) 42 42 &key 43 (element-type 'fixnum)44 43 (test #'<=) 45 44 (element-key #'identity)) 46 (with-slots (heap (test-x test) )45 (with-slots (heap (test-x test) element-type) 47 46 self 48 47 (setf heap (make-heap :element-type element-type)
Note:
See TracChangeset
for help on using the changeset viewer.