gcl.git - GNU Common Lisp

diff --git a/gcl/lsp/arraylib.c b/gcl/lsp/arraylib.c
index 615356afb..01e90275c 100755
--- a/gcl/lsp/arraylib.c
+++ b/gcl/lsp/arraylib.c

@@ -159,7 +159,7 @@ static object LI3(object V18,object first,...)

V19= V18;

narg= narg - 1;

{

- parse_key_new_new(narg,Vcs +1,(struct key *)&LI3key,first,ap);

+ parse_key_new_new(narg,Vcs +1,(struct key *)(void *)&LI3key,first,ap);

if(Vcs[1]==0){

V20= Ct;

}else{

@@ -1165,7 +1165,7 @@ static object LI26(object V192,object V191,object first,...)

V203 = (ALLOCA_CONS(narg),ON_STACK_MAKE_LIST(narg));

V195= V203;

{

- parse_key_rest_new(V203,narg,Vcs +3,(struct key *)&LI26key,first,ap);

+ parse_key_rest_new(V203,narg,Vcs +3,(struct key *)(void *)&LI26key,first,ap);

V196=(Vcs[3]);

V197=(Vcs[4]);

V198=(Vcs[5]);

@@ -1389,22 +1389,22 @@ T433:;

base[0]=base[0];

return Cnil;}

}}

-static void LnkT35(){ call_or_link(VV[35],(void **)&Lnk35);} /* ARRAY-IN-BOUNDS-P */

-static void LnkT34(){ call_or_link(VV[34],(void **)&Lnk34);} /* COPY-ARRAY-PORTION */

-static void LnkT33(){ call_or_link(VV[33],(void **)&Lnk33);} /* ARRAY-TOTAL-SIZE */

-static object LnkTLI32(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[32],(void **)&LnkLI32,1,first,ap);va_end(ap);return V1;} /* ARRAY-DIMENSIONS */

-static void LnkT28(){ call_or_link(VV[28],(void **)&Lnk28);} /* MAKE-ARRAY */

-static void LnkT31(){ call_or_link(VV[31],(void **)&Lnk31);} /* STATICP */

-static void LnkT30(){ call_or_link(VV[30],(void **)&Lnk30);} /* ARRAY-HAS-FILL-POINTER-P */

-static object LnkTLI29(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[29],(void **)&LnkLI29,first,ap);va_end(ap);return V1;} /* ADJUST-ARRAY */

-static object LnkTLI28(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[28],(void **)&LnkLI28,first,ap);va_end(ap);return V1;} /* MAKE-ARRAY */

-static object LnkTLI27(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[27],(void **)&LnkLI27,2,first,ap);va_end(ap);return V1;} /* INCREMENT-CURSOR */

-static void LnkT26(){ call_or_link(VV[26],(void **)&Lnk26);} /* ASET-BY-CURSOR */

-static object LnkTLI25(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[25],(void **)&LnkLI25,2,first,ap);va_end(ap);return V1;} /* SEQUENCE-CURSOR */

-static void LnkT24(){ call_or_link(VV[24],(void **)&Lnk24);} /* MAKE-ARRAY1 */

-static void LnkT23(){ call_or_link(VV[23],(void **)&Lnk23);} /* GET-AELTTYPE */

-static object LnkTLI19(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[19],(void **)&LnkLI19,1,first,ap);va_end(ap);return V1;} /* BEST-ARRAY-ELEMENT-TYPE */

-static void LnkT18(){ call_or_link(VV[18],(void **)&Lnk18);} /* SUBTYPEP */

+static void LnkT35(){ call_or_link(VV[35],(void **)(void *)&Lnk35);} /* ARRAY-IN-BOUNDS-P */

+static void LnkT34(){ call_or_link(VV[34],(void **)(void *)&Lnk34);} /* COPY-ARRAY-PORTION */

