anchor.diff:    address
     vendor-id
     device-id
  -  vendor-name
  -  device-name
     boot-id
     claimed)
   
  
positive.code: (defun pci-intr-line (device)
    (pci-config/8 device +pci-config-intr-line+))
  
  (defconstant +pci-command-bus-master-enable+ (ash 1 2))
  
  (defun pci-bus-master-enabled (device)
    (logtest (pci-config/16 device +pci-config-command+)
             +pci-command-bus-master-enable+))
  
  (defun (setf pci-bus-master-enabled) (value device)
    (let ((prev (pci-config/16 device +pci-config-command+)))
      (setf (pci-config/16 device +pci-config-command+)
            (if value
                (logior prev +pci-command-bus-master-enable+)
                (logand prev (lognot +pci-command-bus-master-enable+))))
      value))
  
  (defun pci-io-region/8 (location offset)
  
negative.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)
                           (push-wired device *pci-devices*)
                           (when (eql header-type +pci-bridge-htype+)
                             ;; Bridge device, scan the other side.
  