anchor.diff:    (multiple-value-bind (port stuff)
         (make-client)
       (with-remote-port (port :close t)
  -      (rcall 'print "Hello from client"))))
  +      (rcall 'print "Hello from client")
  +      (rcall 'assert-instance (make-instance 'frodo :name 'frodo)))))
  
positive.code: 
  (defun stop-server ()
    (unless (null *server-proc*)
      (rpc-close :stop :final)))
  
  (defun make-client ()
    (make-rpc-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")
  
  