+static void LnkT33(){ call_or_link(VV[33],(void **)(void *)&Lnk33);} /* ARRAY-TOTAL-SIZE */

+static object LnkTLI32(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[32],(void **)(void *)&LnkLI32,1,first,ap);va_end(ap);return V1;} /* ARRAY-DIMENSIONS */

+static void LnkT28(){ call_or_link(VV[28],(void **)(void *)&Lnk28);} /* MAKE-ARRAY */

+static void LnkT31(){ call_or_link(VV[31],(void **)(void *)&Lnk31);} /* STATICP */

+static void LnkT30(){ call_or_link(VV[30],(void **)(void *)&Lnk30);} /* ARRAY-HAS-FILL-POINTER-P */

+static object LnkTLI29(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[29],(void **)(void *)&LnkLI29,first,ap);va_end(ap);return V1;} /* ADJUST-ARRAY */

+static object LnkTLI28(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[28],(void **)(void *)&LnkLI28,first,ap);va_end(ap);return V1;} /* MAKE-ARRAY */

+static object LnkTLI27(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[27],(void **)(void *)&LnkLI27,2,first,ap);va_end(ap);return V1;} /* INCREMENT-CURSOR */

+static void LnkT26(){ call_or_link(VV[26],(void **)(void *)&Lnk26);} /* ASET-BY-CURSOR */

+static object LnkTLI25(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[25],(void **)(void *)&LnkLI25,2,first,ap);va_end(ap);return V1;} /* SEQUENCE-CURSOR */

+static void LnkT24(){ call_or_link(VV[24],(void **)(void *)&Lnk24);} /* MAKE-ARRAY1 */

+static void LnkT23(){ call_or_link(VV[23],(void **)(void *)&Lnk23);} /* GET-AELTTYPE */

+static object LnkTLI19(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[19],(void **)(void *)&LnkLI19,1,first,ap);va_end(ap);return V1;} /* BEST-ARRAY-ELEMENT-TYPE */

+static void LnkT18(){ call_or_link(VV[18],(void **)(void *)&Lnk18);} /* SUBTYPEP */

#ifdef SYSTEM_SPECIAL_INIT

SYSTEM_SPECIAL_INIT

diff --git a/gcl/lsp/defstruct.c b/gcl/lsp/defstruct.c
index ea4161c74..8bc663e56 100755
--- a/gcl/lsp/defstruct.c
+++ b/gcl/lsp/defstruct.c

@@ -2186,7 +2186,7 @@ static object LI12(object first,...)

va_start(ap,first);

narg= narg - 0;

{

- parse_key_new_new(narg,Vcs +0,(struct key *)&LI12key,first,ap);

+ parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI12key,first,ap);

V324=(Vcs[0]);

V325=(Vcs[1]);

V326=(Vcs[2]);

@@ -2503,33 +2503,33 @@ T1081:;

return;

}

}

-static void LnkT148(){ call_or_link(VV[148],(void **)&Lnk148);} /* STRUCTURE-REF1 */

-static void LnkT147(){ call_or_link(VV[147],(void **)&Lnk147);} /* STRUCTURE-SUBTYPE-P */

-static object LnkTLI143(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[143],(void **)&LnkLI143,5,first,ap);va_end(ap);return V1;} /* MAKE-PREDICATE */

-static object LnkTLI142(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[142],(void **)&LnkLI142,5,first,ap);va_end(ap);return V1;} /* MAKE-CONSTRUCTOR */

-static object LnkTLI141(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[141],(void **)&LnkLI141,2,first,ap);va_end(ap);return V1;} /* PARSE-SLOT-DESCRIPTION */

-static object LnkTLI135(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[135],(void **)&LnkLI135,3,first,ap);va_end(ap);return V1;} /* CHECK-S-DATA */

-static object LnkTLI134(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[134],(void **)&LnkLI134,first,ap);va_end(ap);return V1;} /* MAKE-S-DATA */

