Function: FREE-CBUFFER

Source

(defun free-cbuffer (buf)
  (when (and (cbuffer-p buf) (cbuffer-data buf))
    (if (pool-add buf *cbuffer-pool*) t (free-cbuffer-final buf))))