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:03:06 +0000
committerCamm Maguire <camm@debian.org>2003年07月16日 02:03:06 +0000
commit381b9d10c3c459d191a3c1f618502cff34523f0f (patch)
tree95002ba6e7acd7f43506706b0467f425ba029822
parent61585bfc1230315de8234aad285faf5b220f7e34 (diff)
downloadgcl-unlabeled-1.14.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.14.4
Diffstat
-rwxr-xr-xgcl/lsp/info.c 78
-rw-r--r--gcl/lsp/loop.c 120
-rwxr-xr-xgcl/lsp/setf.c 14
-rwxr-xr-xgcl/o/read.d 4
4 files changed, 108 insertions, 108 deletions
diff --git a/gcl/lsp/info.c b/gcl/lsp/info.c
index b4ee31c8d..0a7f69dd6 100755
--- a/gcl/lsp/info.c
+++ b/gcl/lsp/info.c
@@ -2484,45 +2484,45 @@ T935:;
return;
}
}
-static void LnkT126(){ call_or_link(VV[126],(void **)&Lnk126);} /* DEFAULT-INFO-HOTLIST */
-static void LnkT125(){ call_or_link(VV[125],(void **)&Lnk125);} /* USER-HOMEDIR-PATHNAME */
-static object LnkTLI124(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[124],(void **)&LnkLI124,first,ap);va_end(ap);return V1;} /* REMOVE-IF */
-static void LnkT123(){ call_or_link(VV[123],(void **)&Lnk123);} /* READ-FROM-STRING */
-static object LnkTLI122(){return call_proc0(VV[122],(void **)&LnkLI122);} /* TYPE-ERROR */
-static void LnkT121(){ call_or_link(VV[121],(void **)&Lnk121);} /* OFFER-CHOICES */
-static void LnkT120(){ call_or_link(VV[120],(void **)&Lnk120);} /* INFO-AUX */
-static void LnkT119(){ call_or_link(VV[119],(void **)&Lnk119);} /* ADD-FILE */
-static void LnkT118(){ call_or_link(VV[118],(void **)&Lnk118);} /* GET-INFO-CHOICES */
-static void LnkT117(){ call_or_link(VV[117],(void **)&Lnk117);} /* END-WAITING */
-static void LnkT116(){ call_or_link(VV[116],(void **)&Lnk116);} /* PRINT-NODE */
-static void LnkT115(){ call_or_link(VV[115],(void **)&Lnk115);} /* GET-NODE-INDEX */
-static void LnkT114(){ call_or_link(VV[114],(void **)&Lnk114);} /* SETUP-INFO */
-static void LnkT113(){ call_or_link(VV[113],(void **)&Lnk113);} /* WAITING */
-static void LnkT112(){ call_or_link(VV[112],(void **)&Lnk112);} /* INFO-GET-FILE */
-static void LnkT111(){ call_or_link(VV[111],(void **)&Lnk111);} /* INFO-SUBFILE */
-static void LnkT110(){ call_or_link(VV[110],(void **)&Lnk110);} /* WINFO */
-static void LnkT109(){ call_or_link(VV[109],(void **)&Lnk109);} /* TKERROR */
-static void LnkT108(){ call_or_link(VV[108],(void **)&Lnk108);} /* NODES-FROM-INDEX */
-static void LnkT107(){ call_or_link(VV[107],(void **)&Lnk107);} /* INFO-GET-TAGS */
-static void LnkT106(){ call_or_link(VV[106],(void **)&Lnk106);} /* FILE-SEARCH */
-static void LnkT105(){ call_or_link(VV[105],(void **)&Lnk105);} /* FIX-LOAD-PATH */
-static void LnkT104(){ call_or_link(VV[104],(void **)&Lnk104);} /* GET-INDEX-NODE */
-static void LnkT103(){ call_or_link(VV[103],(void **)&Lnk103);} /* SHOW-INFO */
-static void LnkT102(){ call_or_link(VV[102],(void **)&Lnk102);} /* GET-NODES */
-static void LnkT101(){ call_or_link(VV[101],(void **)&Lnk101);} /* STRING-CONCATENATE */
-static void LnkT100(){ call_or_link(VV[100],(void **)&Lnk100);} /* RE-QUOTE-STRING */
-static object LnkTLI99(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[99],(void **)&LnkLI99,first,ap);va_end(ap);return V1;} /* POSITION */
-static void LnkT98(){ call_or_link(VV[98],(void **)&Lnk98);} /* INFO-ERROR */
-static void LnkT97(){ call_or_link(VV[97],(void **)&Lnk97);} /* GET-MATCH */
-static void LnkT96(){ call_or_link(VV[96],(void **)&Lnk96);} /* ATOI */
-static object LnkTLI95(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[95],(void **)&LnkLI95,4353,first,ap);va_end(ap);return V1;} /* MATCH-BEGINNING */
-static object LnkTLI94(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[94],(void **)&LnkLI94,4353,first,ap);va_end(ap);return V1;} /* MATCH-END */
-static object LnkTLI93(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[93],(void **)&LnkLI93,first,ap);va_end(ap);return V1;} /* STRING-MATCH */
-static void LnkT92(){ call_or_link(VV[92],(void **)&Lnk92);} /* FILE-TO-STRING */
-static void LnkT91(){ call_or_link(VV[91],(void **)&Lnk91);} /* FREAD */
-static void LnkT90(){ call_or_link(VV[90],(void **)&Lnk90);} /* OPEN */
-static object LnkTLI89(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[89],(void **)&LnkLI89,first,ap);va_end(ap);return V1;} /* VECTOR-PUSH-EXTEND */
-static object LnkTLI88(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[88],(void **)&LnkLI88,first,ap);va_end(ap);return V1;} /* MAKE-ARRAY */
+static void LnkT126(){ call_or_link(VV[126],(void **)(void *)&Lnk126);} /* DEFAULT-INFO-HOTLIST */
+static void LnkT125(){ call_or_link(VV[125],(void **)(void *)&Lnk125);} /* USER-HOMEDIR-PATHNAME */
+static object LnkTLI124(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[124],(void **)(void *)&LnkLI124,first,ap);va_end(ap);return V1;} /* REMOVE-IF */
+static void LnkT123(){ call_or_link(VV[123],(void **)(void *)&Lnk123);} /* READ-FROM-STRING */
+static object LnkTLI122(){return call_proc0(VV[122],(void **)(void *)&LnkLI122);} /* TYPE-ERROR */
+static void LnkT121(){ call_or_link(VV[121],(void **)(void *)&Lnk121);} /* OFFER-CHOICES */
+static void LnkT120(){ call_or_link(VV[120],(void **)(void *)&Lnk120);} /* INFO-AUX */
+static void LnkT119(){ call_or_link(VV[119],(void **)(void *)&Lnk119);} /* ADD-FILE */
+static void LnkT118(){ call_or_link(VV[118],(void **)(void *)&Lnk118);} /* GET-INFO-CHOICES */
+static void LnkT117(){ call_or_link(VV[117],(void **)(void *)&Lnk117);} /* END-WAITING */
+static void LnkT116(){ call_or_link(VV[116],(void **)(void *)&Lnk116);} /* PRINT-NODE */
+static void LnkT115(){ call_or_link(VV[115],(void **)(void *)&Lnk115);} /* GET-NODE-INDEX */
+static void LnkT114(){ call_or_link(VV[114],(void **)(void *)&Lnk114);} /* SETUP-INFO */
+static void LnkT113(){ call_or_link(VV[113],(void **)(void *)&Lnk113);} /* WAITING */
+static void LnkT112(){ call_or_link(VV[112],(void **)(void *)&Lnk112);} /* INFO-GET-FILE */
+static void LnkT111(){ call_or_link(VV[111],(void **)(void *)&Lnk111);} /* INFO-SUBFILE */
+static void LnkT110(){ call_or_link(VV[110],(void **)(void *)&Lnk110);} /* WINFO */
+static void LnkT109(){ call_or_link(VV[109],(void **)(void *)&Lnk109);} /* TKERROR */
+static void LnkT108(){ call_or_link(VV[108],(void **)(void *)&Lnk108);} /* NODES-FROM-INDEX */
+static void LnkT107(){ call_or_link(VV[107],(void **)(void *)&Lnk107);} /* INFO-GET-TAGS */
+static void LnkT106(){ call_or_link(VV[106],(void **)(void *)&Lnk106);} /* FILE-SEARCH */
+static void LnkT105(){ call_or_link(VV[105],(void **)(void *)&Lnk105);} /* FIX-LOAD-PATH */
+static void LnkT104(){ call_or_link(VV[104],(void **)(void *)&Lnk104);} /* GET-INDEX-NODE */
+static void LnkT103(){ call_or_link(VV[103],(void **)(void *)&Lnk103);} /* SHOW-INFO */
+static void LnkT102(){ call_or_link(VV[102],(void **)(void *)&Lnk102);} /* GET-NODES */
+static void LnkT101(){ call_or_link(VV[101],(void **)(void *)&Lnk101);} /* STRING-CONCATENATE */
+static void LnkT100(){ call_or_link(VV[100],(void **)(void *)&Lnk100);} /* RE-QUOTE-STRING */
+static object LnkTLI99(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[99],(void **)(void *)&LnkLI99,first,ap);va_end(ap);return V1;} /* POSITION */
+static void LnkT98(){ call_or_link(VV[98],(void **)(void *)&Lnk98);} /* INFO-ERROR */
+static void LnkT97(){ call_or_link(VV[97],(void **)(void *)&Lnk97);} /* GET-MATCH */
+static void LnkT96(){ call_or_link(VV[96],(void **)(void *)&Lnk96);} /* ATOI */
+static object LnkTLI95(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[95],(void **)(void *)&LnkLI95,4353,first,ap);va_end(ap);return V1;} /* MATCH-BEGINNING */
+static object LnkTLI94(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[94],(void **)(void *)&LnkLI94,4353,first,ap);va_end(ap);return V1;} /* MATCH-END */
+static object LnkTLI93(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[93],(void **)(void *)&LnkLI93,first,ap);va_end(ap);return V1;} /* STRING-MATCH */
+static void LnkT92(){ call_or_link(VV[92],(void **)(void *)&Lnk92);} /* FILE-TO-STRING */
+static void LnkT91(){ call_or_link(VV[91],(void **)(void *)&Lnk91);} /* FREAD */
+static void LnkT90(){ call_or_link(VV[90],(void **)(void *)&Lnk90);} /* OPEN */
+static object LnkTLI89(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[89],(void **)(void *)&LnkLI89,first,ap);va_end(ap);return V1;} /* VECTOR-PUSH-EXTEND */
+static object LnkTLI88(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[88],(void **)(void *)&LnkLI88,first,ap);va_end(ap);return V1;} /* MAKE-ARRAY */
#ifdef SYSTEM_SPECIAL_INIT
SYSTEM_SPECIAL_INIT
diff --git a/gcl/lsp/loop.c b/gcl/lsp/loop.c
index 5dc929af9..d2df3d71e 100644
--- a/gcl/lsp/loop.c
+++ b/gcl/lsp/loop.c
@@ -7579,66 +7579,66 @@ T2749:;
goto T2748;
}
}
-static void LnkT400(){ call_or_link(VV[400],(void **)&Lnk400);} /* LOOP-STANDARD-EXPANSION */
-static void LnkT399(){ call_or_link(VV[399],(void **)&Lnk399);} /* LOOP-TRANSLATE */
-static void LnkT398(){ call_or_link(VV[398],(void **)&Lnk398);} /* ADD-LOOP-PATH */
-static void LnkT397(){ call_or_link(VV[397],(void **)&Lnk397);} /* MAKE-STANDARD-LOOP-UNIVERSE */
-static void LnkT394(){ call_or_link(VV[394],(void **)&Lnk394);} /* NAMED-VARIABLE */
-static void LnkT389(){ call_or_link(VV[389],(void **)&Lnk389);} /* LOOP-SEQUENCER */
-static object LnkTLI386(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[386],(void **)&LnkLI386,first,ap);va_end(ap);return V1;} /* DELETE */
-static void LnkT385(){ call_or_link(VV[385],(void **)&Lnk385);} /* LOOP-TASSOC */
-static void LnkT384(){ call_or_link(VV[384],(void **)&Lnk384);} /* LOOP-COLLECT-PREPOSITIONAL-PHRASES */
-static void LnkT383(){ call_or_link(VV[383],(void **)&Lnk383);} /* MAKE-LOOP-PATH */
-static void LnkT382(){ call_or_link(VV[382],(void **)&Lnk382);} /* STRUCTURE-SUBTYPE-P */
-static void LnkT381(){ call_or_link(VV[381],(void **)&Lnk381);} /* LOOP-LIST-STEP */
-static void LnkT380(){ call_or_link(VV[380],(void **)&Lnk380);} /* LOOP-MAKE-ITERATION-VARIABLE */
-static void LnkT379(){ call_or_link(VV[379],(void **)&Lnk379);} /* LOOP-CONSTANT-FOLD-IF-POSSIBLE */
-static void LnkT378(){ call_or_link(VV[378],(void **)&Lnk378);} /* LOOP-WHEN-IT-VARIABLE */
-static void LnkT377(){ call_or_link(VV[377],(void **)&Lnk377);} /* LOOP-NOTE-MINIMAX-OPERATION */
-static void LnkT376(){ call_or_link(VV[376],(void **)&Lnk376);} /* MAKE-LOOP-MINIMAX */
-static void LnkT375(){ call_or_link(VV[375],(void **)&Lnk375);} /* LOOP-CHECK-DATA-TYPE */
-static void LnkT372(){ call_or_link(VV[372],(void **)&Lnk372);} /* LOOP-EMIT-FINAL-VALUE */
-static void LnkT371(){ call_or_link(VV[371],(void **)&Lnk371);} /* LOOP-GET-COLLECTION-INFO */
-static void LnkT370(){ call_or_link(VV[370],(void **)&Lnk370);} /* MAKE-LOOP-COLLECTOR */
-static object LnkTLI368(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[368],(void **)&LnkLI368,first,ap);va_end(ap);return V1;} /* FIND */
-static void LnkT367(){ call_or_link(VV[367],(void **)&Lnk367);} /* LOOP-OPTIONAL-TYPE */
-static void LnkT364(){ call_or_link(VV[364],(void **)&Lnk364);} /* LOOP-EMIT-BODY */
-static void LnkT363(){ call_or_link(VV[363],(void **)&Lnk363);} /* LOOP-GET-PROGN */
-static void LnkT362(){ call_or_link(VV[362],(void **)&Lnk362);} /* LOOP-DISALLOW-CONDITIONAL */
-static void LnkT361(){ call_or_link(VV[361],(void **)&Lnk361);} /* LOOP-GET-FORM */
-static void LnkT360(){ call_or_link(VV[360],(void **)&Lnk360);} /* LOOP-CONSTANTP */
-static void LnkT359(){ call_or_link(VV[359],(void **)&Lnk359);} /* LOOP-MAKE-VARIABLE */
-static void LnkT358(){ call_or_link(VV[358],(void **)&Lnk358);} /* LOOP-DECLARE-VARIABLE */
-static void LnkT357(){ call_or_link(VV[357],(void **)&Lnk357);} /* LOOP-TEQUAL */
-static object LnkTLI356(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[356],(void **)&LnkLI356,2,first,ap);va_end(ap);return V1;} /* COERCE */
-static void LnkT355(){ call_or_link(VV[355],(void **)&Lnk355);} /* LOOP-CONSTRUCT-RETURN */
-static void LnkT354(){ call_or_link(VV[354],(void **)&Lnk354);} /* LOOP-PSEUDO-BODY */
-static void LnkT353(){ call_or_link(VV[353],(void **)&Lnk353);} /* LOOP-TMEMBER */
-static void LnkT352(){ call_or_link(VV[352],(void **)&Lnk352);} /* LOOP-HACK-ITERATION */
-static void LnkT351(){ call_or_link(VV[351],(void **)&Lnk351);} /* LOOP-LOOKUP-KEYWORD */
-static void LnkT350(){ call_or_link(VV[350],(void **)&Lnk350);} /* LOOP-POP-SOURCE */
-static void LnkT349(){ call_or_link(VV[349],(void **)&Lnk349);} /* LOOP-BIND-BLOCK */
-static void LnkT348(){ call_or_link(VV[348],(void **)&Lnk348);} /* LOOP-ITERATION-DRIVER */
-static void LnkT347(){ call_or_link(VV[347],(void **)&Lnk347);} /* LOOP-ERROR */
-static void LnkT326(){ call_or_link(VV[326],(void **)&Lnk326);} /* SUBTYPEP */
-static object LnkTLI346(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[346],(void **)&LnkLI346,first,ap);va_end(ap);return V1;} /* WARN */
-static void LnkT345(){ call_or_link(VV[345],(void **)&Lnk345);} /* SPECIFIC-ERROR */
-static void LnkT344(){ call_or_link(VV[344],(void **)&Lnk344);} /* LOOP-CONTEXT */
-static void LnkT343(){ call_or_link(VV[343],(void **)&Lnk343);} /* SPECIAL-OPERATOR-P */
-static void LnkT342(){ call_or_link(VV[342],(void **)&Lnk342);} /* ESTIMATE-CODE-SIZE-1 */
-static void LnkT341(){ call_or_link(VV[341],(void **)&Lnk341);} /* DESTRUCTURING-SIZE */
-static void LnkT77(){ call_or_link(VV[77],(void **)&Lnk77);} /* ESTIMATE-CODE-SIZE */
-static void LnkT340(){ call_or_link(VV[340],(void **)&Lnk340);} /* LOOP-CODE-DUPLICATION-THRESHOLD */
-static void LnkT339(){ call_or_link(VV[339],(void **)&Lnk339);} /* LOOP-OPTIMIZATION-QUANTITIES */
-static void LnkT338(){ call_or_link(VV[338],(void **)&Lnk338);} /* LOOP-WARN */
-static void LnkT337(){ call_or_link(VV[337],(void **)&Lnk337);} /* LOOP-MAKE-DESETQ */
-static void LnkT336(){ call_or_link(VV[336],(void **)&Lnk336);} /* LOOP-MAKE-PSETQ */
-static void LnkT335(){ call_or_link(VV[335],(void **)&Lnk335);} /* MAKE-LOOP-UNIVERSE */
-static void LnkT333(){ call_or_link(VV[333],(void **)&Lnk333);} /* TYPEP */
-static void LnkT331(){ call_or_link(VV[331],(void **)&Lnk331);} /* HIDE-VARIABLE-REFERENCE */
-static void LnkT329(){ call_or_link(VV[329],(void **)&Lnk329);} /* LOOP-TYPED-INIT */
-static void LnkT328(){ call_or_link(VV[328],(void **)&Lnk328);} /* MAKE-LOOP-MINIMAX-INTERNAL */
-static void LnkT327(){ call_or_link(VV[327],(void **)&Lnk327);} /* LOOP-GENTEMP */
+static void LnkT400(){ call_or_link(VV[400],(void **)(void *)&Lnk400);} /* LOOP-STANDARD-EXPANSION */
+static void LnkT399(){ call_or_link(VV[399],(void **)(void *)&Lnk399);} /* LOOP-TRANSLATE */
+static void LnkT398(){ call_or_link(VV[398],(void **)(void *)&Lnk398);} /* ADD-LOOP-PATH */
+static void LnkT397(){ call_or_link(VV[397],(void **)(void *)&Lnk397);} /* MAKE-STANDARD-LOOP-UNIVERSE */
+static void LnkT394(){ call_or_link(VV[394],(void **)(void *)&Lnk394);} /* NAMED-VARIABLE */
+static void LnkT389(){ call_or_link(VV[389],(void **)(void *)&Lnk389);} /* LOOP-SEQUENCER */
+static object LnkTLI386(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[386],(void **)(void *)&LnkLI386,first,ap);va_end(ap);return V1;} /* DELETE */
+static void LnkT385(){ call_or_link(VV[385],(void **)(void *)&Lnk385);} /* LOOP-TASSOC */
+static void LnkT384(){ call_or_link(VV[384],(void **)(void *)&Lnk384);} /* LOOP-COLLECT-PREPOSITIONAL-PHRASES */
+static void LnkT383(){ call_or_link(VV[383],(void **)(void *)&Lnk383);} /* MAKE-LOOP-PATH */
+static void LnkT382(){ call_or_link(VV[382],(void **)(void *)&Lnk382);} /* STRUCTURE-SUBTYPE-P */
+static void LnkT381(){ call_or_link(VV[381],(void **)(void *)&Lnk381);} /* LOOP-LIST-STEP */
+static void LnkT380(){ call_or_link(VV[380],(void **)(void *)&Lnk380);} /* LOOP-MAKE-ITERATION-VARIABLE */
+static void LnkT379(){ call_or_link(VV[379],(void **)(void *)&Lnk379);} /* LOOP-CONSTANT-FOLD-IF-POSSIBLE */
+static void LnkT378(){ call_or_link(VV[378],(void **)(void *)&Lnk378);} /* LOOP-WHEN-IT-VARIABLE */
+static void LnkT377(){ call_or_link(VV[377],(void **)(void *)&Lnk377);} /* LOOP-NOTE-MINIMAX-OPERATION */
+static void LnkT376(){ call_or_link(VV[376],(void **)(void *)&Lnk376);} /* MAKE-LOOP-MINIMAX */
+static void LnkT375(){ call_or_link(VV[375],(void **)(void *)&Lnk375);} /* LOOP-CHECK-DATA-TYPE */
+static void LnkT372(){ call_or_link(VV[372],(void **)(void *)&Lnk372);} /* LOOP-EMIT-FINAL-VALUE */
+static void LnkT371(){ call_or_link(VV[371],(void **)(void *)&Lnk371);} /* LOOP-GET-COLLECTION-INFO */
+static void LnkT370(){ call_or_link(VV[370],(void **)(void *)&Lnk370);} /* MAKE-LOOP-COLLECTOR */
+static object LnkTLI368(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[368],(void **)(void *)&LnkLI368,first,ap);va_end(ap);return V1;} /* FIND */
+static void LnkT367(){ call_or_link(VV[367],(void **)(void *)&Lnk367);} /* LOOP-OPTIONAL-TYPE */
+static void LnkT364(){ call_or_link(VV[364],(void **)(void *)&Lnk364);} /* LOOP-EMIT-BODY */
+static void LnkT363(){ call_or_link(VV[363],(void **)(void *)&Lnk363);} /* LOOP-GET-PROGN */
+static void LnkT362(){ call_or_link(VV[362],(void **)(void *)&Lnk362);} /* LOOP-DISALLOW-CONDITIONAL */
+static void LnkT361(){ call_or_link(VV[361],(void **)(void *)&Lnk361);} /* LOOP-GET-FORM */
+static void LnkT360(){ call_or_link(VV[360],(void **)(void *)&Lnk360);} /* LOOP-CONSTANTP */
+static void LnkT359(){ call_or_link(VV[359],(void **)(void *)&Lnk359);} /* LOOP-MAKE-VARIABLE */
+static void LnkT358(){ call_or_link(VV[358],(void **)(void *)&Lnk358);} /* LOOP-DECLARE-VARIABLE */
+static void LnkT357(){ call_or_link(VV[357],(void **)(void *)&Lnk357);} /* LOOP-TEQUAL */
+static object LnkTLI356(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[356],(void **)(void *)&LnkLI356,2,first,ap);va_end(ap);return V1;} /* COERCE */
+static void LnkT355(){ call_or_link(VV[355],(void **)(void *)&Lnk355);} /* LOOP-CONSTRUCT-RETURN */
+static void LnkT354(){ call_or_link(VV[354],(void **)(void *)&Lnk354);} /* LOOP-PSEUDO-BODY */
+static void LnkT353(){ call_or_link(VV[353],(void **)(void *)&Lnk353);} /* LOOP-TMEMBER */
+static void LnkT352(){ call_or_link(VV[352],(void **)(void *)&Lnk352);} /* LOOP-HACK-ITERATION */
+static void LnkT351(){ call_or_link(VV[351],(void **)(void *)&Lnk351);} /* LOOP-LOOKUP-KEYWORD */
+static void LnkT350(){ call_or_link(VV[350],(void **)(void *)&Lnk350);} /* LOOP-POP-SOURCE */
+static void LnkT349(){ call_or_link(VV[349],(void **)(void *)&Lnk349);} /* LOOP-BIND-BLOCK */
+static void LnkT348(){ call_or_link(VV[348],(void **)(void *)&Lnk348);} /* LOOP-ITERATION-DRIVER */
+static void LnkT347(){ call_or_link(VV[347],(void **)(void *)&Lnk347);} /* LOOP-ERROR */
+static void LnkT326(){ call_or_link(VV[326],(void **)(void *)&Lnk326);} /* SUBTYPEP */
+static object LnkTLI346(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[346],(void **)(void *)&LnkLI346,first,ap);va_end(ap);return V1;} /* WARN */
+static void LnkT345(){ call_or_link(VV[345],(void **)(void *)&Lnk345);} /* SPECIFIC-ERROR */
+static void LnkT344(){ call_or_link(VV[344],(void **)(void *)&Lnk344);} /* LOOP-CONTEXT */
+static void LnkT343(){ call_or_link(VV[343],(void **)(void *)&Lnk343);} /* SPECIAL-OPERATOR-P */
+static void LnkT342(){ call_or_link(VV[342],(void **)(void *)&Lnk342);} /* ESTIMATE-CODE-SIZE-1 */
+static void LnkT341(){ call_or_link(VV[341],(void **)(void *)&Lnk341);} /* DESTRUCTURING-SIZE */
+static void LnkT77(){ call_or_link(VV[77],(void **)(void *)&Lnk77);} /* ESTIMATE-CODE-SIZE */
+static void LnkT340(){ call_or_link(VV[340],(void **)(void *)&Lnk340);} /* LOOP-CODE-DUPLICATION-THRESHOLD */
+static void LnkT339(){ call_or_link(VV[339],(void **)(void *)&Lnk339);} /* LOOP-OPTIMIZATION-QUANTITIES */
+static void LnkT338(){ call_or_link(VV[338],(void **)(void *)&Lnk338);} /* LOOP-WARN */
+static void LnkT337(){ call_or_link(VV[337],(void **)(void *)&Lnk337);} /* LOOP-MAKE-DESETQ */
+static void LnkT336(){ call_or_link(VV[336],(void **)(void *)&Lnk336);} /* LOOP-MAKE-PSETQ */
+static void LnkT335(){ call_or_link(VV[335],(void **)(void *)&Lnk335);} /* MAKE-LOOP-UNIVERSE */
+static void LnkT333(){ call_or_link(VV[333],(void **)(void *)&Lnk333);} /* TYPEP */
+static void LnkT331(){ call_or_link(VV[331],(void **)(void *)&Lnk331);} /* HIDE-VARIABLE-REFERENCE */
+static void LnkT329(){ call_or_link(VV[329],(void **)(void *)&Lnk329);} /* LOOP-TYPED-INIT */
+static void LnkT328(){ call_or_link(VV[328],(void **)(void *)&Lnk328);} /* MAKE-LOOP-MINIMAX-INTERNAL */
+static void LnkT327(){ call_or_link(VV[327],(void **)(void *)&Lnk327);} /* LOOP-GENTEMP */
#ifdef SYSTEM_SPECIAL_INIT
SYSTEM_SPECIAL_INIT
diff --git a/gcl/lsp/setf.c b/gcl/lsp/setf.c
index d60b688dd..a52bb5e1d 100755
--- a/gcl/lsp/setf.c
+++ b/gcl/lsp/setf.c
@@ -2395,13 +2395,13 @@ T662:;
vs_top=(vs_base=base+3)+1;
return;}
}
-static object LnkTLI104(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[104],(void **)&LnkLI104,2,first,ap);va_end(ap);return V1;} /* SETF-EXPAND */
-static object LnkTLI103(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[103],(void **)&LnkLI103,3,first,ap);va_end(ap);return V1;} /* SETF-EXPAND-1 */
-static void LnkT101(){ call_or_link(VV[101],(void **)&Lnk101);} /* GET-SETF-METHOD */
-static object LnkTLI100(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[100],(void **)&LnkLI100,4,first,ap);va_end(ap);return V1;} /* SETF-STRUCTURE-ACCESS */
-static void LnkT99(){ call_or_link(VV[99],(void **)&Lnk99);} /* GET-SETF-METHOD-MULTIPLE-VALUE */
-static void LnkT98(){ call_or_link(VV[98],(void **)&Lnk98);} /* GET-&ENVIRONMENT */
-static object LnkTLI97(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[97],(void **)&LnkLI97,1,first,ap);va_end(ap);return V1;} /* FIND-DOCUMENTATION */
+static object LnkTLI104(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[104],(void **)(void *)&LnkLI104,2,first,ap);va_end(ap);return V1;} /* SETF-EXPAND */
+static object LnkTLI103(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[103],(void **)(void *)&LnkLI103,3,first,ap);va_end(ap);return V1;} /* SETF-EXPAND-1 */
+static void LnkT101(){ call_or_link(VV[101],(void **)(void *)&Lnk101);} /* GET-SETF-METHOD */
+static object LnkTLI100(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[100],(void **)(void *)&LnkLI100,4,first,ap);va_end(ap);return V1;} /* SETF-STRUCTURE-ACCESS */
+static void LnkT99(){ call_or_link(VV[99],(void **)(void *)&Lnk99);} /* GET-SETF-METHOD-MULTIPLE-VALUE */
+static void LnkT98(){ call_or_link(VV[98],(void **)(void *)&Lnk98);} /* GET-&ENVIRONMENT */
+static object LnkTLI97(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[97],(void **)(void *)&LnkLI97,1,first,ap);va_end(ap);return V1;} /* FIND-DOCUMENTATION */
#ifdef SYSTEM_SPECIAL_INIT
SYSTEM_SPECIAL_INIT
diff --git a/gcl/o/read.d b/gcl/o/read.d
index ce5cae7ed..780f7effb 100755
--- a/gcl/o/read.d
+++ b/gcl/o/read.d
@@ -2742,7 +2742,7 @@ read_fasl_vector1(in)
object in;
{
int dimcount, dim;
- object *vsp;
+ object *vsp,vspo;
VOL object x;
int i;
bool e;
@@ -2755,7 +2755,7 @@ object in;
old_sharp_eq_context[SHARP_EQ_CONTEXT_SIZE];
int old_backq_level;
- vsp=(object *)&vsp;
+ vsp=&vspo;
old_READtable = READtable;
old_READdefault_float_format = READdefault_float_format;
old_READbase = READbase;
generated by cgit v1.2.3 (git 2.25.1) at 2025年09月01日 18:03:06 +0000

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