-static object LnkTLI133(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[133],(void **)&LnkLI133,3,first,ap);va_end(ap);return V1;} /* GET-SLOT-POS */

-static object LnkTLI132(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[132],(void **)&LnkLI132,first,ap);va_end(ap);return V1;} /* WARN */

-static void LnkT131(){ call_or_link(VV[131],(void **)&Lnk131);} /* MAKE-S-DATA-STRUCTURE */

-static object LnkTLI130(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[130],(void **)&LnkLI130,3,first,ap);va_end(ap);return V1;} /* MAKE-T-TYPE */

-static void LnkT126(){ call_or_link(VV[126],(void **)&Lnk126);} /* MAKE-ACCESS-FUNCTION */

-static object LnkTLI125(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[125],(void **)&LnkLI125,20738,first,ap);va_end(ap);return V1;} /* ROUND-UP */

-static void LnkT124(){ call_or_link(VV[124],(void **)&Lnk124);} /* SIZE-OF */

-static object LnkTLI123(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[123],(void **)&LnkLI123,2,first,ap);va_end(ap);return V1;} /* COERCE */

-static void LnkT122(){ call_or_link(VV[122],(void **)&Lnk122);} /* TYPEP */

-static void LnkT121(){ call_or_link(VV[121],(void **)&Lnk121);} /* AET-TYPE */

-static void LnkT120(){ call_or_link(VV[120],(void **)&Lnk120);} /* ALIGNMENT */

-static object LnkTLI119(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[119],(void **)&LnkLI119,first,ap);va_end(ap);return V1;} /* MAKE-ARRAY */

-static object LnkTLI118(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[118],(void **)&LnkLI118,2,first,ap);va_end(ap);return V1;} /* OVERWRITE-SLOT-DESCRIPTIONS */

-static object LnkTLI117(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[117],(void **)&LnkLI117,1,first,ap);va_end(ap);return V1;} /* NORMALIZE-TYPE */

-static object LnkTLI116(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[116],(void **)&LnkLI116,1,first,ap);va_end(ap);return V1;} /* BEST-ARRAY-ELEMENT-TYPE */

-static object LnkTLI112(){return call_proc0(VV[112],(void **)&LnkLI112);} /* ILLEGAL-BOA */

-static void LnkT111(){ call_or_link(VV[111],(void **)&Lnk111);} /* SUBTYPEP */

-static void LnkT110(){ call_or_link(VV[110],(void **)&Lnk110);} /* RECORD-FN */

-static object LnkTLI109(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[109],(void **)&LnkLI109,first,ap);va_end(ap);return V1;} /* ADJUST-ARRAY */

-static void LnkT108(){ call_or_link(VV[108],(void **)&Lnk108);} /* STRING-CONCATENATE */

+static void LnkT148(){ call_or_link(VV[148],(void **)(void *)&Lnk148);} /* STRUCTURE-REF1 */

+static void LnkT147(){ call_or_link(VV[147],(void **)(void *)&Lnk147);} /* STRUCTURE-SUBTYPE-P */

+static object LnkTLI143(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[143],(void **)(void *)&LnkLI143,5,first,ap);va_end(ap);return V1;} /* MAKE-PREDICATE */

+static object LnkTLI142(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[142],(void **)(void *)&LnkLI142,5,first,ap);va_end(ap);return V1;} /* MAKE-CONSTRUCTOR */

+static object LnkTLI141(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[141],(void **)(void *)&LnkLI141,2,first,ap);va_end(ap);return V1;} /* PARSE-SLOT-DESCRIPTION */

+static object LnkTLI135(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[135],(void **)(void *)&LnkLI135,3,first,ap);va_end(ap);return V1;} /* CHECK-S-DATA */

+static object LnkTLI134(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[134],(void **)(void *)&LnkLI134,first,ap);va_end(ap);return V1;} /* MAKE-S-DATA */

