anchor.diff:        (values c-ptr index))))
   
   (defun count-sstring-octets (sstring)
  +  (declare (optimize (speed 3) (safety 0) (debug 0)))
     (loop :with len := (length sstring)
           :with end-offset := (1- len)
           :for i :below len
  
positive.code:   (defconstant +cstring-path-max+ 65535))
  
  (defun sstring-to-cstring (sstring c-ptr)
    (let ((index 0))
      (flet ((output-octet (octet)
               (setf (cffi:mem-aref c-ptr :unsigned-char index) octet)
  
negative.code:                '(simple-array (unsigned-byte 8) (256))))))
      (aref (the (simple-array (unsigned-byte 8) (256)) vec) code)))
  
  (declaim (inline offsets-from-utf8))
  (defun offsets-from-utf8 (extra-bytes)
    (declare (type (mod 4) extra-bytes)
             (optimize (speed 3) (safety 0) (debug 0)))
  