anchor.diff:  (defclass fixed-vector-pool (vector-pool)
     ((%buffers
       :type (vector :type 'list)
  -    :initarg :buffers
       :accessor access-buffers)
      (%smallest-buffer-size
       :type index
  
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: 
  @export
  (defgeneric return-container (container))
  
  
  @export
  (defgeneric make-buffer (replacer size))
  
  
  @export
  