+static object LnkTLI133(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[133],(void **)(void *)&LnkLI133,3,first,ap);va_end(ap);return V1;} /* GET-SLOT-POS */

+static object LnkTLI132(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[132],(void **)(void *)&LnkLI132,first,ap);va_end(ap);return V1;} /* WARN */

+static void LnkT131(){ call_or_link(VV[131],(void **)(void *)&Lnk131);} /* MAKE-S-DATA-STRUCTURE */

+static object LnkTLI130(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[130],(void **)(void *)&LnkLI130,3,first,ap);va_end(ap);return V1;} /* MAKE-T-TYPE */

+static void LnkT126(){ call_or_link(VV[126],(void **)(void *)&Lnk126);} /* MAKE-ACCESS-FUNCTION */

+static object LnkTLI125(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[125],(void **)(void *)&LnkLI125,20738,first,ap);va_end(ap);return V1;} /* ROUND-UP */

+static void LnkT124(){ call_or_link(VV[124],(void **)(void *)&Lnk124);} /* SIZE-OF */

+static object LnkTLI123(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[123],(void **)(void *)&LnkLI123,2,first,ap);va_end(ap);return V1;} /* COERCE */

+static void LnkT122(){ call_or_link(VV[122],(void **)(void *)&Lnk122);} /* TYPEP */

+static void LnkT121(){ call_or_link(VV[121],(void **)(void *)&Lnk121);} /* AET-TYPE */

+static void LnkT120(){ call_or_link(VV[120],(void **)(void *)&Lnk120);} /* ALIGNMENT */

+static object LnkTLI119(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[119],(void **)(void *)&LnkLI119,first,ap);va_end(ap);return V1;} /* MAKE-ARRAY */

+static object LnkTLI118(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[118],(void **)(void *)&LnkLI118,2,first,ap);va_end(ap);return V1;} /* OVERWRITE-SLOT-DESCRIPTIONS */

+static object LnkTLI117(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[117],(void **)(void *)&LnkLI117,1,first,ap);va_end(ap);return V1;} /* NORMALIZE-TYPE */

+static object LnkTLI116(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[116],(void **)(void *)&LnkLI116,1,first,ap);va_end(ap);return V1;} /* BEST-ARRAY-ELEMENT-TYPE */

+static object LnkTLI112(){return call_proc0(VV[112],(void **)(void *)&LnkLI112);} /* ILLEGAL-BOA */

+static void LnkT111(){ call_or_link(VV[111],(void **)(void *)&Lnk111);} /* SUBTYPEP */

+static void LnkT110(){ call_or_link(VV[110],(void **)(void *)&Lnk110);} /* RECORD-FN */

+static object LnkTLI109(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[109],(void **)(void *)&LnkLI109,first,ap);va_end(ap);return V1;} /* ADJUST-ARRAY */

+static void LnkT108(){ call_or_link(VV[108],(void **)(void *)&Lnk108);} /* STRING-CONCATENATE */

#ifdef SYSTEM_SPECIAL_INIT

SYSTEM_SPECIAL_INIT

diff --git a/gcl/lsp/serror.c b/gcl/lsp/serror.c
index 5aacf4b61..224c2ccb7 100644
--- a/gcl/lsp/serror.c
+++ b/gcl/lsp/serror.c

@@ -802,11 +802,11 @@ T85:;

vs_top=(vs_base=base+5)+1;

return;}

}

-static void LnkT76(){ call_or_link(VV[76],(void **)&Lnk76);} /* MAKE-ERROR-CONDITION */

-static void LnkT75(){ call_or_link(VV[75],(void **)&Lnk75);} /* FIFTH */

-static void LnkT74(){ call_or_link(VV[74],(void **)&Lnk74);} /* BREAK-VS */

-static void LnkT73(){ call_or_link(VV[73],(void **)&Lnk73);} /* BACKTRACE */

-static void LnkT72(){ call_or_link(VV[72],(void **)&Lnk72);} /* SIMPLE-BACKTRACE */

