(in-package :user) (load "test-invoke.cl")To run the server:
(test-server "filename")Where "filename" is the name of a file in which the IOR is to be stored.
To run the client:
(test-client "filename")
This will return a list of values that tests various features of the ORB. The IDL for this example is located in the file test.idl. This test can serve as a pedagogical example, as a number of ORB features are tested.