(let ((outbuf (make-array (list (- end start)) :element-type '(unsigned-byte 8) :adjustable t :fill-pointer 0)))
(funcall encoder seq outbuf)
(write-sequence outbuf back))))
(let ((outbuf (make-array (list (- end start)) :element-type '(unsigned-byte 8) :adjustable t :fill-pointer 0)))
(funcall encoder seq outbuf)
(write-sequence outbuf back))))