anchor.diff:               (:no-error ()
                  (error "REMOTE-SPAWN succeeded with invalid mode.")))
              (handler-case (remote-spawn
  -                          (host-name) (node-name) '(invalid)
  +                          (host-name) (node-name) '(42)
                             "nil" nil 1)
                (error (error)
  -               (declare (ignore error))
  -               (error "REMOTE-SPAWN failed with invalid call.")))
  +               (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)
  
positive.code:              (:no-error ()
                 (error "REMOTE-LINK succeeded with invalid mode.")))
             (remote-link (agent-id :invalid) "foo" :link)
  
             ;; Test REMOTE-UNLINK
             (remote-unlink id "foo")
  
negative.code:            (remote-unlink (agent-id :invalid) "foo")
  
             ;; Test REMOTE-EXIT
             (let* (exit-notice
                    (agent (find-agent id))
                    (monitor (spawn (lambda ()
                                      (link agent :monitor)
                                      (setf exit-notice (receive))))))
               (unwind-protect
                    (progn
                      (remote-exit :foo id)
                      (sleep 1)
                      (destructuring-bind (killed-agent status . reason)
                          exit-notice
                        (assert (eq agent killed-agent))
                        (assert (eq status :exit))
                        (assert (eq reason :foo))))
                 (exit :kill monitor)))
             (remote-exit :bar id)
             (remote-exit :bar (agent-id :invalid)))
  
        (exit :kill (find-agent id))
        (exit :kill register-agent)
  