anchor.diff:    ;; Issue a reset command.
     (setf (rtl8139-reg/8 card +rtl8139-command+) +command-rst+)
     ;; Wait for the reset to complete.
  -  ;; TODO: Use process-wait-with-timeout
  +  ;; TODO: Use a timeout here.
     (do () ((not (logtest (rtl8139-reg/8 card +rtl8139-command+) +command-rst+))))
     ;; Read the MAC address.
     (dotimes (i 6)
  
positive.code:    (tx-address)
     (last-tx-descriptor :initform 0)
     (next-tx-descriptor :initform 0)
     (free-tx-descriptors :initform +rtl8139-tx-descriptors+)
     (rx-buffer)
     (rx-address)
     (rx-offset :initform 0)
     (rx-process)
     (signal-cons)
     (isr)
     (ioar)
     (memar)
  
negative.code: 	    (slot-value card 'memar) (logand (sys.int::pci-bar pci-device 1) -4)
              (slot-value card 'isr) (sys.int::make-interrupt-handler 'rtl8139-interrupt
                                                                      (slot-value card 'ioar)
                                                                      (slot-value card 'irq-semaphore))
              (slot-value card 'mac) (make-array 6 :element-type '(unsigned-byte 8)))
        (sys.int::process-preset (slot-value card 'rx-process)
                                 #'rtl8139-process card)
  