anchor.diff:                     (buffers access-buffers)) replace
       (let ((position (- new-size lower)))
         (unless (aref buffers position)
  -        (push (make-array (list new-size))
  +        (push (make-buffer replace new-size)
                 (aref buffers position)))
         (prog1
             (car (aref buffers position))
           (setf (aref buffers position)
                 (cdr (aref buffers position)))))))
  +
  +
  +(defmethod make-buffer ((replacer vector-replacer) size)
  +  (declare (type index size))
  +  (make-array size))
   
   
   (defmethod get-buffer ((replacer hash-vector-pool) (container vector-container) new-size)
  
positive.code: (export '(read-smallest-buffer-size largest-buffer-size))
  
  
  @export
  (defun make-fixed-vector-pool (smallest-buffer largest-buffer)
    (declare (type index smallest-buffer largest-buffer))
    (make-instance 'fixed-vector-pool
                   :buffers (let ((buffers (make-array (- largest-buffer smallest-buffer))))
                              (map-into buffers
                                        (lambda (x) (declare (ignore x))
                                          nil)
                                        buffers))
                   :smallest-buffer-size smallest-buffer
                   :largest-buffer-size largest-buffer))
  
  
negative.code: (defclass fixed-vector-pool (vector-pool)
    ((%buffers
      :type (vector :type 'list)
      :accessor access-buffers)
     (%smallest-buffer-size
      :type index
  