close Warning: Can't synchronize with repository "(default)" (The repository directory has changed, you should resynchronize the repository with: trac-admin $ENV repository resync '(default)'). Look in the Trac log for more information.

Changeset 3981


Ignore:
Timestamp:
2016-05-30T20:46:47-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/f4grobner/heap.lisp

    r3980 r3981  
    2929  (:use :cl)
    3030  (:export "+HEAP-ALLOCATION-SIZE+"
     31           "MAKE-HEAP"
     32           "HEAP-SIZE"
     33           "HEAP-UPHEAP"
     34           "HEAP-INSERT"
    3135           ))
    3236
     
    3539
    3640(defun make-heap (&key (element-type 'fixnum))
    37   (make-array *priority-queue-allocation-size* :element-type element-type :fill-pointer 1
     41  (make-array +heap-allocation-size+ :element-type element-type :fill-pointer 1
    3842              :adjustable t))
    3943
Note: See TracChangeset for help on using the changeset viewer.