anchor.diff:    (multiple-value-bind (port stuff)
         (make-client)
       (with-remote-port (port :close t)
  -      (rcall 'print "Hello from client")
         (rcall 'assert-instance (make-instance 'frodo :name 'frodo)))))
  
positive.code: ;;; File: rpc.lisp
  ;;; Description:
  
  ;;; $Id: rpc.lisp,v 1.3 2002/12/09 18:46:53 youngde Exp $
  
  (in-package "CL-USER")
  
  
negative.code:    :name "RPC Server"
     :local-port *server-port*
     :open :listener
     :connect-action :call
     :connect-function
     #'(lambda (port &rest args)
         (initialize-client-environment port)
         (values))))
  
  (defun start-server ()
  