2
#include "cmpinclude.h"
3
#include "pcl_gazonk4.h"
4
void init_pcl_gazonk4(){do_init(VV);}
5
/* function definition for CMP-ANON */
8
{register object *base=vs_base;
9
register object *sup=base+VM1; VC1
12
base[0]=MMcons(base[0],Cnil);
13
base[1]=MMcons(base[1],base[0]);
16
make_cclosure_new(LC2,Cnil,base[1],Cdata);
17
vs_top=(vs_base=base+2)+1;
20
/* local function CLOSURE */
22
static void LC2(base0)
23
register object *base0;
24
{ register object *base=vs_base;
25
register object *sup=base+VM2; VC2
39
base[5]= (base0[1]->c.c_car);
40
base[6]= (base0[0]->c.c_car);
41
vs_top=(vs_base=base+5)+2;
47
#ifdef SYSTEM_SPECIAL_INIT