anchor.diff:                  (F (if (= unit 32)
                          ''single-float
                          ''double-float)))))
  -    `(defmacro ,(intern (format nil "~a~aVECTOR" sign unit)) (&rest objects)
  +    `(defmacro ,(symb sign unit "VECTOR") (&rest objects)
          `(make-array (length ',objects) :element-type ,',type :initial-contents ',objects))))
   
   (uvector u 8)
  
positive.code: ;;; s32vector
  ;;; s64vector
  ;;; f32vector
  ;;; d64vector
  (defmacro uvector (sign unit)
    (let ((type (case sign
                  (U `'(unsigned-byte ,unit))
  
negative.code: ;;; get-f32
  ;;; get-f64
  (defmacro def-get-f* (unit)
    `(defun ,(symb "GET-F" unit) (uv pos)
       (decode-float32
        (logior
         ,@(loop
  