anchor.diff:        a)))
   
   (defun encode-opaque (blk arr)
  -  (declare (type xdr-block blk))
  +  (declare (type xdr-block blk)
  +	   (type (vector (unsigned-byte 8)) arr))
     (let* ((len (length arr))
            (m (mod len 4))
            (xlen (if (zerop m) len (+ len (- 4 m)))))
  
positive.code:     (incf (xdr-block-offset blk) 8)))
  
  (defun encode-int32 (blk int32)
    (declare (type xdr-block blk))
    (space-or-lose blk 4)
    (setf (nibbles:sb32ref/be (xdr-block-buffer blk)
                              (xdr-block-offset blk))
  
negative.code:   (dolist (x array)
      (funcall item-encoder blk x)))
  
  (defun decode-fixed (blk count)
    (declare (type xdr-block blk)
  	   (type integer count))
    (let ((a (make-array count :element-type '(unsigned-byte 8)))
          (buffer (xdr-block-buffer blk))
          (start (xdr-block-offset blk)))
  