+static void LnkT76(){ call_or_link(VV[76],(void **)(void *)&Lnk76);} /* MAKE-ERROR-CONDITION */

+static void LnkT75(){ call_or_link(VV[75],(void **)(void *)&Lnk75);} /* FIFTH */

+static void LnkT74(){ call_or_link(VV[74],(void **)(void *)&Lnk74);} /* BREAK-VS */

+static void LnkT73(){ call_or_link(VV[73],(void **)(void *)&Lnk73);} /* BACKTRACE */

+static void LnkT72(){ call_or_link(VV[72],(void **)(void *)&Lnk72);} /* SIMPLE-BACKTRACE */

#ifdef SYSTEM_SPECIAL_INIT

SYSTEM_SPECIAL_INIT

diff --git a/gcl/lsp/sloop.c b/gcl/lsp/sloop.c
index b9d94dde5..6bdb13d0d 100755
--- a/gcl/lsp/sloop.c
+++ b/gcl/lsp/sloop.c

@@ -3982,40 +3982,40 @@ TTL:;

base[0]=base[0];

return Cnil;

}

-static void LnkT277(){ call_or_link(VV[277],(void **)&Lnk277);} /* SUBTYPEP */

-static object LnkTLI276(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[276],(void **)&LnkLI276,2,first,ap);va_end(ap);return V1;} /* THE-TYPE */

-static object LnkTLI275(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[275],(void **)&LnkLI275,2,first,ap);va_end(ap);return V1;} /* PARSE-LOOP-MAP */

-static object LnkTLI274(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[274],(void **)&LnkLI274,first,ap);va_end(ap);return V1;} /* ADD-FROM-DATA */

-static object LnkTLI273(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[273],(void **)&LnkLI273,first,ap);va_end(ap);return V1;} /* LOOP-DECLARE-BINDING */

-static object LnkTLI272(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[272],(void **)&LnkLI272,2,first,ap);va_end(ap);return V1;} /* MAKE-VALUE */

-static void LnkT129(){ call_or_link(VV[129],(void **)&Lnk129);} /* TYPEP */

-static object LnkTLI271(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[271],(void **)&LnkLI271,3,first,ap);va_end(ap);return V1;} /* LOOP-PARSE-ADDITIONAL-COLLECTIONS */

-static object LnkTLI270(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[270],(void **)&LnkLI270,1,first,ap);va_end(ap);return V1;} /* POINTER-FOR-COLLECT */

-static object LnkTLI269(){return call_proc0(VV[269],(void **)&LnkLI269);} /* PARSE-ONE-WHEN-CLAUSE */

-static object LnkTLI268(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[268],(void **)&LnkLI268,first,ap);va_end(ap);return V1;} /* LOOP-ADD-TEMPS */

-static object LnkTLI267(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[267],(void **)&LnkLI267,first,ap);va_end(ap);return V1;} /* LOOP-ADD-BINDING */

-static object LnkTLI266(){return call_proc0(VV[266],(void **)&LnkLI266);} /* LOOP-UN-POP */

-static object LnkTLI265(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[265],(void **)&LnkLI265,first,ap);va_end(ap);return V1;} /* PARSE-LOOP-MACRO */

-static object LnkTLI264(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[264],(void **)&LnkLI264,first,ap);va_end(ap);return V1;} /* PARSE-LOOP-DECLARE */

-static object LnkTLI263(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[263],(void **)&LnkLI263,first,ap);va_end(ap);return V1;} /* PARSE-LOOP-WITH */

-static object LnkTLI262(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[262],(void **)&LnkLI262,1,first,ap);va_end(ap);return V1;} /* PARSE-LOOP-INITIALLY */

-static object LnkTLI261(){return call_proc0(VV[261],(void **)&LnkLI261);} /* PARSE-LOOP-COLLECT */

