anchor.diff:  ;;; put-u32
   ;;; put-u64
   (defmacro def-put-u* (unit)
  -  `(defun ,(intern (format nil "PUT-U~a" unit)) (uv pos val)
  +  `(defun ,(symb "PUT-U" unit) (uv pos val)
        ,(if (<= unit 8)
             `(setf (aref uv pos) val)
             (cons 'progn
  
positive.code: ;;; put-f32
  ;;; put-f64
  (defmacro def-put-f* (unit)
    `(defun ,(intern (format nil "PUT-F~a" unit)) (uv pos val)
       (let ((encoded-val (,(intern (format nil "ENCODE-FLOAT~a" unit)) val)))
         ,@(loop
              for i from 0 above (- unit) by 8
              for p from 0
  
negative.code: ;;; s32vector
  ;;; s64vector
  ;;; f32vector
  ;;; f64vector
  (defmacro uvector (sign unit)
    (let ((type (case sign
                  (U `'(unsigned-byte ,unit))
  