anchor.diff:                         (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.
  
positive.code:         (if position
              (values vname dname (svref subsystems (1+ position)))
              (values vname dname nil))))))
  
negative.code: (defconstant +pci-bridge-secondary-status+  #x1E)
  
  (defconstant +pci-command-bus-master+ 2)
  (defconstant +pci-command-interrupt-disable+ 10)
  
  (defconstant +pci-status-interrupt-status+ 3)
  (defconstant +pci-status-capabilities-list+ 4)
  
  (defconstant +pci-capability-id-msi+ #x05)
  
  (sys.int::defglobal *pci-config-lock*)
  
  