-static object LnkTLI260(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[260],(void **)&LnkLI260,1,first,ap);va_end(ap);return V1;} /* LOOP-COLLECT-KEYWORD-P */

-static object LnkTLI259(){return call_proc0(VV[259],(void **)&LnkLI259);} /* PARSE-LOOP-WHEN */

-static object LnkTLI258(){return call_proc0(VV[258],(void **)&LnkLI258);} /* PARSE-LOOP-DO */

-static object LnkTLI257(){return call_proc0(VV[257],(void **)&LnkLI257);} /* PARSE-LOOP-FOR */

-static object LnkTLI256(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[256],(void **)&LnkLI256,1,first,ap);va_end(ap);return V1;} /* PARSE-NO-BODY */

-static object LnkTLI255(){return call_proc0(VV[255],(void **)&LnkLI255);} /* LOOP-POP */

-static object LnkTLI10(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[10],(void **)&LnkLI10,2,first,ap);va_end(ap);return V1;} /* L-EQUAL */

-static object LnkTLI254(){return call_proc0(VV[254],(void **)&LnkLI254);} /* LOOP-PEEK */

-static object LnkTLI13(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[13],(void **)&LnkLI13,1,first,ap);va_end(ap);return V1;} /* TRANSLATE-NAME */

-static object LnkTLI253(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[253],(void **)&LnkLI253,1,first,ap);va_end(ap);return V1;} /* LOOP-LET-BINDINGS */

-static object LnkTLI252(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[252],(void **)&LnkLI252,1,first,ap);va_end(ap);return V1;} /* SUBSTITUTE-SLOOP-BODY */

-static object LnkTLI251(){return call_proc0(VV[251],(void **)&LnkLI251);} /* PARSE-LOOP1 */

-static object LnkTLI249(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[249],(void **)&LnkLI249,first,ap);va_end(ap);return V1;} /* FIND */

-static object LnkTLI248(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[248],(void **)&LnkLI248,first,ap);va_end(ap);return V1;} /* DEF-LOOP-INTERNAL */

-static object LnkTLI247(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[247],(void **)&LnkLI247,1,first,ap);va_end(ap);return V1;} /* PARSE-LOOP */

-static object LnkTLI246(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[246],(void **)&LnkLI246,2,first,ap);va_end(ap);return V1;} /* DESETQ1 */

+static void LnkT277(){ call_or_link(VV[277],(void **)(void *)&Lnk277);} /* SUBTYPEP */

+static object LnkTLI276(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[276],(void **)(void *)&LnkLI276,2,first,ap);va_end(ap);return V1;} /* THE-TYPE */

+static object LnkTLI275(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[275],(void **)(void *)&LnkLI275,2,first,ap);va_end(ap);return V1;} /* PARSE-LOOP-MAP */

+static object LnkTLI274(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[274],(void **)(void *)&LnkLI274,first,ap);va_end(ap);return V1;} /* ADD-FROM-DATA */

+static object LnkTLI273(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[273],(void **)(void *)&LnkLI273,first,ap);va_end(ap);return V1;} /* LOOP-DECLARE-BINDING */

+static object LnkTLI272(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[272],(void **)(void *)&LnkLI272,2,first,ap);va_end(ap);return V1;} /* MAKE-VALUE */

+static void LnkT129(){ call_or_link(VV[129],(void **)(void *)&Lnk129);} /* TYPEP */

+static object LnkTLI271(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[271],(void **)(void *)&LnkLI271,3,first,ap);va_end(ap);return V1;} /* LOOP-PARSE-ADDITIONAL-COLLECTIONS */

+static object LnkTLI270(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[270],(void **)(void *)&LnkLI270,1,first,ap);va_end(ap);return V1;} /* POINTER-FOR-COLLECT */

+static object LnkTLI269(){return call_proc0(VV[269],(void **)(void *)&LnkLI269);} /* PARSE-ONE-WHEN-CLAUSE */

