*ctx;
int n;
pointer argv[];
{ char *p;
  p="AVERAGE";
  defun(ctx,p,argv[0],AVERAGE);
  AVESYM=intern(ctx,p,strlen(p),userpkg); /* make a new symbol*/
  }
</PRE>

<P>

<H2><A NAME="SECTION03015000000000000000">
Foreign Language Interface</A>
</H2>

<P>
Functions written in C without concern about linking with EusLisp
can be loaded onto EusLisp, too.
These functions are called foreign functions.
Such programs are loaded by
<B>load-foreign</B> macro which returns an instance of <B>foreign-module</B>.
Externa