anchor.diff:     :name "RPC Server"
      :local-port *server-port*
      :open :listener
  -   :connect-action :process
  +   :connect-action :call
      :connect-function
      #'(lambda (port &rest args)
  -       (format t "Connection from ~S~%" port)
  +       (initialize-client-environment port)
          (values))))
   
   (defun start-server ()
  
positive.code: (defclass frodo ()
    ((name :initarg :name
           :initform nil
           :accessor frodo-name)))
  
  (defun assert-instance (object)
    (print object)
    (terpri)
    (print (frodo-name object)))
  
  (defun make-server ()
    (make-rpc-server
  
negative.code: ;;; File: rpc.lisp
  ;;; Description:
  
  ;;; $Id: rpc.lisp,v 1.4 2002/12/10 16:31:37 youngde Exp $
  
  (in-package "CL-USER")
  
  