Function: COMPUTE-SIZE

Source

(defun compute-size (c heap)
  (floor (* c
	    (+ 1 (heap-array-increment heap)))))