XENOIDs, and other strange beasts

[Scott Turner <srt@UCLA-LOCUS>]

How can I use define-apollo to pass some ugly structure from one PASCAL
routine to another (with a layover in T).  For instance:

PROCEDURE make-a-garp(OUT g:garp);

BEGIN

   { code that makes a garp }

END;

PROCEDURE use-a-garp(IN g:garp);

BEGIN

   { code that uses a garp }

END;

And then in T:

   (define-apollo make-a-garp ...)
   (define-apollo use-a-garp ...)

Followed by:

   (make-a-garp g)
   (use-a-garp g)

I'ved tried using most of the various combinations possible, but they don't
seem to work.  USE-A-GARP always gives me that famous message:

   Error: inconsistent arguments ...  (lost error information)

Any and all help appreciated.

				-- Scott Turner