+static object LnkTLI268(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[268],(void **)(void *)&LnkLI268,first,ap);va_end(ap);return V1;} /* LOOP-ADD-TEMPS */

+static object LnkTLI267(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[267],(void **)(void *)&LnkLI267,first,ap);va_end(ap);return V1;} /* LOOP-ADD-BINDING */

+static object LnkTLI266(){return call_proc0(VV[266],(void **)(void *)&LnkLI266);} /* LOOP-UN-POP */

+static object LnkTLI265(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[265],(void **)(void *)&LnkLI265,first,ap);va_end(ap);return V1;} /* PARSE-LOOP-MACRO */

+static object LnkTLI264(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[264],(void **)(void *)&LnkLI264,first,ap);va_end(ap);return V1;} /* PARSE-LOOP-DECLARE */

+static object LnkTLI263(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[263],(void **)(void *)&LnkLI263,first,ap);va_end(ap);return V1;} /* PARSE-LOOP-WITH */

+static object LnkTLI262(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[262],(void **)(void *)&LnkLI262,1,first,ap);va_end(ap);return V1;} /* PARSE-LOOP-INITIALLY */

+static object LnkTLI261(){return call_proc0(VV[261],(void **)(void *)&LnkLI261);} /* PARSE-LOOP-COLLECT */

+static object LnkTLI260(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[260],(void **)(void *)&LnkLI260,1,first,ap);va_end(ap);return V1;} /* LOOP-COLLECT-KEYWORD-P */

+static object LnkTLI259(){return call_proc0(VV[259],(void **)(void *)&LnkLI259);} /* PARSE-LOOP-WHEN */

+static object LnkTLI258(){return call_proc0(VV[258],(void **)(void *)&LnkLI258);} /* PARSE-LOOP-DO */

+static object LnkTLI257(){return call_proc0(VV[257],(void **)(void *)&LnkLI257);} /* PARSE-LOOP-FOR */

+static object LnkTLI256(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[256],(void **)(void *)&LnkLI256,1,first,ap);va_end(ap);return V1;} /* PARSE-NO-BODY */

+static object LnkTLI255(){return call_proc0(VV[255],(void **)(void *)&LnkLI255);} /* LOOP-POP */

+static object LnkTLI10(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[10],(void **)(void *)&LnkLI10,2,first,ap);va_end(ap);return V1;} /* L-EQUAL */

+static object LnkTLI254(){return call_proc0(VV[254],(void **)(void *)&LnkLI254);} /* LOOP-PEEK */

+static object LnkTLI13(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[13],(void **)(void *)&LnkLI13,1,first,ap);va_end(ap);return V1;} /* TRANSLATE-NAME */

+static object LnkTLI253(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[253],(void **)(void *)&LnkLI253,1,first,ap);va_end(ap);return V1;} /* LOOP-LET-BINDINGS */

+static object LnkTLI252(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[252],(void **)(void *)&LnkLI252,1,first,ap);va_end(ap);return V1;} /* SUBSTITUTE-SLOOP-BODY */

+static object LnkTLI251(){return call_proc0(VV[251],(void **)(void *)&LnkLI251);} /* PARSE-LOOP1 */

+static object LnkTLI249(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[249],(void **)(void *)&LnkLI249,first,ap);va_end(ap);return V1;} /* FIND */

+static object LnkTLI248(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[248],(void **)(void *)&LnkLI248,first,ap);va_end(ap);return V1;} /* DEF-LOOP-INTERNAL */

+static object LnkTLI247(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[247],(void **)(void *)&LnkLI247,1,first,ap);va_end(ap);return V1;} /* PARSE-LOOP */

+static object LnkTLI246(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[246],(void **)(void *)&LnkLI246,2,first,ap);va_end(ap);return V1;} /* DESETQ1 */

#ifdef SYSTEM_SPECIAL_INIT

SYSTEM_SPECIAL_INIT