anchor.diff:                                  (virtio-net-irq-handler nic)))
       (add-deferred-boot-action
        (lambda ()
  -       (setf (virtio-net-worker nic) (make-thread (lambda () (virtio-net-worker nic))
  -                                                  :name "Virtio-Net NIC worker"))))))
  +       (setf (virtio-net-worker-thread nic)
  +             (make-thread (lambda ()
  +                            (virtio-net-worker nic))
  +                          :name "Virtio-Net NIC worker"))))))
   
   (defun virtio-net-worker (nic)
     (catch 'nic-detached
  
positive.code: (defun virtio-net-register (device)
    ;; Wired allocation required for the IRQ handler closure.
    (declare (sys.c::closure-allocation :wired))
    (let ((nic (make-virtio-net :virtio-device device
                                :boot-id *boot-id*)))
      (setf (virtio-net-irq-handler-function nic) (lambda (interrupt-frame irq)
  
negative.code:   (lock (make-mutex "Virtio-Net NIC lock"))
    (irq-latch (make-latch "Virtio-Net NIC IRQ latch"))
    irq-handler-function
    worker-thread
    tx-virt
    tx-phys
    (free-tx-buffers nil)
  