anchor.diff:                (device-id (pci-config/16 device +pci-config-deviceid+))
                 (base-class-code (pci-base-class device))
                 (sub-class-code (pci-sub-class device))
  -              (programming-interface (pci-programming-interface device))
  -              (header-type (ldb (byte 7 0) (pci-config/8 device +pci-config-hdr-type+))))
  -         (multiple-value-bind (bus device-nr function)
  -             (pci-device-location device)
  -           (debug-print-line "PCI:" bus ":" device-nr ":" function
  -                             " " vendor-id ":" device-id
  -                             " " base-class-code ":" sub-class-code ":" programming-interface
  -                             " " (pci-config/8 device +pci-config-revid+)
  -                             " " header-type))
  +              (programming-interface (pci-programming-interface device)))
  +         (dump-pci-device-config-space device)
            (cond ((and (eql vendor-id #x1AF4)
                        (<= #x1000 device-id #x103F))
                   ;; Some kind of virtio-device.
  
positive.code:                        (unless (or (eql vendor-id #xFFFF) (eql vendor-id 0))
                           (setf (pci-device-vendor-id device) vendor-id
                                 (pci-device-device-id device) device-id)
                           (multiple-value-bind (vendor-name device-name)
                               (pci-find-device-name vendor-id device-id)
                             (setf (pci-device-vendor-name device) vendor-name
                                   (pci-device-device-name device) device-name)
                             (debug-print-line bus ":" device-nr ":" function " " vendor-id ":" device-id " " vendor-name " - " device-name))
                           (push-wired device *pci-devices*)
                           (when (eql header-type +pci-bridge-htype+)
                             ;; Bridge device, scan the other side.
  
negative.code:   address
    vendor-id
    device-id
    boot-id
    claimed)
  
  