Function: CALL-NEXT-STRATEGIE

Source

(defun call-next-strategie (pool)
  (funcall (pool-next-strategie pool)
	   (pool-store pool)))