anchor.diff:  ;;; s32vector
   ;;; s64vector
   ;;; f32vector
  -;;; d64vector
  +;;; f64vector
   (defmacro uvector (sign unit)
     (let ((type (case sign
                   (U `'(unsigned-byte ,unit))
  
positive.code: (defmacro with-open-binary-file ((stream filespec &key (direction :input) (if-exists :supersede)) &body body)
    `(with-open-file (,stream ,filespec :direction ,direction :if-exists ,if-exists :element-type '(unsigned-byte 8))
       ,@body))
  
  (defun u-to-s (number bit)
    "Convert an unsigned number to a signed number with `bit` length."
  
negative.code: ;;; write-f32
  ;;; write-f64
  (defmacro def-write-f* (unit)
    `(defun ,(symb "WRITE-F" unit) (stream val)
       (,(symb "WRITE-U" unit) stream (,(symb "ENCODE-FLOAT" unit) val))))
  
  (def-write-f* 32)
  (def-write-f* 64)
  