Function: POOL-MAKE-MAX-SIZED

Source

(defun pool-make-max-sized (max-size pool)
  (let ((old-add-strategie (pool-add-strategie pool)))
    (setf (pool-add-strategie pool)
	  (lambda (obj store)
	    (when (< (pool-count pool) max-size)
	      (funcall old-add-strategie obj store))))
    pool))