Function: CLEAR-CBUFFER-POOL

Source

(defun clear-cbuffer-pool ()
  (unless (empty-pool-p *cbuffer-pool*)
    (free-cbuffer-final (pool-next *cbuffer-pool*))
    (clear-cbuffer-pool)))