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
  (defgeneric return-container (container))
  
  
  @export
  
negative.code: (export '(read-smallest-buffer-size largest-buffer-size))
  
  
  (defmethod initialize-instance ((instance fixed-vector-pool)
                                  &key smallest-buffer-size largest-buffer-size
                                  &allow-other-keys)
    (setf (slot-value instance '%buffers)
          (make-array (- largest-buffer-size smallest-buffer-size)
                      :element-type 'list
                      :initial-element nil)))
  
  
  @export
  (defun make-fixed-vector-pool (smallest-buffer largest-buffer)
    (declare (type index smallest-buffer largest-buffer))
    (make-instance 'fixed-vector-pool
                   :smallest-buffer-size smallest-buffer
                   :largest-buffer-size largest-buffer))
  
  