Changeset 3981 for branches/f4grobner
- Timestamp:
- 2016-05-30T20:46:47-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/heap.lisp
r3980 r3981 29 29 (:use :cl) 30 30 (:export "+HEAP-ALLOCATION-SIZE+" 31 "MAKE-HEAP" 32 "HEAP-SIZE" 33 "HEAP-UPHEAP" 34 "HEAP-INSERT" 31 35 )) 32 36 … … 35 39 36 40 (defun make-heap (&key (element-type 'fixnum)) 37 (make-array *priority-queue-allocation-size*:element-type element-type :fill-pointer 141 (make-array +heap-allocation-size+ :element-type element-type :fill-pointer 1 38 42 :adjustable t)) 39 43
Note:
See TracChangeset
for help on using the changeset viewer.