Changeset 447 for branches/f4grobner
- Timestamp:
- 2015-06-06T20:05:58-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/priority-queue.lisp
r446 r447 20 20 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 21 21 22 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 23 ;; 24 ;; A conventional implementation of priority queues based on heaps 25 ;; 26 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 27 22 28 (defpackage "PRIORITY-QUEUE" 23 29 (:use :cl) … … 29 35 "PRIORITY-QUEUE-SIZE") 30 36 31 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 32 ;; 33 ;; A conventional implementation of priority queues based on heaps 34 ;; 35 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 36 37 (in-package :priority-queue) 37 38 (defparameter *priority-queue-allocation-size* 16) 38 39
Note:
See TracChangeset
for help on using the changeset viewer.