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