(defmacro with-cbuffer (var &body body) `(let ((,var (alloc-cbuffer))) (unwind-protect (progn ,@body) (free-cbuffer ,var))))