(defun (setf cbuffer-byte) (value buf pos) (when (cbuffer-checkbounds buf pos t) (setf (mem-aref (cbuffer-data buf) :uchar pos) value)))