anchor.diff:  
   (defun stop-server ()
     (unless (null *server-proc*)
  -    (rpc-close :stop :final)))
  +    (rpc-close :stop :final)
  +    (setf *server-proc* nil)))
   
   (defun make-client ()
     (make-rpc-client
  
positive.code:   (multiple-value-bind (port stuff)
        (make-client)
      (with-remote-port (port :close t)
        (rcall 'print "Hello from client"))))
  
negative.code: ;;; File: rpc.lisp
  ;;; Description:
  
  ;;; $Id: rpc.lisp,v 1.3 2002/12/09 18:46:53 youngde Exp $
  
  (in-package "CL-USER")
  
  