+(defun sap-ref-octets (sap offset count)
+ (declare (type system-area-pointer sap)
+ (fixnum offset count))
+ (let ((buffer (make-array count :element-type '(unsigned-byte 8))))
+ (dotimes (i count)
+ (setf (aref buffer i) (sap-ref-8 sap (+ offset i))))
+ buffer))
+