anchor.diff:  
   (defpackage :mezzano.gui.virgl
     (:use :cl)
  -  (:local-nicknames (:gpu :mezzano.supervisor.virtio-gpu)))
  +  (:local-nicknames (:gpu :mezzano.supervisor.virtio-gpu)
  +                    (:ext :mezzano.extensions)
  +                    (:sup :mezzano.supervisor)))
   
   (in-package :mezzano.gui.virgl)
   
  
positive.code:     (vector-push-extend 0 vector)
      (vector-push-extend 0 vector)
      (vector-push-extend 0 vector)
      (setf (nibbles: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))
  
  (defun encode-clear (cmd-buf
                       buffers ; +pipe-clear-*+
  
negative.code:   (1 caps-derivative-control                260 (29))
    (1 caps-polygon-offset-clamp              260 (30))
    (1 caps-transform-feedback-overflow-query 260 (31))
    (1 caps-glsl-level                        264 ext:ub32ref/le)
    (1 caps-max-texture-array-layers          268 ext:ub32ref/le)
    (1 caps-max-streamout-buffers             272 ext:ub32ref/le)
    (1 caps-max-dual-source-render-targets    276 ext:ub32ref/le)
    (1 caps-max-render-targets                280 ext:ub32ref/le)
    (1 caps-max-samples                       284 ext:ub32ref/le)
    (1 caps-prim-mask                         288 ext:ub32ref/le)
    (1 caps-max-tbo-size                      292 ext:ub32ref/le)
    (1 caps-max-uniform-blocks                296 ext:ub32ref/le)
    (1 caps-max-viewports                     300 ext:ub32ref/le)
    (1 caps-max-texture-gather-components     304 ext:ub32ref/le)
    ;; v2 caps
    (2 caps-min-aliased-point-size            308 ieee-single-ref/le)
    (2 caps-max-aliased-point-size            312 ieee-single-ref/le)
    (2 caps-min-smooth-point-size             316 ieee-single-ref/le)
    (2 caps-max-smooth-point-size             320 ieee-single-ref/le)
    (2 caps-min-aliased-line-width            324 ieee-single-ref/le)
    (2 caps-max-aliased-line-width            328 ieee-single-ref/le)
    (2 caps-min-smooth-line-width             332 ieee-single-ref/le)
    (2 caps-max-smooth-line-width             336 ieee-single-ref/le)
    (2 caps-max-texture-lod-bias              340 ieee-single-ref/le)
    (2 caps-max-geom-output-vertices          344 ext:ub32ref/le)
    (2 caps-max-geom-total-output-components  348 ext:ub32ref/le)
    (2 caps-max-vertex-outputs                352 ext:ub32ref/le)
    (2 caps-max-vertex-attribs                356 ext:ub32ref/le)
    (2 caps-max-shader-patch-varyings         360 ext:ub32ref/le)
    (2 caps-min-texel-offset                  364 ext:sb32ref/le)
    (2 caps-max-texel-offset                  368 ext:sb32ref/le)
    (2 caps-min-texture-gather-offset         372 ext:sb32ref/le)
    (2 caps-max-texture-gather-offset         376 ext:sb32ref/le)
    (2 caps-texture-buffer-offset-alignment   380 ext:ub32ref/le)
    (2 caps-uniform-buffer-offset-alignment   384 ext:ub32ref/le)
    (2 caps-shader-buffer-offset-alignment    388 ext:ub32ref/le)
    (2 caps-capability-bits                   392 ext:ub32ref/le)
    (2 caps-sample-locations                  396 (ext:ub32ref/le 8 4))
    (2 caps-max-vertex-attrib-stride          428 ext:ub32ref/le)
    (2 caps-max-shader-buffer-frag-compute    432 ext:ub32ref/le)
    (2 caps-max-shader-buffer-other-stages    436 ext:ub32ref/le)
    (2 caps-max-shader-image-frag-compute     440 ext:ub32ref/le)
    (2 caps-max-shader-image-other-stages     444 ext:ub32ref/le)
    (2 caps-max-image-samples                 448 ext:ub32ref/le)
    (2 caps-max-compute-work-group-invocations 452 ext:ub32ref/le)
    (2 caps-max-compute-shared-memory-size    456 ext:ub32ref/le)
    (2 caps-max-compute-grid-size             460 (ext:ub32ref/le 3 4))
    (2 caps-max-compute-block-size            472 (ext:ub32ref/le 3 4))
    (2 caps-max-texture-2d-size               484 ext:ub32ref/le)
    (2 caps-max-texture-3d-size               488 ext:ub32ref/le)
    (2 caps-max-texture-cube-size             492 ext:ub32ref/le))
  
  (defun pack-command (cmd obj-type len)
    (check-type cmd (unsigned-byte 8))
  