Function: CALL-ADD-STRATEGIE

Source

(defun call-add-strategie (obj pool)
  (funcall (pool-add-strategie pool)
	   obj (pool-store pool)))