anchor.diff:                                 :registers registers)))
         (setf *card* card)
         (format t "Detected i945 at ~S~%" pci-device)
  -      (dump-display-state card)
         (let ((mode (save-current-mode-parameters card))
               (framebuffer (framebuffer-address card)))
           ;; Take ownership of the compositor framebuffer.
  
positive.code:         (format t "Video BIOS Registers~%")
          (format t "  VGACNTRL          : ~8,'0X~%" (reg +vgacntrl+))))))
  
  (defun i945-probe (pci-device)
    (let ((registers (pci:pci-io-region pci-device 0)))
      (pci:pci-io-region pci-device 1)
  
negative.code:            :x8r8g8b8
             :device card)
            (mezzano.gui.compositor:force-redisplay t)))
        (setf (slot-value card '%edid)
              (ignore-errors (decode-raw-edid (read-raw-edid card))))
        card)))
  
  (pci:define-pci-driver i945 i945-probe
  