anchor.diff:  
   (defun check-virtio-net-boot (nic)
     (when (not (eql (virtio-net-boot-id nic) *boot-id*))
  +    (debug-print-line "virtio-net device " nic " removed. Old boot: "
  +                      (sys.int::lisp-object-address (virtio-net-boot-id nic))
  +                      " Current boot: "
  +                      (sys.int::lisp-object-address *boot-id*))
       (throw 'nic-detached nil)))
   
   (defun virtio-net-receive-processing (nic)
  
positive.code:   (lock (make-mutex "Virtio-Net NIC lock"))
    (irq-latch (make-latch "Virtio-Net NIC IRQ latch"))
    irq-handler-function
    worker
    tx-virt
    tx-phys
    (free-tx-buffers nil)
  
negative.code:                                 (virtio-net-irq-handler nic)))
      (add-deferred-boot-action
       (lambda ()
         (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
  