anchor.diff:      (vector-push-extend 0 vector)
       (vector-push-extend 0 vector)
       (vector-push-extend 0 vector)
  -    (setf (nibbles:ub64ref/le vector here) new-element)
  +    (setf (ext:ub64ref/le vector here) new-element)
       here))
   
   (defun vector-push-extend-double/le (new-element vector)
     (check-type new-element double-float)
  -  (vector-push-extend-ub64/le (mezzano.internals::%double-float-as-integer new-element) vector))
  +  (vector-push-extend-ub64/le
  +   (ext:double-float-to-ieee-binary64 new-element)
  +   vector))
   
   (defun encode-clear (cmd-buf
                        buffers ; +pipe-clear-*+
  
positive.code:                           (symbol ; regular slot
                             `(format stream "  ~:(~S~): ~S~%" ',name (,name object)))))))))
  
  (define-caps-struct-slots
    (0 caps-max-version                         0 nibbles:ub32ref/le)
    ;; v1 caps
    (1 caps-sampler                             4 512)
    (1 caps-render                             68 512)
  
negative.code:     (vector-push-extend 0 vector)
      (vector-push-extend 0 vector)
      (vector-push-extend 0 vector)
      (setf (ext:sb32ref/le vector here) new-element)
      here))
  
  (defun vector-push-extend-single/le (new-element vector)
    (check-type new-element single-float)
    (vector-push-extend-ub32/le
     (ext:single-float-to-ieee-binary32 new-element)
     vector))
  
  (defun vector-push-extend-ub64/le (new-element vector)
    (let ((here (vector-push-extend 0 vector)))
  