Function: POOL-NEXT

Documentation

returns the next object from the pool

Source

(defun pool-next (pool)
  "returns the next object from the pool"
  (unless (empty-pool-p pool)
    (multiple-value-bind (obj removed)
	(call-next-strategie pool)
      (when removed
	(decf (pool-count pool)))
      obj)))