(defun make-return-buffer (writer use data) (if use (let ((ret-buf (alloc-cbuffer))) (funcall writer data ret-buf) (values t ret-buf)) (values nil nil)))