gcl.git - GNU Common Lisp

index : gcl.git
GNU Common Lisp
summary refs log tree commit diff
diff options
context:
space:
mode:
authorCamm Maguire <camm@debian.org>2003年07月16日 02:02:56 +0000
committerCamm Maguire <camm@debian.org>2003年07月16日 02:02:56 +0000
commitc16866d31c4c48a69920a4d16165008c950578f7 (patch)
tree1ad1a1b9c3de94ab9c177c1177d8164cc039612f
parent48806ee1266097052e79871699e48b08bbded0a2 (diff)
downloadgcl-unlabeled-1.12.4.tar.gz
* Type-punning warning fixes;* small_fixnum overflow fixes;* off by one fix in cerror;* Fix compiler error which had not recognized defpackage as a package operation;* Fix tkl.lisp call to open-named-socket;* Make values-list and nreconc signal errors when they should on dotted lists.; * Avoid use of windows.h types as macros.; * New config.{sub,guess}unlabeled-1.12.4
Diffstat
-rwxr-xr-xgcl/lsp/arraylib.c 36
-rwxr-xr-xgcl/lsp/defstruct.c 56
-rw-r--r--gcl/lsp/serror.c 10
-rwxr-xr-xgcl/lsp/sloop.c 68
4 files changed, 85 insertions, 85 deletions
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
generated by cgit v1.2.3 (git 2.25.1) at 2025年09月01日 23:51:47 +0000

AltStyle によって変換されたページ (->オリジナル) /