anchor.diff:  ;;; write-f32vector
   ;;; write-f64vector
   (defmacro def-write-uvector (sign unit)
  -  `(defun ,(intern (format nil "WRITE-~a~aVECTOR" sign unit)) (stream vec)
  +  `(defun ,(symb "WRITE-" sign unit "VECTOR") (stream vec)
        (loop for x across vec
  -        do (,(intern (format nil "WRITE-~a~a" sign unit)) stream x))))
  +        do (,(symb "WRITE-" sign unit) stream x))))
   
   (def-write-uvector u 8)
   (def-write-uvector u 16)
  
positive.code: ;;; read-u32
  ;;; read-u64
  (defmacro def-read-u* (unit)
    `(defun ,(intern (format nil "READ-U~a" unit)) (stream)
       ,(if (<= unit 8)
            `(read-byte stream)
            `(logior
  
negative.code: ;;; get-u32
  ;;; get-u64
  (defmacro def-get-u* (unit)
    `(defun ,(symb "GET-U" unit) (uv pos)
       ,(if (<= unit 8)
            `(aref uv pos)
            `(logior
  