anchor.diff:               (:no-error ()
                  (error "REMOTE-LINK succeeded with invalid mode.")))
              (remote-link (agent-id :invalid) "foo" :link)
  +           (let (exit-notice
  +                 (invalid-id (agent-id :invalid)))
  +             (spawn (lambda ()
  +                      (link invalid-id :monitor)
  +                      (setf exit-notice (receive))))
  +             (sleep 1)
  +             (destructuring-bind (id status . reason) exit-notice
  +               (assert (equal id invalid-id))
  +               (assert (eq status :exit))
  +               (check-type reason error)))
  +           (let (exit-notice
  +                 (invalid-id (agent-id :invalid))
  +                 (linked (spawn (lambda () (receive)))))
  +             (spawn (lambda ()
  +                      (link linked :monitor)
  +                      (setf exit-notice (receive))))
  +             (remote-link invalid-id (agent-id linked) :link)
  +             (sleep 1)
  +             (destructuring-bind (agent status id . reason) exit-notice
  +               (assert (equal agent linked))
  +               (assert (eq status :exit))
  +               (assert (equal id invalid-id))
  +               (check-type reason error)))
   
              ;; Test REMOTE-UNLINK
              (remote-unlink id "foo")
  
positive.code:            (remote-unlink (agent-id :invalid) "foo")
  
             ;; Test REMOTE-EXIT
             (let* (kill-message
                    (agent (find-agent id))
                    (monitor (spawn (lambda ()
                                      (link agent :monitor)
                                      (setf kill-message (receive))))))
               (unwind-protect
                    (progn
                      (remote-exit :foo id)
                      (sleep 1)
                      (destructuring-bind (killed-agent status . reason)
                          kill-message
                        (assert (eq agent killed-agent))
                        (assert (eq status :exit))
                        (assert (eq reason :foo))))
                 (exit :kill monitor))))
  
        (exit :kill (find-agent id))
        (exit :kill register-agent)
  
negative.code:              (:no-error ()
                 (error "REMOTE-SPAWN succeeded with invalid mode.")))
             (handler-case (remote-spawn
                            (host-name) (node-name) '(42)
                            "nil" nil 1)
               (error (error)
                 (declare (ignore error)))
               (:no-error ()
                 (error "REMOTE-SPAWN succeeded with invalid call.")))
             (remote-spawn (host-name) (node-name) '(not-bound)
                           "nil" nil 1)
  
             ;; Test REMOTE-SEND
             (remote-send "hello" id)
  