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:01 +0000
committerCamm Maguire <camm@debian.org>2003年07月16日 02:03:01 +0000
commit958221e6a392bf805e86e17067ae0cbcb899e47a (patch)
treeaed581ecac0513f443170971892fa770de347744
parente6364daafc1639b63c780edea9d0aac7c14e603a (diff)
downloadgcl-unlabeled-1.9.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.9.4
Diffstat
-rwxr-xr-xgcl/cmpnew/cmpcall.c 114
-rwxr-xr-xgcl/cmpnew/cmpenv.c 52
-rwxr-xr-xgcl/cmpnew/cmpflet.c 54
-rwxr-xr-xgcl/cmpnew/cmpinline.c 70
-rwxr-xr-xgcl/cmpnew/cmplam.c 88
-rwxr-xr-xgcl/cmpnew/cmplet.c 64
-rwxr-xr-xgcl/cmpnew/cmpmap.c 28
-rwxr-xr-xgcl/cmpnew/cmpmulti.c 70
-rwxr-xr-xgcl/cmpnew/cmpspecial.c 46
-rwxr-xr-xgcl/cmpnew/cmptag.c 78
-rwxr-xr-xgcl/cmpnew/cmputil.c 14
-rwxr-xr-xgcl/cmpnew/cmpvar.c 94
-rwxr-xr-xgcl/cmpnew/cmpwt.c 26
-rwxr-xr-xgcl/lsp/assert.c 8
-rwxr-xr-xgcl/lsp/defmacro.c 16
-rwxr-xr-xgcl/lsp/evalmacros.c 2
-rwxr-xr-xgcl/lsp/listlib.c 28
-rwxr-xr-xgcl/lsp/numlib.c 22
-rwxr-xr-xgcl/lsp/trace.c 26
-rwxr-xr-xgcl/o/num_log.c 5
-rwxr-xr-xgcl/o/number.c 7
-rwxr-xr-xgcl/o/structure.c 2
22 files changed, 461 insertions, 453 deletions
diff --git a/gcl/cmpnew/cmpcall.c b/gcl/cmpnew/cmpcall.c
index 707de5873..ab3820f35 100755
--- a/gcl/cmpnew/cmpcall.c
+++ b/gcl/cmpnew/cmpcall.c
@@ -1253,7 +1253,7 @@ TTL:;
(void)((*(LnkLI117))((V165)));
princ_str("(){ call_or_link(VV[",VV[29]);
(void)((*(LnkLI117))((V165)));
- princ_str("],(void **)&Lnk",VV[29]);
+ princ_str("],(void **)(void *)&Lnk",VV[29]);
(void)((*(LnkLI117))((V165)));
princ_str(");}",VV[29]);
goto T520;
@@ -1265,9 +1265,9 @@ T522:;
(void)((*(LnkLI117))((V165)));
princ_str("(ptr) object *ptr;{ call_or_link_closure(VV[",VV[29]);
(void)((*(LnkLI117))((V165)));
- princ_str("],(void **)&Lnk",VV[29]);
+ princ_str("],(void **)(void *)&Lnk",VV[29]);
(void)((*(LnkLI117))((V165)));
- princ_str(",(void **)&Lclptr",VV[29]);
+ princ_str(",(void **)(void *)&Lclptr",VV[29]);
(void)((*(LnkLI117))((V165)));
princ_str(");}",VV[29]);
goto T520;
@@ -1320,7 +1320,7 @@ T564:;
princ_str("proc_new(VV[",VV[29]);
V173= (*(LnkLI145))((V164));
(void)((*(LnkLI117))(/* INLINE-ARGS */V173));
- princ_str("],(void **)&Lnk",VV[29]);
+ princ_str("],(void **)(void *)&Lnk",VV[29]);
(void)((*(LnkLI117))((V165)));
if((V169)!=Cnil){
goto T572;}
@@ -1336,7 +1336,7 @@ T551:;
princ_str("(){return call_proc0(VV[",VV[29]);
V175= (*(LnkLI145))((V164));
(void)((*(LnkLI117))(/* INLINE-ARGS */V175));
- princ_str("],(void **)&Lnk",VV[29]);
+ princ_str("],(void **)(void *)&Lnk",VV[29]);
(void)((*(LnkLI117))((V165)));
princ_str(");}",VV[29]);
goto T520;
@@ -1919,58 +1919,58 @@ register object *base0;
return;
}
}
-static void LnkT152(){ call_or_link(VV[152],(void **)&Lnk152);} /* WT-INLINE-LOC */
-static object LnkTLI151(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[151],(void **)&LnkLI151,1,first,ap);va_end(ap);return V1;} /* ARGS-CAUSE-SIDE-EFFECT */
-static void LnkT149(){ call_or_link(VV[149],(void **)&Lnk149);} /* WT-LOC */
-static object LnkTLI148(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[148],(void **)&LnkLI148,first,ap);va_end(ap);return V1;} /* REMOVE */
-static object LnkTLI147(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[147],(void **)&LnkLI147,first,ap);va_end(ap);return V1;} /* FIND */
-static object LnkTLI146(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[146],(void **)&LnkLI146,258,first,ap);va_end(ap);return V1;} /* PROCLAIMED-ARGD */
-static object LnkTLI145(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[145],(void **)&LnkLI145,1,first,ap);va_end(ap);return V1;} /* ADD-OBJECT */
-static void LnkT144(){ call_or_link(VV[144],(void **)&Lnk144);} /* DECLARATION-TYPE */
-static object LnkTLI143(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[143],(void **)&LnkLI143,1,first,ap);va_end(ap);return V1;} /* REP-TYPE */
-static void LnkT142(){ call_or_link(VV[142],(void **)&Lnk142);} /* GET-OUTPUT-STREAM-STRING */
-static void LnkT141(){ call_or_link(VV[141],(void **)&Lnk141);} /* MAKE-STRING-OUTPUT-STREAM */
-static object LnkTLI140(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[140],(void **)&LnkLI140,1,first,ap);va_end(ap);return V1;} /* ADD-SYMBOL */
-static object LnkTLI139(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[139],(void **)&LnkLI139,4,first,ap);va_end(ap);return V1;} /* C2CALL-UNKNOWN-GLOBAL */
-static object LnkTLI138(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[138],(void **)&LnkLI138,3,first,ap);va_end(ap);return V1;} /* ADD-FAST-LINK */
-static object LnkTLI137(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[137],(void **)&LnkLI137,2,first,ap);va_end(ap);return V1;} /* INLINE-PROC */
-static object LnkTLI136(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[136],(void **)&LnkLI136,2,first,ap);va_end(ap);return V1;} /* CHECK-FNAME-ARGS */
-static object LnkTLI135(){return call_proc0(VV[135],(void **)&LnkLI135);} /* CLOSE-INLINE-BLOCKS */
-static object LnkTLI134(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[134],(void **)&LnkLI134,2,first,ap);va_end(ap);return V1;} /* GET-INLINE-LOC */
-static void LnkT133(){ call_or_link(VV[133],(void **)&Lnk133);} /* SAVE-AVMA */
-static object LnkTLI132(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[132],(void **)&LnkLI132,3,first,ap);va_end(ap);return V1;} /* GET-INLINE-INFO */
-static object LnkTLI131(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[131],(void **)&LnkLI131,first,ap);va_end(ap);return V1;} /* CMPNOTE */
-static object LnkTLI130(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[130],(void **)&LnkLI130,1,first,ap);va_end(ap);return V1;} /* UNWIND-NO-EXIT */
-static object LnkTLI129(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[129],(void **)&LnkLI129,2,first,ap);va_end(ap);return V1;} /* C2PSETQ */
-static object LnkTLI128(){return call_proc0(VV[128],(void **)&LnkLI128);} /* TAIL-RECURSION-POSSIBLE */
-static object LnkTLI127(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[127],(void **)&LnkLI127,1,first,ap);va_end(ap);return V1;} /* INLINE-POSSIBLE */
-static void LnkT126(){ call_or_link(VV[126],(void **)&Lnk126);} /* INC-INLINE-BLOCKS */
-static object LnkTLI125(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[125],(void **)&LnkLI125,first,ap);va_end(ap);return V1;} /* CMPWARN */
-static object LnkTLI124(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[124],(void **)&LnkLI124,3,first,ap);va_end(ap);return V1;} /* C2LET */
-static object LnkTLI123(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[123],(void **)&LnkLI123,first,ap);va_end(ap);return V1;} /* CMPERR */
-static object LnkTLI122(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[122],(void **)&LnkLI122,first,ap);va_end(ap);return V1;} /* C2LAMBDA-EXPR */
-static object LnkTLI121(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[121],(void **)&LnkLI121,1,first,ap);va_end(ap);return V1;} /* NEED-TO-SET-VS-POINTERS */
-static object LnkTLI120(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[120],(void **)&LnkLI120,1,first,ap);va_end(ap);return V1;} /* PUSH-ARGS-LISPCALL */
-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;} /* CS-PUSH */
-static object LnkTLI118(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[118],(void **)&LnkLI118,first,ap);va_end(ap);return V1;} /* UNWIND-EXIT */
-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;} /* WT1 */
-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;} /* PUSH-ARGS */
-static object LnkTLI115(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[115],(void **)&LnkLI115,1,first,ap);va_end(ap);return V1;} /* C2EXPR* */
-static object LnkTLI114(){return call_proc0(VV[114],(void **)&LnkLI114);} /* VS-PUSH */
-static object LnkTLI113(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[113],(void **)&LnkLI113,2,first,ap);va_end(ap);return V1;} /* ARGS-INFO-CHANGED-VARS */
-static object LnkTLI112(){return call_proc0(VV[112],(void **)&LnkLI112);} /* BABOON */
-static object LnkTLI111(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[111],(void **)&LnkLI111,3,first,ap);va_end(ap);return V1;} /* C2FUNCALL-SFUN */
-static object LnkTLI110(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[110],(void **)&LnkLI110,2,first,ap);va_end(ap);return V1;} /* C2CALL-LAMBDA */
-static object LnkTLI109(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[109],(void **)&LnkLI109,2,first,ap);va_end(ap);return V1;} /* C2CALL-LOCAL */
-static object LnkTLI108(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[108],(void **)&LnkLI108,4,first,ap);va_end(ap);return V1;} /* C2CALL-GLOBAL */
-static object LnkTLI107(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[107],(void **)&LnkLI107,first,ap);va_end(ap);return V1;} /* C2FUNCALL */
-static object LnkTLI106(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[106],(void **)&LnkLI106,2,first,ap);va_end(ap);return V1;} /* ADD-INFO */
-static object LnkTLI105(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[105],(void **)&LnkLI105,1,first,ap);va_end(ap);return V1;} /* C1EXPR */
-static object LnkTLI104(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[104],(void **)&LnkLI104,first,ap);va_end(ap);return V1;} /* MAKE-INFO */
-static object LnkTLI103(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[103],(void **)&LnkLI103,first,ap);va_end(ap);return V1;} /* C1LAMBDA-EXPR */
-static object LnkTLI102(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[102],(void **)&LnkLI102,1,first,ap);va_end(ap);return V1;} /* CMP-MACROEXPAND */
-static object LnkTLI101(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[101],(void **)&LnkLI101,1,first,ap);va_end(ap);return V1;} /* CMP-MACRO-FUNCTION */
-static object LnkTLI100(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[100],(void **)&LnkLI100,1,first,ap);va_end(ap);return V1;} /* C1LOCAL-FUN */
+static void LnkT152(){ call_or_link(VV[152],(void **)(void *)&Lnk152);} /* WT-INLINE-LOC */
+static object LnkTLI151(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[151],(void **)(void *)&LnkLI151,1,first,ap);va_end(ap);return V1;} /* ARGS-CAUSE-SIDE-EFFECT */
+static void LnkT149(){ call_or_link(VV[149],(void **)(void *)&Lnk149);} /* WT-LOC */
+static object LnkTLI148(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[148],(void **)(void *)&LnkLI148,first,ap);va_end(ap);return V1;} /* REMOVE */
+static object LnkTLI147(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[147],(void **)(void *)&LnkLI147,first,ap);va_end(ap);return V1;} /* FIND */
+static object LnkTLI146(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[146],(void **)(void *)&LnkLI146,258,first,ap);va_end(ap);return V1;} /* PROCLAIMED-ARGD */
+static object LnkTLI145(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[145],(void **)(void *)&LnkLI145,1,first,ap);va_end(ap);return V1;} /* ADD-OBJECT */
+static void LnkT144(){ call_or_link(VV[144],(void **)(void *)&Lnk144);} /* DECLARATION-TYPE */
+static object LnkTLI143(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[143],(void **)(void *)&LnkLI143,1,first,ap);va_end(ap);return V1;} /* REP-TYPE */
+static void LnkT142(){ call_or_link(VV[142],(void **)(void *)&Lnk142);} /* GET-OUTPUT-STREAM-STRING */
+static void LnkT141(){ call_or_link(VV[141],(void **)(void *)&Lnk141);} /* MAKE-STRING-OUTPUT-STREAM */
+static object LnkTLI140(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[140],(void **)(void *)&LnkLI140,1,first,ap);va_end(ap);return V1;} /* ADD-SYMBOL */
+static object LnkTLI139(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[139],(void **)(void *)&LnkLI139,4,first,ap);va_end(ap);return V1;} /* C2CALL-UNKNOWN-GLOBAL */
+static object LnkTLI138(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[138],(void **)(void *)&LnkLI138,3,first,ap);va_end(ap);return V1;} /* ADD-FAST-LINK */
+static object LnkTLI137(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[137],(void **)(void *)&LnkLI137,2,first,ap);va_end(ap);return V1;} /* INLINE-PROC */
+static object LnkTLI136(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[136],(void **)(void *)&LnkLI136,2,first,ap);va_end(ap);return V1;} /* CHECK-FNAME-ARGS */
+static object LnkTLI135(){return call_proc0(VV[135],(void **)(void *)&LnkLI135);} /* CLOSE-INLINE-BLOCKS */
+static object LnkTLI134(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[134],(void **)(void *)&LnkLI134,2,first,ap);va_end(ap);return V1;} /* GET-INLINE-LOC */
+static void LnkT133(){ call_or_link(VV[133],(void **)(void *)&Lnk133);} /* SAVE-AVMA */
+static object LnkTLI132(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[132],(void **)(void *)&LnkLI132,3,first,ap);va_end(ap);return V1;} /* GET-INLINE-INFO */
+static object LnkTLI131(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[131],(void **)(void *)&LnkLI131,first,ap);va_end(ap);return V1;} /* CMPNOTE */
+static object LnkTLI130(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[130],(void **)(void *)&LnkLI130,1,first,ap);va_end(ap);return V1;} /* UNWIND-NO-EXIT */
+static object LnkTLI129(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[129],(void **)(void *)&LnkLI129,2,first,ap);va_end(ap);return V1;} /* C2PSETQ */
+static object LnkTLI128(){return call_proc0(VV[128],(void **)(void *)&LnkLI128);} /* TAIL-RECURSION-POSSIBLE */
+static object LnkTLI127(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[127],(void **)(void *)&LnkLI127,1,first,ap);va_end(ap);return V1;} /* INLINE-POSSIBLE */
+static void LnkT126(){ call_or_link(VV[126],(void **)(void *)&Lnk126);} /* INC-INLINE-BLOCKS */
+static object LnkTLI125(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[125],(void **)(void *)&LnkLI125,first,ap);va_end(ap);return V1;} /* CMPWARN */
+static object LnkTLI124(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[124],(void **)(void *)&LnkLI124,3,first,ap);va_end(ap);return V1;} /* C2LET */
+static object LnkTLI123(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[123],(void **)(void *)&LnkLI123,first,ap);va_end(ap);return V1;} /* CMPERR */
+static object LnkTLI122(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[122],(void **)(void *)&LnkLI122,first,ap);va_end(ap);return V1;} /* C2LAMBDA-EXPR */
+static object LnkTLI121(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[121],(void **)(void *)&LnkLI121,1,first,ap);va_end(ap);return V1;} /* NEED-TO-SET-VS-POINTERS */
+static object LnkTLI120(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[120],(void **)(void *)&LnkLI120,1,first,ap);va_end(ap);return V1;} /* PUSH-ARGS-LISPCALL */
+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;} /* CS-PUSH */
+static object LnkTLI118(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[118],(void **)(void *)&LnkLI118,first,ap);va_end(ap);return V1;} /* UNWIND-EXIT */
+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;} /* WT1 */
+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;} /* PUSH-ARGS */
+static object LnkTLI115(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[115],(void **)(void *)&LnkLI115,1,first,ap);va_end(ap);return V1;} /* C2EXPR* */
+static object LnkTLI114(){return call_proc0(VV[114],(void **)(void *)&LnkLI114);} /* VS-PUSH */
+static object LnkTLI113(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[113],(void **)(void *)&LnkLI113,2,first,ap);va_end(ap);return V1;} /* ARGS-INFO-CHANGED-VARS */
+static object LnkTLI112(){return call_proc0(VV[112],(void **)(void *)&LnkLI112);} /* BABOON */
+static object LnkTLI111(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[111],(void **)(void *)&LnkLI111,3,first,ap);va_end(ap);return V1;} /* C2FUNCALL-SFUN */
+static object LnkTLI110(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[110],(void **)(void *)&LnkLI110,2,first,ap);va_end(ap);return V1;} /* C2CALL-LAMBDA */
+static object LnkTLI109(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[109],(void **)(void *)&LnkLI109,2,first,ap);va_end(ap);return V1;} /* C2CALL-LOCAL */
+static object LnkTLI108(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[108],(void **)(void *)&LnkLI108,4,first,ap);va_end(ap);return V1;} /* C2CALL-GLOBAL */
+static object LnkTLI107(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[107],(void **)(void *)&LnkLI107,first,ap);va_end(ap);return V1;} /* C2FUNCALL */
+static object LnkTLI106(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[106],(void **)(void *)&LnkLI106,2,first,ap);va_end(ap);return V1;} /* ADD-INFO */
+static object LnkTLI105(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[105],(void **)(void *)&LnkLI105,1,first,ap);va_end(ap);return V1;} /* C1EXPR */
+static object LnkTLI104(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[104],(void **)(void *)&LnkLI104,first,ap);va_end(ap);return V1;} /* MAKE-INFO */
+static object LnkTLI103(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[103],(void **)(void *)&LnkLI103,first,ap);va_end(ap);return V1;} /* C1LAMBDA-EXPR */
+static object LnkTLI102(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[102],(void **)(void *)&LnkLI102,1,first,ap);va_end(ap);return V1;} /* CMP-MACROEXPAND */
+static object LnkTLI101(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[101],(void **)(void *)&LnkLI101,1,first,ap);va_end(ap);return V1;} /* CMP-MACRO-FUNCTION */
+static object LnkTLI100(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[100],(void **)(void *)&LnkLI100,1,first,ap);va_end(ap);return V1;} /* C1LOCAL-FUN */
#ifdef SYSTEM_SPECIAL_INIT
SYSTEM_SPECIAL_INIT
diff --git a/gcl/cmpnew/cmpenv.c b/gcl/cmpnew/cmpenv.c
index 36cdd2c93..7badf4c30 100755
--- a/gcl/cmpnew/cmpenv.c
+++ b/gcl/cmpnew/cmpenv.c
@@ -2468,32 +2468,32 @@ T1213:;
base[0]=base[0];
return Cnil;
}
-static void LnkT186(){ call_or_link(VV[186],(void **)&Lnk186);} /* C2EXPR */
-static object LnkTLI185(){return call_proc0(VV[185],(void **)&LnkLI185);} /* BABOON */
-static object LnkTLI184(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[184],(void **)&LnkLI184,first,ap);va_end(ap);return V1;} /* REMOVE */
-static object LnkTLI183(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[183],(void **)&LnkLI183,3,first,ap);va_end(ap);return V1;} /* ADD-FUNCTION-DECLARATION */
-static object LnkTLI182(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[182],(void **)&LnkLI182,1,first,ap);va_end(ap);return V1;} /* C1PROGN */
-static object LnkTLI180(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[180],(void **)&LnkLI180,1,first,ap);va_end(ap);return V1;} /* CMP-MACROEXPAND */
-static object LnkTLI179(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[179],(void **)&LnkLI179,1,first,ap);va_end(ap);return V1;} /* SCH-GLOBAL */
-static object LnkTLI141(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[141],(void **)&LnkLI141,3,first,ap);va_end(ap);return V1;} /* ADD-FUNCTION-PROCLAMATION */
-static object LnkTLI135(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[135],(void **)&LnkLI135,2,first,ap);va_end(ap);return V1;} /* PROCLAIM-VAR */
-static void LnkT130(){ call_or_link(VV[130],(void **)&Lnk130);} /* *MAKE-SPECIAL */
-static object LnkTLI128(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[128],(void **)&LnkLI128,first,ap);va_end(ap);return V1;} /* CMPWARN */
-static object LnkTLI127(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[127],(void **)&LnkLI127,2,first,ap);va_end(ap);return V1;} /* TYPE-AND */
-static object LnkTLI126(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[126],(void **)&LnkLI126,1,first,ap);va_end(ap);return V1;} /* SCH-LOCAL-FUN */
-static object LnkTLI125(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[125],(void **)&LnkLI125,1,first,ap);va_end(ap);return V1;} /* FUNCTION-RETURN-TYPE */
-static object LnkTLI124(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[124],(void **)&LnkLI124,1,first,ap);va_end(ap);return V1;} /* FUNCTION-ARG-TYPES */
-static object LnkTLI123(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[123],(void **)&LnkLI123,first,ap);va_end(ap);return V1;} /* WARN */
-static object LnkTLI122(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[122],(void **)&LnkLI122,1,first,ap);va_end(ap);return V1;} /* TYPE-FILTER */
-static object LnkTLI121(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[121],(void **)&LnkLI121,first,ap);va_end(ap);return V1;} /* CMPERR */
-static void LnkT120(){ call_or_link(VV[120],(void **)&Lnk120);} /* COMPILED-FUNCTION-NAME */
-static void LnkT119(){ call_or_link(VV[119],(void **)&Lnk119);} /* TYPEP */
-static void LnkT118(){ call_or_link(VV[118],(void **)&Lnk118);} /* WT-TO-STRING */
-static void LnkT117(){ call_or_link(VV[117],(void **)&Lnk117);} /* CONTAINS-SHARP-COMMA */
-static void LnkT116(){ call_or_link(VV[116],(void **)&Lnk116);} /* GET-OUTPUT-STREAM-STRING */
-static object LnkTLI115(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[115],(void **)&LnkLI115,1,first,ap);va_end(ap);return V1;} /* WT-DATA1 */
-static void LnkT114(){ call_or_link(VV[114],(void **)&Lnk114);} /* MAKE-STRING-OUTPUT-STREAM */
-static object LnkTLI113(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[113],(void **)&LnkLI113,1,first,ap);va_end(ap);return V1;} /* PUSH-DATA-INCF */
+static void LnkT186(){ call_or_link(VV[186],(void **)(void *)&Lnk186);} /* C2EXPR */
+static object LnkTLI185(){return call_proc0(VV[185],(void **)(void *)&LnkLI185);} /* BABOON */
+static object LnkTLI184(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[184],(void **)(void *)&LnkLI184,first,ap);va_end(ap);return V1;} /* REMOVE */
+static object LnkTLI183(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[183],(void **)(void *)&LnkLI183,3,first,ap);va_end(ap);return V1;} /* ADD-FUNCTION-DECLARATION */
+static object LnkTLI182(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[182],(void **)(void *)&LnkLI182,1,first,ap);va_end(ap);return V1;} /* C1PROGN */
+static object LnkTLI180(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[180],(void **)(void *)&LnkLI180,1,first,ap);va_end(ap);return V1;} /* CMP-MACROEXPAND */
+static object LnkTLI179(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[179],(void **)(void *)&LnkLI179,1,first,ap);va_end(ap);return V1;} /* SCH-GLOBAL */
+static object LnkTLI141(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[141],(void **)(void *)&LnkLI141,3,first,ap);va_end(ap);return V1;} /* ADD-FUNCTION-PROCLAMATION */
+static object LnkTLI135(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[135],(void **)(void *)&LnkLI135,2,first,ap);va_end(ap);return V1;} /* PROCLAIM-VAR */
+static void LnkT130(){ call_or_link(VV[130],(void **)(void *)&Lnk130);} /* *MAKE-SPECIAL */
+static object LnkTLI128(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[128],(void **)(void *)&LnkLI128,first,ap);va_end(ap);return V1;} /* CMPWARN */
+static object LnkTLI127(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[127],(void **)(void *)&LnkLI127,2,first,ap);va_end(ap);return V1;} /* TYPE-AND */
+static object LnkTLI126(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[126],(void **)(void *)&LnkLI126,1,first,ap);va_end(ap);return V1;} /* SCH-LOCAL-FUN */
+static object LnkTLI125(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[125],(void **)(void *)&LnkLI125,1,first,ap);va_end(ap);return V1;} /* FUNCTION-RETURN-TYPE */
+static object LnkTLI124(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[124],(void **)(void *)&LnkLI124,1,first,ap);va_end(ap);return V1;} /* FUNCTION-ARG-TYPES */
+static object LnkTLI123(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[123],(void **)(void *)&LnkLI123,first,ap);va_end(ap);return V1;} /* WARN */
+static object LnkTLI122(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[122],(void **)(void *)&LnkLI122,1,first,ap);va_end(ap);return V1;} /* TYPE-FILTER */
+static object LnkTLI121(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[121],(void **)(void *)&LnkLI121,first,ap);va_end(ap);return V1;} /* CMPERR */
+static void LnkT120(){ call_or_link(VV[120],(void **)(void *)&Lnk120);} /* COMPILED-FUNCTION-NAME */
+static void LnkT119(){ call_or_link(VV[119],(void **)(void *)&Lnk119);} /* TYPEP */
+static void LnkT118(){ call_or_link(VV[118],(void **)(void *)&Lnk118);} /* WT-TO-STRING */
+static void LnkT117(){ call_or_link(VV[117],(void **)(void *)&Lnk117);} /* CONTAINS-SHARP-COMMA */
+static void LnkT116(){ call_or_link(VV[116],(void **)(void *)&Lnk116);} /* GET-OUTPUT-STREAM-STRING */
+static object LnkTLI115(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[115],(void **)(void *)&LnkLI115,1,first,ap);va_end(ap);return V1;} /* WT-DATA1 */
+static void LnkT114(){ call_or_link(VV[114],(void **)(void *)&Lnk114);} /* MAKE-STRING-OUTPUT-STREAM */
+static object LnkTLI113(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[113],(void **)(void *)&LnkLI113,1,first,ap);va_end(ap);return V1;} /* PUSH-DATA-INCF */
#ifdef SYSTEM_SPECIAL_INIT
SYSTEM_SPECIAL_INIT
diff --git a/gcl/cmpnew/cmpflet.c b/gcl/cmpnew/cmpflet.c
index ee78c47c8..b8cacb0c3 100755
--- a/gcl/cmpnew/cmpflet.c
+++ b/gcl/cmpnew/cmpflet.c
@@ -17,7 +17,7 @@ static object LI1(object first,...)
va_start(ap,first);
narg= narg - 0;
{
- parse_key_new_new(narg,Vcs +0,(struct key *)&LI1key,first,ap);
+ parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI1key,first,ap);
V1=(Vcs[0]);
V2=(Vcs[1]);
V3=(Vcs[2]);
@@ -1103,32 +1103,32 @@ T525:;
base[0]=base[0];
return Cnil;
}
-static object LnkTLI67(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[67],(void **)&LnkLI67,first,ap);va_end(ap);return V1;} /* UNWIND-EXIT */
-static object LnkTLI66(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[66],(void **)&LnkLI66,first,ap);va_end(ap);return V1;} /* CMPNOTE */
-static object LnkTLI65(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[65],(void **)&LnkLI65,1,first,ap);va_end(ap);return V1;} /* UNWIND-NO-EXIT */
-static object LnkTLI64(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[64],(void **)&LnkLI64,2,first,ap);va_end(ap);return V1;} /* C2PSETQ */
-static object LnkTLI63(){return call_proc0(VV[63],(void **)&LnkLI63);} /* TAIL-RECURSION-POSSIBLE */
-static object LnkTLI62(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[62],(void **)&LnkLI62,1,first,ap);va_end(ap);return V1;} /* WT-CCB-VS */
-static object LnkTLI61(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[61],(void **)&LnkLI61,1,first,ap);va_end(ap);return V1;} /* PUSH-ARGS */
-static object LnkTLI60(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[60],(void **)&LnkLI60,3,first,ap);va_end(ap);return V1;} /* DEFMACRO* */
-static object LnkTLI59(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[59],(void **)&LnkLI59,1,first,ap);va_end(ap);return V1;} /* WT-VS* */
-static void LnkT58(){ call_or_link(VV[58],(void **)&Lnk58);} /* C2EXPR */
-static object LnkTLI57(){return call_proc0(VV[57],(void **)&LnkLI57);} /* CCB-VS-PUSH */
-static object LnkTLI56(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[56],(void **)&LnkLI56,1,first,ap);va_end(ap);return V1;} /* CLINK */
-static object LnkTLI55(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[55],(void **)&LnkLI55,first,ap);va_end(ap);return V1;} /* WT-CLINK */
-static object LnkTLI54(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[54],(void **)&LnkLI54,1,first,ap);va_end(ap);return V1;} /* WT1 */
-static object LnkTLI53(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[53],(void **)&LnkLI53,1,first,ap);va_end(ap);return V1;} /* WT-VS */
-static object LnkTLI52(){return call_proc0(VV[52],(void **)&LnkLI52);} /* VS-PUSH */
-static object LnkTLI51(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[51],(void **)&LnkLI51,2,first,ap);va_end(ap);return V1;} /* ADD-INFO */
-static object LnkTLI50(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[50],(void **)&LnkLI50,first,ap);va_end(ap);return V1;} /* C1LAMBDA-EXPR */
-static void LnkT49(){ call_or_link(VV[49],(void **)&Lnk49);} /* COPY-INFO */
-static object LnkTLI48(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[48],(void **)&LnkLI48,2,first,ap);va_end(ap);return V1;} /* C1DECL-BODY */
-static object LnkTLI47(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[47],(void **)&LnkLI47,3,first,ap);va_end(ap);return V1;} /* CHECK-VDECL */
-static object LnkTLI46(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[46],(void **)&LnkLI46,1,first,ap);va_end(ap);return V1;} /* C1ADD-GLOBALS */
-static void LnkT45(){ call_or_link(VV[45],(void **)&Lnk45);} /* C1BODY */
-static object LnkTLI44(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[44],(void **)&LnkLI44,first,ap);va_end(ap);return V1;} /* MAKE-FUN */
-static object LnkTLI43(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[43],(void **)&LnkLI43,first,ap);va_end(ap);return V1;} /* CMPERR */
-static object LnkTLI42(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[42],(void **)&LnkLI42,3,first,ap);va_end(ap);return V1;} /* TOO-FEW-ARGS */
+static object LnkTLI67(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[67],(void **)(void *)&LnkLI67,first,ap);va_end(ap);return V1;} /* UNWIND-EXIT */
+static object LnkTLI66(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[66],(void **)(void *)&LnkLI66,first,ap);va_end(ap);return V1;} /* CMPNOTE */
+static object LnkTLI65(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[65],(void **)(void *)&LnkLI65,1,first,ap);va_end(ap);return V1;} /* UNWIND-NO-EXIT */
+static object LnkTLI64(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[64],(void **)(void *)&LnkLI64,2,first,ap);va_end(ap);return V1;} /* C2PSETQ */
+static object LnkTLI63(){return call_proc0(VV[63],(void **)(void *)&LnkLI63);} /* TAIL-RECURSION-POSSIBLE */
+static object LnkTLI62(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[62],(void **)(void *)&LnkLI62,1,first,ap);va_end(ap);return V1;} /* WT-CCB-VS */
+static object LnkTLI61(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[61],(void **)(void *)&LnkLI61,1,first,ap);va_end(ap);return V1;} /* PUSH-ARGS */
+static object LnkTLI60(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[60],(void **)(void *)&LnkLI60,3,first,ap);va_end(ap);return V1;} /* DEFMACRO* */
+static object LnkTLI59(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[59],(void **)(void *)&LnkLI59,1,first,ap);va_end(ap);return V1;} /* WT-VS* */
+static void LnkT58(){ call_or_link(VV[58],(void **)(void *)&Lnk58);} /* C2EXPR */
+static object LnkTLI57(){return call_proc0(VV[57],(void **)(void *)&LnkLI57);} /* CCB-VS-PUSH */
+static object LnkTLI56(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[56],(void **)(void *)&LnkLI56,1,first,ap);va_end(ap);return V1;} /* CLINK */
+static object LnkTLI55(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[55],(void **)(void *)&LnkLI55,first,ap);va_end(ap);return V1;} /* WT-CLINK */
+static object LnkTLI54(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[54],(void **)(void *)&LnkLI54,1,first,ap);va_end(ap);return V1;} /* WT1 */
+static object LnkTLI53(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[53],(void **)(void *)&LnkLI53,1,first,ap);va_end(ap);return V1;} /* WT-VS */
+static object LnkTLI52(){return call_proc0(VV[52],(void **)(void *)&LnkLI52);} /* VS-PUSH */
+static object LnkTLI51(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[51],(void **)(void *)&LnkLI51,2,first,ap);va_end(ap);return V1;} /* ADD-INFO */
+static object LnkTLI50(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[50],(void **)(void *)&LnkLI50,first,ap);va_end(ap);return V1;} /* C1LAMBDA-EXPR */
+static void LnkT49(){ call_or_link(VV[49],(void **)(void *)&Lnk49);} /* COPY-INFO */
+static object LnkTLI48(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[48],(void **)(void *)&LnkLI48,2,first,ap);va_end(ap);return V1;} /* C1DECL-BODY */
+static object LnkTLI47(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[47],(void **)(void *)&LnkLI47,3,first,ap);va_end(ap);return V1;} /* CHECK-VDECL */
+static object LnkTLI46(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[46],(void **)(void *)&LnkLI46,1,first,ap);va_end(ap);return V1;} /* C1ADD-GLOBALS */
+static void LnkT45(){ call_or_link(VV[45],(void **)(void *)&Lnk45);} /* C1BODY */
+static object LnkTLI44(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[44],(void **)(void *)&LnkLI44,first,ap);va_end(ap);return V1;} /* MAKE-FUN */
+static object LnkTLI43(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[43],(void **)(void *)&LnkLI43,first,ap);va_end(ap);return V1;} /* CMPERR */
+static object LnkTLI42(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[42],(void **)(void *)&LnkLI42,3,first,ap);va_end(ap);return V1;} /* TOO-FEW-ARGS */
#ifdef SYSTEM_SPECIAL_INIT
SYSTEM_SPECIAL_INIT
diff --git a/gcl/cmpnew/cmpinline.c b/gcl/cmpnew/cmpinline.c
index 2896789b9..6bc823593 100755
--- a/gcl/cmpnew/cmpinline.c
+++ b/gcl/cmpnew/cmpinline.c
@@ -17,7 +17,7 @@ static object LI1(object first,...)
va_start(ap,first);
narg= narg - 0;
{
- parse_key_new_new(narg,Vcs +0,(struct key *)&LI1key,first,ap);
+ parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI1key,first,ap);
V1=(Vcs[0]);
V2=(Vcs[1]);
if(Vcs[2]==0){
@@ -2103,40 +2103,40 @@ register object *base0;
return;
}
}
-static object LnkTLI109(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[109],(void **)&LnkLI109,1,first,ap);va_end(ap);return V1;} /* FUNCTION-RETURN-TYPE */
-static object LnkTLI108(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[108],(void **)&LnkLI108,1,first,ap);va_end(ap);return V1;} /* TYPE-FILTER */
-static void LnkT107(){ call_or_link(VV[107],(void **)&Lnk107);} /* WT-INLINE-LOC */
-static object LnkTLI106(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[106],(void **)&LnkLI106,2,first,ap);va_end(ap);return V1;} /* TYPE>= */
-static void LnkT105(){ call_or_link(VV[105],(void **)&Lnk105);} /* FIX-OPT */
-static object LnkTLI104(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[104],(void **)&LnkLI104,3,first,ap);va_end(ap);return V1;} /* INLINE-TYPE-MATCHES */
-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;} /* ADD-FAST-LINK */
-static object LnkTLI102(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[102],(void **)&LnkLI102,first,ap);va_end(ap);return V1;} /* FAST-LINK-PROCLAIMED-TYPE-P */
-static object LnkTLI101(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[101],(void **)&LnkLI101,1,first,ap);va_end(ap);return V1;} /* INLINE-TYPE */
-static object LnkTLI100(){return call_proc0(VV[100],(void **)&LnkLI100);} /* BABOON */
-static object LnkTLI7(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[7],(void **)&LnkLI7,first,ap);va_end(ap);return V1;} /* INLINE-ARGS */
-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;} /* MAKE-VAR */
-static object LnkTLI97(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[97],(void **)&LnkLI97,2,first,ap);va_end(ap);return V1;} /* COERCE-LOC-STRUCTURE-REF */
-static object LnkTLI95(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[95],(void **)&LnkLI95,1,first,ap);va_end(ap);return V1;} /* C2EXPR* */
-static object LnkTLI94(){return call_proc0(VV[94],(void **)&LnkLI94);} /* VS-PUSH */
-static void LnkT93(){ call_or_link(VV[93],(void **)&Lnk93);} /* WT-SHORT-FLOAT-LOC */
-static void LnkT92(){ call_or_link(VV[92],(void **)&Lnk92);} /* WT-LONG-FLOAT-LOC */
-static void LnkT91(){ call_or_link(VV[91],(void **)&Lnk91);} /* WT-CHARACTER-LOC */
-static void LnkT90(){ call_or_link(VV[90],(void **)&Lnk90);} /* WT-INTEGER-LOC */
-static void LnkT89(){ call_or_link(VV[89],(void **)&Lnk89);} /* WT-FIXNUM-LOC */
-static void LnkT88(){ call_or_link(VV[88],(void **)&Lnk88);} /* WT-LOC */
-static object LnkTLI87(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[87],(void **)&LnkLI87,2,first,ap);va_end(ap);return V1;} /* NEED-TO-PROTECT */
-static object LnkTLI86(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[86],(void **)&LnkLI86,2,first,ap);va_end(ap);return V1;} /* GET-INLINE-LOC */
-static void LnkT85(){ call_or_link(VV[85],(void **)&Lnk85);} /* SAVE-AVMA */
-static object LnkTLI84(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[84],(void **)&LnkLI84,3,first,ap);va_end(ap);return V1;} /* GET-INLINE-INFO */
-static object LnkTLI83(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[83],(void **)&LnkLI83,1,first,ap);va_end(ap);return V1;} /* INLINE-POSSIBLE */
-static object LnkTLI81(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[81],(void **)&LnkLI81,first,ap);va_end(ap);return V1;} /* CS-PUSH */
-static object LnkTLI80(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[80],(void **)&LnkLI80,2,first,ap);va_end(ap);return V1;} /* WT-VAR */
-static object LnkTLI79(){return call_proc0(VV[79],(void **)&LnkLI79);} /* WT-C-PUSH */
-static void LnkT78(){ call_or_link(VV[78],(void **)&Lnk78);} /* INC-INLINE-BLOCKS */
-static object LnkTLI77(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[77],(void **)&LnkLI77,1,first,ap);va_end(ap);return V1;} /* REP-TYPE */
-static object LnkTLI76(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[76],(void **)&LnkLI76,1,first,ap);va_end(ap);return V1;} /* WT1 */
-static object LnkTLI75(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[75],(void **)&LnkLI75,2,first,ap);va_end(ap);return V1;} /* ARGS-INFO-CHANGED-VARS */
-static object LnkTLI74(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[74],(void **)&LnkLI74,2,first,ap);va_end(ap);return V1;} /* COERCE-LOC */
+static object LnkTLI109(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[109],(void **)(void *)&LnkLI109,1,first,ap);va_end(ap);return V1;} /* FUNCTION-RETURN-TYPE */
+static object LnkTLI108(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[108],(void **)(void *)&LnkLI108,1,first,ap);va_end(ap);return V1;} /* TYPE-FILTER */
+static void LnkT107(){ call_or_link(VV[107],(void **)(void *)&Lnk107);} /* WT-INLINE-LOC */
+static object LnkTLI106(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[106],(void **)(void *)&LnkLI106,2,first,ap);va_end(ap);return V1;} /* TYPE>= */
+static void LnkT105(){ call_or_link(VV[105],(void **)(void *)&Lnk105);} /* FIX-OPT */
+static object LnkTLI104(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[104],(void **)(void *)&LnkLI104,3,first,ap);va_end(ap);return V1;} /* INLINE-TYPE-MATCHES */
+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;} /* ADD-FAST-LINK */
+static object LnkTLI102(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[102],(void **)(void *)&LnkLI102,first,ap);va_end(ap);return V1;} /* FAST-LINK-PROCLAIMED-TYPE-P */
+static object LnkTLI101(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[101],(void **)(void *)&LnkLI101,1,first,ap);va_end(ap);return V1;} /* INLINE-TYPE */
+static object LnkTLI100(){return call_proc0(VV[100],(void **)(void *)&LnkLI100);} /* BABOON */
+static object LnkTLI7(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[7],(void **)(void *)&LnkLI7,first,ap);va_end(ap);return V1;} /* INLINE-ARGS */
+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;} /* MAKE-VAR */
+static object LnkTLI97(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[97],(void **)(void *)&LnkLI97,2,first,ap);va_end(ap);return V1;} /* COERCE-LOC-STRUCTURE-REF */
+static object LnkTLI95(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[95],(void **)(void *)&LnkLI95,1,first,ap);va_end(ap);return V1;} /* C2EXPR* */
+static object LnkTLI94(){return call_proc0(VV[94],(void **)(void *)&LnkLI94);} /* VS-PUSH */
+static void LnkT93(){ call_or_link(VV[93],(void **)(void *)&Lnk93);} /* WT-SHORT-FLOAT-LOC */
+static void LnkT92(){ call_or_link(VV[92],(void **)(void *)&Lnk92);} /* WT-LONG-FLOAT-LOC */
+static void LnkT91(){ call_or_link(VV[91],(void **)(void *)&Lnk91);} /* WT-CHARACTER-LOC */
+static void LnkT90(){ call_or_link(VV[90],(void **)(void *)&Lnk90);} /* WT-INTEGER-LOC */
+static void LnkT89(){ call_or_link(VV[89],(void **)(void *)&Lnk89);} /* WT-FIXNUM-LOC */
+static void LnkT88(){ call_or_link(VV[88],(void **)(void *)&Lnk88);} /* WT-LOC */
+static object LnkTLI87(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[87],(void **)(void *)&LnkLI87,2,first,ap);va_end(ap);return V1;} /* NEED-TO-PROTECT */
+static object LnkTLI86(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[86],(void **)(void *)&LnkLI86,2,first,ap);va_end(ap);return V1;} /* GET-INLINE-LOC */
+static void LnkT85(){ call_or_link(VV[85],(void **)(void *)&Lnk85);} /* SAVE-AVMA */
+static object LnkTLI84(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[84],(void **)(void *)&LnkLI84,3,first,ap);va_end(ap);return V1;} /* GET-INLINE-INFO */
+static object LnkTLI83(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[83],(void **)(void *)&LnkLI83,1,first,ap);va_end(ap);return V1;} /* INLINE-POSSIBLE */
+static object LnkTLI81(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[81],(void **)(void *)&LnkLI81,first,ap);va_end(ap);return V1;} /* CS-PUSH */
+static object LnkTLI80(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[80],(void **)(void *)&LnkLI80,2,first,ap);va_end(ap);return V1;} /* WT-VAR */
+static object LnkTLI79(){return call_proc0(VV[79],(void **)(void *)&LnkLI79);} /* WT-C-PUSH */
+static void LnkT78(){ call_or_link(VV[78],(void **)(void *)&Lnk78);} /* INC-INLINE-BLOCKS */
+static object LnkTLI77(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[77],(void **)(void *)&LnkLI77,1,first,ap);va_end(ap);return V1;} /* REP-TYPE */
+static object LnkTLI76(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[76],(void **)(void *)&LnkLI76,1,first,ap);va_end(ap);return V1;} /* WT1 */
+static object LnkTLI75(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[75],(void **)(void *)&LnkLI75,2,first,ap);va_end(ap);return V1;} /* ARGS-INFO-CHANGED-VARS */
+static object LnkTLI74(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[74],(void **)(void *)&LnkLI74,2,first,ap);va_end(ap);return V1;} /* COERCE-LOC */
#ifdef SYSTEM_SPECIAL_INIT
SYSTEM_SPECIAL_INIT
diff --git a/gcl/cmpnew/cmplam.c b/gcl/cmpnew/cmplam.c
index f468e4cfb..f32355e8e 100755
--- a/gcl/cmpnew/cmplam.c
+++ b/gcl/cmpnew/cmplam.c
@@ -3243,50 +3243,50 @@ T1938:;
return;}
}
}
-static void LnkT122(){ call_or_link(VV[122],(void **)&Lnk122);} /* WT-VAR-DECL */
-static object LnkTLI121(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[121],(void **)&LnkLI121,1,first,ap);va_end(ap);return V1;} /* C2VAR-KIND */
-static object LnkTLI120(){return call_proc0(VV[120],(void **)&LnkLI120);} /* CLOSE-INLINE-BLOCKS */
-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;} /* INLINE-ARGS */
-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;} /* C2DM-BIND-INIT */
-static object LnkTLI117(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[117],(void **)&LnkLI117,2,first,ap);va_end(ap);return V1;} /* C2DM-BIND-LOC */
-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;} /* C2DM-RESERVE-V */
-static object LnkTLI115(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[115],(void **)&LnkLI115,2,first,ap);va_end(ap);return V1;} /* C2DM-BIND-VL */
-static object LnkTLI114(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[114],(void **)&LnkLI114,1,first,ap);va_end(ap);return V1;} /* C2DM-RESERVE-VL */
-static object LnkTLI113(){return call_proc0(VV[113],(void **)&LnkLI113);} /* C1NIL */
-static void LnkT112(){ call_or_link(VV[112],(void **)&Lnk112);} /* C1DM-V */
-static void LnkT111(){ call_or_link(VV[111],(void **)&Lnk111);} /* DM-BAD-KEY */
-static void LnkT110(){ call_or_link(VV[110],(void **)&Lnk110);} /* C1DM-VL */
-static object LnkTLI109(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[109],(void **)&LnkLI109,1,first,ap);va_end(ap);return V1;} /* WT-VS */
-static object LnkTLI108(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[108],(void **)&LnkLI108,1,first,ap);va_end(ap);return V1;} /* ADD-SYMBOL */
-static void LnkT107(){ call_or_link(VV[107],(void **)&Lnk107);} /* C2EXPR */
-static object LnkTLI106(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[106],(void **)&LnkLI106,2,first,ap);va_end(ap);return V1;} /* C2BIND-INIT */
-static object LnkTLI105(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[105],(void **)&LnkLI105,2,first,ap);va_end(ap);return V1;} /* C2BIND-LOC */
-static object LnkTLI104(){return call_proc0(VV[104],(void **)&LnkLI104);} /* RESET-TOP */
-static object LnkTLI103(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[103],(void **)&LnkLI103,1,first,ap);va_end(ap);return V1;} /* C2BIND */
-static object LnkTLI102(){return call_proc0(VV[102],(void **)&LnkLI102);} /* VS-PUSH */
-static object LnkTLI101(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[101],(void **)&LnkLI101,2,first,ap);va_end(ap);return V1;} /* C2LAMBDA-EXPR-WITHOUT-KEY */
-static object LnkTLI100(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[100],(void **)&LnkLI100,2,first,ap);va_end(ap);return V1;} /* C2LAMBDA-EXPR-WITH-KEY */
-static object LnkTLI99(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[99],(void **)&LnkLI99,1,first,ap);va_end(ap);return V1;} /* RECORD-ARG-INFO */
-static object LnkTLI98(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[98],(void **)&LnkLI98,3,first,ap);va_end(ap);return V1;} /* FIX-DOWN-ARGS */
-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;} /* CHECK-VREF */
-static object LnkTLI96(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[96],(void **)&LnkLI96,2,first,ap);va_end(ap);return V1;} /* C1DECL-BODY */
-static object LnkTLI95(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[95],(void **)&LnkLI95,3,first,ap);va_end(ap);return V1;} /* CHECK-VDECL */
-static object LnkTLI94(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[94],(void **)&LnkLI94,2,first,ap);va_end(ap);return V1;} /* ADD-INFO */
-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;} /* MAKE-VAR */
-static object LnkTLI92(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[92],(void **)&LnkLI92,3,first,ap);va_end(ap);return V1;} /* AND-FORM-TYPE */
-static object LnkTLI91(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[91],(void **)&LnkLI91,2,first,ap);va_end(ap);return V1;} /* C1EXPR* */
-static object LnkTLI90(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[90],(void **)&LnkLI90,1,first,ap);va_end(ap);return V1;} /* DEFAULT-INIT */
-static object LnkTLI89(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[89],(void **)&LnkLI89,4,first,ap);va_end(ap);return V1;} /* C1MAKE-VAR */
-static object LnkTLI88(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[88],(void **)&LnkLI88,1,first,ap);va_end(ap);return V1;} /* C1ADD-GLOBALS */
-static void LnkT87(){ call_or_link(VV[87],(void **)&Lnk87);} /* C1BODY */
-static object LnkTLI86(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[86],(void **)&LnkLI86,first,ap);va_end(ap);return V1;} /* CMPERR */
-static object LnkTLI85(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[85],(void **)&LnkLI85,first,ap);va_end(ap);return V1;} /* MAKE-INFO */
-static object LnkTLI84(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[84],(void **)&LnkLI84,first,ap);va_end(ap);return V1;} /* UNWIND-EXIT */
-static object LnkTLI83(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[83],(void **)&LnkLI83,first,ap);va_end(ap);return V1;} /* MAKE-FUN */
-static object LnkTLI82(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[82],(void **)&LnkLI82,first,ap);va_end(ap);return V1;} /* DELETE */
-static object LnkTLI81(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[81],(void **)&LnkLI81,1,first,ap);va_end(ap);return V1;} /* WT-H1 */
-static object LnkTLI80(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[80],(void **)&LnkLI80,1,first,ap);va_end(ap);return V1;} /* WT1 */
-static object LnkTLI79(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[79],(void **)&LnkLI79,1,first,ap);va_end(ap);return V1;} /* C1EXPR */
+static void LnkT122(){ call_or_link(VV[122],(void **)(void *)&Lnk122);} /* WT-VAR-DECL */
+static object LnkTLI121(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[121],(void **)(void *)&LnkLI121,1,first,ap);va_end(ap);return V1;} /* C2VAR-KIND */
+static object LnkTLI120(){return call_proc0(VV[120],(void **)(void *)&LnkLI120);} /* CLOSE-INLINE-BLOCKS */
+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;} /* INLINE-ARGS */
+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;} /* C2DM-BIND-INIT */
+static object LnkTLI117(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[117],(void **)(void *)&LnkLI117,2,first,ap);va_end(ap);return V1;} /* C2DM-BIND-LOC */
+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;} /* C2DM-RESERVE-V */
+static object LnkTLI115(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[115],(void **)(void *)&LnkLI115,2,first,ap);va_end(ap);return V1;} /* C2DM-BIND-VL */
+static object LnkTLI114(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[114],(void **)(void *)&LnkLI114,1,first,ap);va_end(ap);return V1;} /* C2DM-RESERVE-VL */
+static object LnkTLI113(){return call_proc0(VV[113],(void **)(void *)&LnkLI113);} /* C1NIL */
+static void LnkT112(){ call_or_link(VV[112],(void **)(void *)&Lnk112);} /* C1DM-V */
+static void LnkT111(){ call_or_link(VV[111],(void **)(void *)&Lnk111);} /* DM-BAD-KEY */
+static void LnkT110(){ call_or_link(VV[110],(void **)(void *)&Lnk110);} /* C1DM-VL */
+static object LnkTLI109(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[109],(void **)(void *)&LnkLI109,1,first,ap);va_end(ap);return V1;} /* WT-VS */
+static object LnkTLI108(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[108],(void **)(void *)&LnkLI108,1,first,ap);va_end(ap);return V1;} /* ADD-SYMBOL */
+static void LnkT107(){ call_or_link(VV[107],(void **)(void *)&Lnk107);} /* C2EXPR */
+static object LnkTLI106(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[106],(void **)(void *)&LnkLI106,2,first,ap);va_end(ap);return V1;} /* C2BIND-INIT */
+static object LnkTLI105(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[105],(void **)(void *)&LnkLI105,2,first,ap);va_end(ap);return V1;} /* C2BIND-LOC */
+static object LnkTLI104(){return call_proc0(VV[104],(void **)(void *)&LnkLI104);} /* RESET-TOP */
+static object LnkTLI103(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[103],(void **)(void *)&LnkLI103,1,first,ap);va_end(ap);return V1;} /* C2BIND */
+static object LnkTLI102(){return call_proc0(VV[102],(void **)(void *)&LnkLI102);} /* VS-PUSH */
+static object LnkTLI101(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[101],(void **)(void *)&LnkLI101,2,first,ap);va_end(ap);return V1;} /* C2LAMBDA-EXPR-WITHOUT-KEY */
+static object LnkTLI100(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[100],(void **)(void *)&LnkLI100,2,first,ap);va_end(ap);return V1;} /* C2LAMBDA-EXPR-WITH-KEY */
+static object LnkTLI99(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[99],(void **)(void *)&LnkLI99,1,first,ap);va_end(ap);return V1;} /* RECORD-ARG-INFO */
+static object LnkTLI98(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[98],(void **)(void *)&LnkLI98,3,first,ap);va_end(ap);return V1;} /* FIX-DOWN-ARGS */
+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;} /* CHECK-VREF */
+static object LnkTLI96(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[96],(void **)(void *)&LnkLI96,2,first,ap);va_end(ap);return V1;} /* C1DECL-BODY */
+static object LnkTLI95(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[95],(void **)(void *)&LnkLI95,3,first,ap);va_end(ap);return V1;} /* CHECK-VDECL */
+static object LnkTLI94(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[94],(void **)(void *)&LnkLI94,2,first,ap);va_end(ap);return V1;} /* ADD-INFO */
+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;} /* MAKE-VAR */
+static object LnkTLI92(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[92],(void **)(void *)&LnkLI92,3,first,ap);va_end(ap);return V1;} /* AND-FORM-TYPE */
+static object LnkTLI91(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[91],(void **)(void *)&LnkLI91,2,first,ap);va_end(ap);return V1;} /* C1EXPR* */
+static object LnkTLI90(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[90],(void **)(void *)&LnkLI90,1,first,ap);va_end(ap);return V1;} /* DEFAULT-INIT */
+static object LnkTLI89(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[89],(void **)(void *)&LnkLI89,4,first,ap);va_end(ap);return V1;} /* C1MAKE-VAR */
+static object LnkTLI88(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[88],(void **)(void *)&LnkLI88,1,first,ap);va_end(ap);return V1;} /* C1ADD-GLOBALS */
+static void LnkT87(){ call_or_link(VV[87],(void **)(void *)&Lnk87);} /* C1BODY */
+static object LnkTLI86(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[86],(void **)(void *)&LnkLI86,first,ap);va_end(ap);return V1;} /* CMPERR */
+static object LnkTLI85(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[85],(void **)(void *)&LnkLI85,first,ap);va_end(ap);return V1;} /* MAKE-INFO */
+static object LnkTLI84(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[84],(void **)(void *)&LnkLI84,first,ap);va_end(ap);return V1;} /* UNWIND-EXIT */
+static object LnkTLI83(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[83],(void **)(void *)&LnkLI83,first,ap);va_end(ap);return V1;} /* MAKE-FUN */
+static object LnkTLI82(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[82],(void **)(void *)&LnkLI82,first,ap);va_end(ap);return V1;} /* DELETE */
+static object LnkTLI81(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[81],(void **)(void *)&LnkLI81,1,first,ap);va_end(ap);return V1;} /* WT-H1 */
+static object LnkTLI80(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[80],(void **)(void *)&LnkLI80,1,first,ap);va_end(ap);return V1;} /* WT1 */
+static object LnkTLI79(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[79],(void **)(void *)&LnkLI79,1,first,ap);va_end(ap);return V1;} /* C1EXPR */
#ifdef SYSTEM_SPECIAL_INIT
SYSTEM_SPECIAL_INIT
diff --git a/gcl/cmpnew/cmplet.c b/gcl/cmpnew/cmplet.c
index 72000b559..548ef1c18 100755
--- a/gcl/cmpnew/cmplet.c
+++ b/gcl/cmpnew/cmplet.c
@@ -1205,38 +1205,38 @@ TTL:;
base[0]=base[0];
return Cnil;
}
-static object LnkTLI76(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[76],(void **)&LnkLI76,1,first,ap);va_end(ap);return V1;} /* WT-H1 */
-static object LnkTLI75(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[75],(void **)&LnkLI75,1,first,ap);va_end(ap);return V1;} /* WT1 */
-static object LnkTLI74(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[74],(void **)&LnkLI74,1,first,ap);va_end(ap);return V1;} /* C1EXPR */
-static object LnkTLI73(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[73],(void **)&LnkLI73,first,ap);va_end(ap);return V1;} /* CMPWARN */
-static void LnkT72(){ call_or_link(VV[72],(void **)&Lnk72);} /* WT-VAR-DECL */
-static object LnkTLI71(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[71],(void **)&LnkLI71,2,first,ap);va_end(ap);return V1;} /* C2BIND-INIT */
-static object LnkTLI69(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[69],(void **)&LnkLI69,3,first,ap);va_end(ap);return V1;} /* CAN-BE-REPLACED* */
-static void LnkT68(){ call_or_link(VV[68],(void **)&Lnk68);} /* C2EXPR */
-static object LnkTLI67(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[67],(void **)&LnkLI67,1,first,ap);va_end(ap);return V1;} /* C2BIND */
-static object LnkTLI66(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[66],(void **)&LnkLI66,2,first,ap);va_end(ap);return V1;} /* C2BIND-LOC */
-static object LnkTLI12(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[12],(void **)&LnkLI12,1,first,ap);va_end(ap);return V1;} /* C2EXPR* */
-static object LnkTLI65(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[65],(void **)&LnkLI65,1,first,ap);va_end(ap);return V1;} /* WRITE-BLOCK-OPEN */
-static object LnkTLI64(){return call_proc0(VV[64],(void **)&LnkLI64);} /* BABOON */
-static object LnkTLI63(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[63],(void **)&LnkLI63,2,first,ap);va_end(ap);return V1;} /* ARGS-INFO-CHANGED-VARS */
-static object LnkTLI62(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[62],(void **)&LnkLI62,2,first,ap);va_end(ap);return V1;} /* CAN-BE-REPLACED */
-static object LnkTLI55(){return call_proc0(VV[55],(void **)&LnkLI55);} /* VS-PUSH */
-static object LnkTLI54(){return call_proc0(VV[54],(void **)&LnkLI54);} /* WFS-ERROR */
-static void LnkT53(){ call_or_link(VV[53],(void **)&Lnk53);} /* FIXNUMP */
-static object LnkTLI52(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[52],(void **)&LnkLI52,1,first,ap);va_end(ap);return V1;} /* C2VAR-KIND */
-static object LnkTLI51(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[51],(void **)&LnkLI51,1,first,ap);va_end(ap);return V1;} /* CHECK-VREF */
-static object LnkTLI50(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[50],(void **)&LnkLI50,2,first,ap);va_end(ap);return V1;} /* ADD-INFO */
-static object LnkTLI49(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[49],(void **)&LnkLI49,2,first,ap);va_end(ap);return V1;} /* C1DECL-BODY */
-static object LnkTLI48(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[48],(void **)&LnkLI48,3,first,ap);va_end(ap);return V1;} /* CHECK-VDECL */
-static object LnkTLI47(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[47],(void **)&LnkLI47,2,first,ap);va_end(ap);return V1;} /* C1EXPR* */
-static object LnkTLI46(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[46],(void **)&LnkLI46,3,first,ap);va_end(ap);return V1;} /* AND-FORM-TYPE */
-static object LnkTLI45(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[45],(void **)&LnkLI45,first,ap);va_end(ap);return V1;} /* CMPERR */
-static object LnkTLI44(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[44],(void **)&LnkLI44,1,first,ap);va_end(ap);return V1;} /* DEFAULT-INIT */
-static object LnkTLI43(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[43],(void **)&LnkLI43,4,first,ap);va_end(ap);return V1;} /* C1MAKE-VAR */
-static object LnkTLI42(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[42],(void **)&LnkLI42,1,first,ap);va_end(ap);return V1;} /* C1ADD-GLOBALS */
-static void LnkT41(){ call_or_link(VV[41],(void **)&Lnk41);} /* C1BODY */
-static object LnkTLI40(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[40],(void **)&LnkLI40,3,first,ap);va_end(ap);return V1;} /* TOO-FEW-ARGS */
-static object LnkTLI39(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[39],(void **)&LnkLI39,first,ap);va_end(ap);return V1;} /* MAKE-INFO */
+static object LnkTLI76(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[76],(void **)(void *)&LnkLI76,1,first,ap);va_end(ap);return V1;} /* WT-H1 */
+static object LnkTLI75(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[75],(void **)(void *)&LnkLI75,1,first,ap);va_end(ap);return V1;} /* WT1 */
+static object LnkTLI74(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[74],(void **)(void *)&LnkLI74,1,first,ap);va_end(ap);return V1;} /* C1EXPR */
+static object LnkTLI73(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[73],(void **)(void *)&LnkLI73,first,ap);va_end(ap);return V1;} /* CMPWARN */
+static void LnkT72(){ call_or_link(VV[72],(void **)(void *)&Lnk72);} /* WT-VAR-DECL */
+static object LnkTLI71(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[71],(void **)(void *)&LnkLI71,2,first,ap);va_end(ap);return V1;} /* C2BIND-INIT */
+static object LnkTLI69(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[69],(void **)(void *)&LnkLI69,3,first,ap);va_end(ap);return V1;} /* CAN-BE-REPLACED* */
+static void LnkT68(){ call_or_link(VV[68],(void **)(void *)&Lnk68);} /* C2EXPR */
+static object LnkTLI67(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[67],(void **)(void *)&LnkLI67,1,first,ap);va_end(ap);return V1;} /* C2BIND */
+static object LnkTLI66(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[66],(void **)(void *)&LnkLI66,2,first,ap);va_end(ap);return V1;} /* C2BIND-LOC */
+static object LnkTLI12(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[12],(void **)(void *)&LnkLI12,1,first,ap);va_end(ap);return V1;} /* C2EXPR* */
+static object LnkTLI65(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[65],(void **)(void *)&LnkLI65,1,first,ap);va_end(ap);return V1;} /* WRITE-BLOCK-OPEN */
+static object LnkTLI64(){return call_proc0(VV[64],(void **)(void *)&LnkLI64);} /* BABOON */
+static object LnkTLI63(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[63],(void **)(void *)&LnkLI63,2,first,ap);va_end(ap);return V1;} /* ARGS-INFO-CHANGED-VARS */
+static object LnkTLI62(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[62],(void **)(void *)&LnkLI62,2,first,ap);va_end(ap);return V1;} /* CAN-BE-REPLACED */
+static object LnkTLI55(){return call_proc0(VV[55],(void **)(void *)&LnkLI55);} /* VS-PUSH */
+static object LnkTLI54(){return call_proc0(VV[54],(void **)(void *)&LnkLI54);} /* WFS-ERROR */
+static void LnkT53(){ call_or_link(VV[53],(void **)(void *)&Lnk53);} /* FIXNUMP */
+static object LnkTLI52(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[52],(void **)(void *)&LnkLI52,1,first,ap);va_end(ap);return V1;} /* C2VAR-KIND */
+static object LnkTLI51(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[51],(void **)(void *)&LnkLI51,1,first,ap);va_end(ap);return V1;} /* CHECK-VREF */
+static object LnkTLI50(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[50],(void **)(void *)&LnkLI50,2,first,ap);va_end(ap);return V1;} /* ADD-INFO */
+static object LnkTLI49(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[49],(void **)(void *)&LnkLI49,2,first,ap);va_end(ap);return V1;} /* C1DECL-BODY */
+static object LnkTLI48(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[48],(void **)(void *)&LnkLI48,3,first,ap);va_end(ap);return V1;} /* CHECK-VDECL */
+static object LnkTLI47(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[47],(void **)(void *)&LnkLI47,2,first,ap);va_end(ap);return V1;} /* C1EXPR* */
+static object LnkTLI46(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[46],(void **)(void *)&LnkLI46,3,first,ap);va_end(ap);return V1;} /* AND-FORM-TYPE */
+static object LnkTLI45(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[45],(void **)(void *)&LnkLI45,first,ap);va_end(ap);return V1;} /* CMPERR */
+static object LnkTLI44(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[44],(void **)(void *)&LnkLI44,1,first,ap);va_end(ap);return V1;} /* DEFAULT-INIT */
+static object LnkTLI43(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[43],(void **)(void *)&LnkLI43,4,first,ap);va_end(ap);return V1;} /* C1MAKE-VAR */
+static object LnkTLI42(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[42],(void **)(void *)&LnkLI42,1,first,ap);va_end(ap);return V1;} /* C1ADD-GLOBALS */
+static void LnkT41(){ call_or_link(VV[41],(void **)(void *)&Lnk41);} /* C1BODY */
+static object LnkTLI40(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[40],(void **)(void *)&LnkLI40,3,first,ap);va_end(ap);return V1;} /* TOO-FEW-ARGS */
+static object LnkTLI39(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[39],(void **)(void *)&LnkLI39,first,ap);va_end(ap);return V1;} /* MAKE-INFO */
#ifdef SYSTEM_SPECIAL_INIT
SYSTEM_SPECIAL_INIT
diff --git a/gcl/cmpnew/cmpmap.c b/gcl/cmpnew/cmpmap.c
index 4a6a0c176..27bf6a74a 100755
--- a/gcl/cmpnew/cmpmap.c
+++ b/gcl/cmpnew/cmpmap.c
@@ -1096,20 +1096,20 @@ T733:;
base[0]=base[0];
return Cnil;
}
-static object LnkTLI36(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[36],(void **)&LnkLI36,2,first,ap);va_end(ap);return V1;} /* ARGS-INFO-CHANGED-VARS */
-static object LnkTLI35(){return call_proc0(VV[35],(void **)&LnkLI35);} /* CLOSE-INLINE-BLOCKS */
-static object LnkTLI34(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[34],(void **)&LnkLI34,first,ap);va_end(ap);return V1;} /* C2FUNCALL */
-static object LnkTLI33(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[33],(void **)&LnkLI33,first,ap);va_end(ap);return V1;} /* UNWIND-EXIT */
-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;} /* WT1 */
-static object LnkTLI31(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[31],(void **)&LnkLI31,first,ap);va_end(ap);return V1;} /* INLINE-ARGS */
-static object LnkTLI30(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[30],(void **)&LnkLI30,2,first,ap);va_end(ap);return V1;} /* PUSH-CHANGED-VARS */
-static object LnkTLI29(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[29],(void **)&LnkLI29,1,first,ap);va_end(ap);return V1;} /* SAVE-FUNOB */
-static object LnkTLI28(){return call_proc0(VV[28],(void **)&LnkLI28);} /* VS-PUSH */
-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;} /* C1ARGS */
-static void LnkT26(){ call_or_link(VV[26],(void **)&Lnk26);} /* COPY-INFO */
-static object LnkTLI25(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[25],(void **)&LnkLI25,1,first,ap);va_end(ap);return V1;} /* C1FUNOB */
-static object LnkTLI24(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[24],(void **)&LnkLI24,3,first,ap);va_end(ap);return V1;} /* TOO-FEW-ARGS */
-static object LnkTLI23(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[23],(void **)&LnkLI23,3,first,ap);va_end(ap);return V1;} /* C1MAP-FUNCTIONS */
+static object LnkTLI36(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[36],(void **)(void *)&LnkLI36,2,first,ap);va_end(ap);return V1;} /* ARGS-INFO-CHANGED-VARS */
+static object LnkTLI35(){return call_proc0(VV[35],(void **)(void *)&LnkLI35);} /* CLOSE-INLINE-BLOCKS */
+static object LnkTLI34(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[34],(void **)(void *)&LnkLI34,first,ap);va_end(ap);return V1;} /* C2FUNCALL */
+static object LnkTLI33(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[33],(void **)(void *)&LnkLI33,first,ap);va_end(ap);return V1;} /* UNWIND-EXIT */
+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;} /* WT1 */
+static object LnkTLI31(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[31],(void **)(void *)&LnkLI31,first,ap);va_end(ap);return V1;} /* INLINE-ARGS */
+static object LnkTLI30(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[30],(void **)(void *)&LnkLI30,2,first,ap);va_end(ap);return V1;} /* PUSH-CHANGED-VARS */
+static object LnkTLI29(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[29],(void **)(void *)&LnkLI29,1,first,ap);va_end(ap);return V1;} /* SAVE-FUNOB */
+static object LnkTLI28(){return call_proc0(VV[28],(void **)(void *)&LnkLI28);} /* VS-PUSH */
+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;} /* C1ARGS */
+static void LnkT26(){ call_or_link(VV[26],(void **)(void *)&Lnk26);} /* COPY-INFO */
+static object LnkTLI25(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[25],(void **)(void *)&LnkLI25,1,first,ap);va_end(ap);return V1;} /* C1FUNOB */
+static object LnkTLI24(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[24],(void **)(void *)&LnkLI24,3,first,ap);va_end(ap);return V1;} /* TOO-FEW-ARGS */
+static object LnkTLI23(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[23],(void **)(void *)&LnkLI23,3,first,ap);va_end(ap);return V1;} /* C1MAP-FUNCTIONS */
#ifdef SYSTEM_SPECIAL_INIT
SYSTEM_SPECIAL_INIT
diff --git a/gcl/cmpnew/cmpmulti.c b/gcl/cmpnew/cmpmulti.c
index 5a05e76dd..3c46ac68e 100755
--- a/gcl/cmpnew/cmpmulti.c
+++ b/gcl/cmpnew/cmpmulti.c
@@ -837,41 +837,41 @@ T476:;
base[0]=base[0];
return Cnil;
}
-static void LnkT72(){ call_or_link(VV[72],(void **)&Lnk72);} /* C2EXPR */
-static object LnkTLI71(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[71],(void **)&LnkLI71,2,first,ap);va_end(ap);return V1;} /* C2BIND-LOC */
-static void LnkT70(){ call_or_link(VV[70],(void **)&Lnk70);} /* WT-VAR-DECL */
-static object LnkTLI69(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[69],(void **)&LnkLI69,1,first,ap);va_end(ap);return V1;} /* C2VAR-KIND */
-static object LnkTLI68(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[68],(void **)&LnkLI68,1,first,ap);va_end(ap);return V1;} /* CHECK-VREF */
-static object LnkTLI67(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[67],(void **)&LnkLI67,2,first,ap);va_end(ap);return V1;} /* ADD-INFO */
-static object LnkTLI66(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[66],(void **)&LnkLI66,2,first,ap);va_end(ap);return V1;} /* C1DECL-BODY */
-static object LnkTLI65(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[65],(void **)&LnkLI65,3,first,ap);va_end(ap);return V1;} /* CHECK-VDECL */
-static object LnkTLI64(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[64],(void **)&LnkLI64,4,first,ap);va_end(ap);return V1;} /* C1MAKE-VAR */
-static object LnkTLI63(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[63],(void **)&LnkLI63,1,first,ap);va_end(ap);return V1;} /* C1ADD-GLOBALS */
-static void LnkT62(){ call_or_link(VV[62],(void **)&Lnk62);} /* C1BODY */
-static object LnkTLI61(){return call_proc0(VV[61],(void **)&LnkLI61);} /* RESET-TOP */
-static object LnkTLI60(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[60],(void **)&LnkLI60,3,first,ap);va_end(ap);return V1;} /* SET-VAR */
-static object LnkTLI59(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[59],(void **)&LnkLI59,2,first,ap);va_end(ap);return V1;} /* RECORD-CALL-INFO */
-static object LnkTLI58(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[58],(void **)&LnkLI58,2,first,ap);va_end(ap);return V1;} /* MULTIPLE-VALUE-CHECK */
-static object LnkTLI57(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[57],(void **)&LnkLI57,1,first,ap);va_end(ap);return V1;} /* C1VREF */
-static object LnkTLI56(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[56],(void **)&LnkLI56,first,ap);va_end(ap);return V1;} /* CMPERR */
-static object LnkTLI55(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[55],(void **)&LnkLI55,3,first,ap);va_end(ap);return V1;} /* TOO-MANY-ARGS */
-static object LnkTLI54(){return call_proc0(VV[54],(void **)&LnkLI54);} /* VS-PUSH */
-static object LnkTLI53(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[53],(void **)&LnkLI53,first,ap);va_end(ap);return V1;} /* CMPWARN */
-static object LnkTLI52(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[52],(void **)&LnkLI52,1,first,ap);va_end(ap);return V1;} /* C1EXPR */
-static object LnkTLI51(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[51],(void **)&LnkLI51,1,first,ap);va_end(ap);return V1;} /* GET-RETURN-TYPE */
-static object LnkTLI50(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[50],(void **)&LnkLI50,first,ap);va_end(ap);return V1;} /* UNWIND-EXIT */
-static object LnkTLI49(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[49],(void **)&LnkLI49,2,first,ap);va_end(ap);return V1;} /* C1EXPR* */
-static object LnkTLI48(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[48],(void **)&LnkLI48,first,ap);va_end(ap);return V1;} /* MAKE-INFO */
-static object LnkTLI47(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[47],(void **)&LnkLI47,2,first,ap);va_end(ap);return V1;} /* C2EXPR-TOP* */
-static object LnkTLI46(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[46],(void **)&LnkLI46,1,first,ap);va_end(ap);return V1;} /* WT1 */
-static object LnkTLI45(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[45],(void **)&LnkLI45,first,ap);va_end(ap);return V1;} /* C2FUNCALL */
-static object LnkTLI44(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[44],(void **)&LnkLI44,1,first,ap);va_end(ap);return V1;} /* C2EXPR* */
-static object LnkTLI43(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[43],(void **)&LnkLI43,1,first,ap);va_end(ap);return V1;} /* SAVE-FUNOB */
-static object LnkTLI42(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[42],(void **)&LnkLI42,2,first,ap);va_end(ap);return V1;} /* C1ARGS */
-static void LnkT41(){ call_or_link(VV[41],(void **)&Lnk41);} /* COPY-INFO */
-static object LnkTLI40(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[40],(void **)&LnkLI40,1,first,ap);va_end(ap);return V1;} /* C1FUNOB */
-static object LnkTLI39(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[39],(void **)&LnkLI39,1,first,ap);va_end(ap);return V1;} /* C1FUNCALL */
-static object LnkTLI38(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[38],(void **)&LnkLI38,3,first,ap);va_end(ap);return V1;} /* TOO-FEW-ARGS */
+static void LnkT72(){ call_or_link(VV[72],(void **)(void *)&Lnk72);} /* C2EXPR */
+static object LnkTLI71(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[71],(void **)(void *)&LnkLI71,2,first,ap);va_end(ap);return V1;} /* C2BIND-LOC */
+static void LnkT70(){ call_or_link(VV[70],(void **)(void *)&Lnk70);} /* WT-VAR-DECL */
+static object LnkTLI69(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[69],(void **)(void *)&LnkLI69,1,first,ap);va_end(ap);return V1;} /* C2VAR-KIND */
+static object LnkTLI68(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[68],(void **)(void *)&LnkLI68,1,first,ap);va_end(ap);return V1;} /* CHECK-VREF */
+static object LnkTLI67(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[67],(void **)(void *)&LnkLI67,2,first,ap);va_end(ap);return V1;} /* ADD-INFO */
+static object LnkTLI66(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[66],(void **)(void *)&LnkLI66,2,first,ap);va_end(ap);return V1;} /* C1DECL-BODY */
+static object LnkTLI65(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[65],(void **)(void *)&LnkLI65,3,first,ap);va_end(ap);return V1;} /* CHECK-VDECL */
+static object LnkTLI64(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[64],(void **)(void *)&LnkLI64,4,first,ap);va_end(ap);return V1;} /* C1MAKE-VAR */
+static object LnkTLI63(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[63],(void **)(void *)&LnkLI63,1,first,ap);va_end(ap);return V1;} /* C1ADD-GLOBALS */
+static void LnkT62(){ call_or_link(VV[62],(void **)(void *)&Lnk62);} /* C1BODY */
+static object LnkTLI61(){return call_proc0(VV[61],(void **)(void *)&LnkLI61);} /* RESET-TOP */
+static object LnkTLI60(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[60],(void **)(void *)&LnkLI60,3,first,ap);va_end(ap);return V1;} /* SET-VAR */
+static object LnkTLI59(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[59],(void **)(void *)&LnkLI59,2,first,ap);va_end(ap);return V1;} /* RECORD-CALL-INFO */
+static object LnkTLI58(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[58],(void **)(void *)&LnkLI58,2,first,ap);va_end(ap);return V1;} /* MULTIPLE-VALUE-CHECK */
+static object LnkTLI57(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[57],(void **)(void *)&LnkLI57,1,first,ap);va_end(ap);return V1;} /* C1VREF */
+static object LnkTLI56(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[56],(void **)(void *)&LnkLI56,first,ap);va_end(ap);return V1;} /* CMPERR */
+static object LnkTLI55(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[55],(void **)(void *)&LnkLI55,3,first,ap);va_end(ap);return V1;} /* TOO-MANY-ARGS */
+static object LnkTLI54(){return call_proc0(VV[54],(void **)(void *)&LnkLI54);} /* VS-PUSH */
+static object LnkTLI53(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[53],(void **)(void *)&LnkLI53,first,ap);va_end(ap);return V1;} /* CMPWARN */
+static object LnkTLI52(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[52],(void **)(void *)&LnkLI52,1,first,ap);va_end(ap);return V1;} /* C1EXPR */
+static object LnkTLI51(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[51],(void **)(void *)&LnkLI51,1,first,ap);va_end(ap);return V1;} /* GET-RETURN-TYPE */
+static object LnkTLI50(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[50],(void **)(void *)&LnkLI50,first,ap);va_end(ap);return V1;} /* UNWIND-EXIT */
+static object LnkTLI49(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[49],(void **)(void *)&LnkLI49,2,first,ap);va_end(ap);return V1;} /* C1EXPR* */
+static object LnkTLI48(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[48],(void **)(void *)&LnkLI48,first,ap);va_end(ap);return V1;} /* MAKE-INFO */
+static object LnkTLI47(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[47],(void **)(void *)&LnkLI47,2,first,ap);va_end(ap);return V1;} /* C2EXPR-TOP* */
+static object LnkTLI46(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[46],(void **)(void *)&LnkLI46,1,first,ap);va_end(ap);return V1;} /* WT1 */
+static object LnkTLI45(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[45],(void **)(void *)&LnkLI45,first,ap);va_end(ap);return V1;} /* C2FUNCALL */
+static object LnkTLI44(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[44],(void **)(void *)&LnkLI44,1,first,ap);va_end(ap);return V1;} /* C2EXPR* */
+static object LnkTLI43(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[43],(void **)(void *)&LnkLI43,1,first,ap);va_end(ap);return V1;} /* SAVE-FUNOB */
+static object LnkTLI42(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[42],(void **)(void *)&LnkLI42,2,first,ap);va_end(ap);return V1;} /* C1ARGS */
+static void LnkT41(){ call_or_link(VV[41],(void **)(void *)&Lnk41);} /* COPY-INFO */
+static object LnkTLI40(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[40],(void **)(void *)&LnkLI40,1,first,ap);va_end(ap);return V1;} /* C1FUNOB */
+static object LnkTLI39(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[39],(void **)(void *)&LnkLI39,1,first,ap);va_end(ap);return V1;} /* C1FUNCALL */
+static object LnkTLI38(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[38],(void **)(void *)&LnkLI38,3,first,ap);va_end(ap);return V1;} /* TOO-FEW-ARGS */
#ifdef SYSTEM_SPECIAL_INIT
SYSTEM_SPECIAL_INIT
diff --git a/gcl/cmpnew/cmpspecial.c b/gcl/cmpnew/cmpspecial.c
index 136a3c304..affe00ef4 100755
--- a/gcl/cmpnew/cmpspecial.c
+++ b/gcl/cmpnew/cmpspecial.c
@@ -450,29 +450,29 @@ TTL:;
VMR10(V83)}
return Cnil;
}
-static object LnkTLI70(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[70],(void **)&LnkLI70,first,ap);va_end(ap);return V1;} /* WT-CLINK */
-static object LnkTLI69(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[69],(void **)&LnkLI69,1,first,ap);va_end(ap);return V1;} /* WT1 */
-static object LnkTLI68(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[68],(void **)&LnkLI68,2,first,ap);va_end(ap);return V1;} /* ADD-ADDRESS */
-static object LnkTLI67(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[67],(void **)&LnkLI67,first,ap);va_end(ap);return V1;} /* ADD-INIT */
-static object LnkTLI66(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[66],(void **)&LnkLI66,1,first,ap);va_end(ap);return V1;} /* PUSH-DATA-INCF */
-static object LnkTLI65(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[65],(void **)&LnkLI65,first,ap);va_end(ap);return V1;} /* MAKE-FUN */
-static object LnkTLI64(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[64],(void **)&LnkLI64,1,first,ap);va_end(ap);return V1;} /* ADD-SYMBOL */
-static object LnkTLI63(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[63],(void **)&LnkLI63,first,ap);va_end(ap);return V1;} /* UNWIND-EXIT */
-static object LnkTLI62(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[62],(void **)&LnkLI62,first,ap);va_end(ap);return V1;} /* C1LAMBDA-EXPR */
-static object LnkTLI61(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[61],(void **)&LnkLI61,first,ap);va_end(ap);return V1;} /* MAKE-INFO */
-static object LnkTLI60(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[60],(void **)&LnkLI60,1,first,ap);va_end(ap);return V1;} /* C1LOCAL-CLOSURE */
-static void LnkT59(){ call_or_link(VV[59],(void **)&Lnk59);} /* C2EXPR */
-static object LnkTLI58(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[58],(void **)&LnkLI58,first,ap);va_end(ap);return V1;} /* CMPWARN */
-static object LnkTLI57(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[57],(void **)&LnkLI57,1,first,ap);va_end(ap);return V1;} /* TYPE-FILTER */
-static object LnkTLI56(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[56],(void **)&LnkLI56,2,first,ap);va_end(ap);return V1;} /* TYPE-AND */
-static void LnkT55(){ call_or_link(VV[55],(void **)&Lnk55);} /* COPY-INFO */
-static object LnkTLI54(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[54],(void **)&LnkLI54,1,first,ap);va_end(ap);return V1;} /* C1EXPR */
-static object LnkTLI53(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[53],(void **)&LnkLI53,first,ap);va_end(ap);return V1;} /* CMPERR */
-static object LnkTLI50(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[50],(void **)&LnkLI50,1,first,ap);va_end(ap);return V1;} /* C1PROGN */
-static object LnkTLI48(){return call_proc0(VV[48],(void **)&LnkLI48);} /* C1NIL */
-static object LnkTLI47(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[47],(void **)&LnkLI47,2,first,ap);va_end(ap);return V1;} /* C1CONSTANT-VALUE */
-static object LnkTLI46(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[46],(void **)&LnkLI46,3,first,ap);va_end(ap);return V1;} /* TOO-MANY-ARGS */
-static object LnkTLI45(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[45],(void **)&LnkLI45,3,first,ap);va_end(ap);return V1;} /* TOO-FEW-ARGS */
+static object LnkTLI70(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[70],(void **)(void *)&LnkLI70,first,ap);va_end(ap);return V1;} /* WT-CLINK */
+static object LnkTLI69(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[69],(void **)(void *)&LnkLI69,1,first,ap);va_end(ap);return V1;} /* WT1 */
+static object LnkTLI68(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[68],(void **)(void *)&LnkLI68,2,first,ap);va_end(ap);return V1;} /* ADD-ADDRESS */
+static object LnkTLI67(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[67],(void **)(void *)&LnkLI67,first,ap);va_end(ap);return V1;} /* ADD-INIT */
+static object LnkTLI66(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[66],(void **)(void *)&LnkLI66,1,first,ap);va_end(ap);return V1;} /* PUSH-DATA-INCF */
+static object LnkTLI65(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[65],(void **)(void *)&LnkLI65,first,ap);va_end(ap);return V1;} /* MAKE-FUN */
+static object LnkTLI64(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[64],(void **)(void *)&LnkLI64,1,first,ap);va_end(ap);return V1;} /* ADD-SYMBOL */
+static object LnkTLI63(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[63],(void **)(void *)&LnkLI63,first,ap);va_end(ap);return V1;} /* UNWIND-EXIT */
+static object LnkTLI62(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[62],(void **)(void *)&LnkLI62,first,ap);va_end(ap);return V1;} /* C1LAMBDA-EXPR */
+static object LnkTLI61(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[61],(void **)(void *)&LnkLI61,first,ap);va_end(ap);return V1;} /* MAKE-INFO */
+static object LnkTLI60(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[60],(void **)(void *)&LnkLI60,1,first,ap);va_end(ap);return V1;} /* C1LOCAL-CLOSURE */
+static void LnkT59(){ call_or_link(VV[59],(void **)(void *)&Lnk59);} /* C2EXPR */
+static object LnkTLI58(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[58],(void **)(void *)&LnkLI58,first,ap);va_end(ap);return V1;} /* CMPWARN */
+static object LnkTLI57(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[57],(void **)(void *)&LnkLI57,1,first,ap);va_end(ap);return V1;} /* TYPE-FILTER */
+static object LnkTLI56(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[56],(void **)(void *)&LnkLI56,2,first,ap);va_end(ap);return V1;} /* TYPE-AND */
+static void LnkT55(){ call_or_link(VV[55],(void **)(void *)&Lnk55);} /* COPY-INFO */
+static object LnkTLI54(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[54],(void **)(void *)&LnkLI54,1,first,ap);va_end(ap);return V1;} /* C1EXPR */
+static object LnkTLI53(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[53],(void **)(void *)&LnkLI53,first,ap);va_end(ap);return V1;} /* CMPERR */
+static object LnkTLI50(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[50],(void **)(void *)&LnkLI50,1,first,ap);va_end(ap);return V1;} /* C1PROGN */
+static object LnkTLI48(){return call_proc0(VV[48],(void **)(void *)&LnkLI48);} /* C1NIL */
+static object LnkTLI47(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[47],(void **)(void *)&LnkLI47,2,first,ap);va_end(ap);return V1;} /* C1CONSTANT-VALUE */
+static object LnkTLI46(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[46],(void **)(void *)&LnkLI46,3,first,ap);va_end(ap);return V1;} /* TOO-MANY-ARGS */
+static object LnkTLI45(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[45],(void **)(void *)&LnkLI45,3,first,ap);va_end(ap);return V1;} /* TOO-FEW-ARGS */
#ifdef SYSTEM_SPECIAL_INIT
SYSTEM_SPECIAL_INIT
diff --git a/gcl/cmpnew/cmptag.c b/gcl/cmpnew/cmptag.c
index adb022e67..25e93af9a 100755
--- a/gcl/cmpnew/cmptag.c
+++ b/gcl/cmpnew/cmptag.c
@@ -20,7 +20,7 @@ static object LI1(object first,...)
va_start(ap,first);
narg= narg - 0;
{
- parse_key_new_new(narg,Vcs +0,(struct key *)&LI1key,first,ap);
+ parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI1key,first,ap);
V1=(Vcs[0]);
V2=(Vcs[1]);
V3=(Vcs[2]);
@@ -1255,44 +1255,44 @@ static void L20()
vs_top=(vs_base=base+2)+1;
return;
}
-static object LnkTLI84(){return call_proc0(VV[84],(void **)&LnkLI84);} /* CLOSE-INLINE-BLOCKS */
-static void LnkT83(){ call_or_link(VV[83],(void **)&Lnk83);} /* WT-INLINE-LOC */
-static object LnkTLI82(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[82],(void **)&LnkLI82,first,ap);va_end(ap);return V1;} /* INLINE-ARGS */
-static object LnkTLI81(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[81],(void **)&LnkLI81,1,first,ap);va_end(ap);return V1;} /* CMP-MACROEXPAND-1 */
-static object LnkTLI80(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[80],(void **)&LnkLI80,1,first,ap);va_end(ap);return V1;} /* C1TAGBODY */
-static void LnkT79(){ call_or_link(VV[79],(void **)&Lnk79);} /* SUBTYPEP */
-static object LnkTLI78(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[78],(void **)&LnkLI78,1,first,ap);va_end(ap);return V1;} /* C1EXPR */
-static object LnkTLI77(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[77],(void **)&LnkLI77,1,first,ap);va_end(ap);return V1;} /* WT-CCB-VS */
-static object LnkTLI76(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[76],(void **)&LnkLI76,1,first,ap);va_end(ap);return V1;} /* UNWIND-NO-EXIT */
-static object LnkTLI75(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[75],(void **)&LnkLI75,1,first,ap);va_end(ap);return V1;} /* C2GO-LOCAL */
-static object LnkTLI74(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[74],(void **)&LnkLI74,1,first,ap);va_end(ap);return V1;} /* C2GO-CLB */
-static object LnkTLI73(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[73],(void **)&LnkLI73,1,first,ap);va_end(ap);return V1;} /* C2GO-CCB */
-static object LnkTLI70(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[70],(void **)&LnkLI70,first,ap);va_end(ap);return V1;} /* CMPERR */
-static object LnkTLI69(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[69],(void **)&LnkLI69,3,first,ap);va_end(ap);return V1;} /* TOO-MANY-ARGS */
-static object LnkTLI68(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[68],(void **)&LnkLI68,3,first,ap);va_end(ap);return V1;} /* TOO-FEW-ARGS */
-static object LnkTLI67(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[67],(void **)&LnkLI67,1,first,ap);va_end(ap);return V1;} /* WT-VS* */
-static object LnkTLI66(){return call_proc0(VV[66],(void **)&LnkLI66);} /* CCB-VS-PUSH */
-static object LnkTLI65(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[65],(void **)&LnkLI65,1,first,ap);va_end(ap);return V1;} /* CLINK */
-static object LnkTLI64(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[64],(void **)&LnkLI64,first,ap);va_end(ap);return V1;} /* WT-CLINK */
-static object LnkTLI63(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[63],(void **)&LnkLI63,1,first,ap);va_end(ap);return V1;} /* WT-VS */
-static object LnkTLI62(){return call_proc0(VV[62],(void **)&LnkLI62);} /* VS-PUSH */
-static void LnkT61(){ call_or_link(VV[61],(void **)&Lnk61);} /* C2EXPR */
-static object LnkTLI60(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[60],(void **)&LnkLI60,1,first,ap);va_end(ap);return V1;} /* WT1 */
-static object LnkTLI59(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[59],(void **)&LnkLI59,1,first,ap);va_end(ap);return V1;} /* WT-SWITCH-CASE */
-static object LnkTLI58(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[58],(void **)&LnkLI58,first,ap);va_end(ap);return V1;} /* UNWIND-EXIT */
-static object LnkTLI57(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[57],(void **)&LnkLI57,1,first,ap);va_end(ap);return V1;} /* C2TAGBODY-BODY */
-static object LnkTLI56(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[56],(void **)&LnkLI56,1,first,ap);va_end(ap);return V1;} /* C2TAGBODY-LOCAL */
-static object LnkTLI55(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[55],(void **)&LnkLI55,1,first,ap);va_end(ap);return V1;} /* C2TAGBODY-CLB */
-static object LnkTLI54(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[54],(void **)&LnkLI54,1,first,ap);va_end(ap);return V1;} /* C2TAGBODY-CCB */
-static object LnkTLI53(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[53],(void **)&LnkLI53,1,first,ap);va_end(ap);return V1;} /* ADD-OBJECT */
-static object LnkTLI52(){return call_proc0(VV[52],(void **)&LnkLI52);} /* C1NIL */
-static object LnkTLI51(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[51],(void **)&LnkLI51,1,first,ap);va_end(ap);return V1;} /* ADD-LOOP-REGISTERS */
-static object LnkTLI50(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[50],(void **)&LnkLI50,2,first,ap);va_end(ap);return V1;} /* C1EXPR* */
-static object LnkTLI49(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[49],(void **)&LnkLI49,first,ap);va_end(ap);return V1;} /* MAKE-TAG */
-static object LnkTLI48(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[48],(void **)&LnkLI48,first,ap);va_end(ap);return V1;} /* MAKE-INFO */
-static object LnkTLI47(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[47],(void **)&LnkLI47,1,first,ap);va_end(ap);return V1;} /* ADD-REG1 */
-static object LnkTLI46(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[46],(void **)&LnkLI46,2,first,ap);va_end(ap);return V1;} /* JUMPS-TO-P */
-static void LnkT45(){ call_or_link(VV[45],(void **)&Lnk45);} /* STRUCTURE-SUBTYPE-P */
+static object LnkTLI84(){return call_proc0(VV[84],(void **)(void *)&LnkLI84);} /* CLOSE-INLINE-BLOCKS */
+static void LnkT83(){ call_or_link(VV[83],(void **)(void *)&Lnk83);} /* WT-INLINE-LOC */
+static object LnkTLI82(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[82],(void **)(void *)&LnkLI82,first,ap);va_end(ap);return V1;} /* INLINE-ARGS */
+static object LnkTLI81(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[81],(void **)(void *)&LnkLI81,1,first,ap);va_end(ap);return V1;} /* CMP-MACROEXPAND-1 */
+static object LnkTLI80(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[80],(void **)(void *)&LnkLI80,1,first,ap);va_end(ap);return V1;} /* C1TAGBODY */
+static void LnkT79(){ call_or_link(VV[79],(void **)(void *)&Lnk79);} /* SUBTYPEP */
+static object LnkTLI78(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[78],(void **)(void *)&LnkLI78,1,first,ap);va_end(ap);return V1;} /* C1EXPR */
+static object LnkTLI77(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[77],(void **)(void *)&LnkLI77,1,first,ap);va_end(ap);return V1;} /* WT-CCB-VS */
+static object LnkTLI76(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[76],(void **)(void *)&LnkLI76,1,first,ap);va_end(ap);return V1;} /* UNWIND-NO-EXIT */
+static object LnkTLI75(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[75],(void **)(void *)&LnkLI75,1,first,ap);va_end(ap);return V1;} /* C2GO-LOCAL */
+static object LnkTLI74(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[74],(void **)(void *)&LnkLI74,1,first,ap);va_end(ap);return V1;} /* C2GO-CLB */
+static object LnkTLI73(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[73],(void **)(void *)&LnkLI73,1,first,ap);va_end(ap);return V1;} /* C2GO-CCB */
+static object LnkTLI70(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[70],(void **)(void *)&LnkLI70,first,ap);va_end(ap);return V1;} /* CMPERR */
+static object LnkTLI69(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[69],(void **)(void *)&LnkLI69,3,first,ap);va_end(ap);return V1;} /* TOO-MANY-ARGS */
+static object LnkTLI68(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[68],(void **)(void *)&LnkLI68,3,first,ap);va_end(ap);return V1;} /* TOO-FEW-ARGS */
+static object LnkTLI67(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[67],(void **)(void *)&LnkLI67,1,first,ap);va_end(ap);return V1;} /* WT-VS* */
+static object LnkTLI66(){return call_proc0(VV[66],(void **)(void *)&LnkLI66);} /* CCB-VS-PUSH */
+static object LnkTLI65(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[65],(void **)(void *)&LnkLI65,1,first,ap);va_end(ap);return V1;} /* CLINK */
+static object LnkTLI64(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[64],(void **)(void *)&LnkLI64,first,ap);va_end(ap);return V1;} /* WT-CLINK */
+static object LnkTLI63(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[63],(void **)(void *)&LnkLI63,1,first,ap);va_end(ap);return V1;} /* WT-VS */
+static object LnkTLI62(){return call_proc0(VV[62],(void **)(void *)&LnkLI62);} /* VS-PUSH */
+static void LnkT61(){ call_or_link(VV[61],(void **)(void *)&Lnk61);} /* C2EXPR */
+static object LnkTLI60(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[60],(void **)(void *)&LnkLI60,1,first,ap);va_end(ap);return V1;} /* WT1 */
+static object LnkTLI59(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[59],(void **)(void *)&LnkLI59,1,first,ap);va_end(ap);return V1;} /* WT-SWITCH-CASE */
+static object LnkTLI58(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[58],(void **)(void *)&LnkLI58,first,ap);va_end(ap);return V1;} /* UNWIND-EXIT */
+static object LnkTLI57(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[57],(void **)(void *)&LnkLI57,1,first,ap);va_end(ap);return V1;} /* C2TAGBODY-BODY */
+static object LnkTLI56(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[56],(void **)(void *)&LnkLI56,1,first,ap);va_end(ap);return V1;} /* C2TAGBODY-LOCAL */
+static object LnkTLI55(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[55],(void **)(void *)&LnkLI55,1,first,ap);va_end(ap);return V1;} /* C2TAGBODY-CLB */
+static object LnkTLI54(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[54],(void **)(void *)&LnkLI54,1,first,ap);va_end(ap);return V1;} /* C2TAGBODY-CCB */
+static object LnkTLI53(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[53],(void **)(void *)&LnkLI53,1,first,ap);va_end(ap);return V1;} /* ADD-OBJECT */
+static object LnkTLI52(){return call_proc0(VV[52],(void **)(void *)&LnkLI52);} /* C1NIL */
+static object LnkTLI51(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[51],(void **)(void *)&LnkLI51,1,first,ap);va_end(ap);return V1;} /* ADD-LOOP-REGISTERS */
+static object LnkTLI50(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[50],(void **)(void *)&LnkLI50,2,first,ap);va_end(ap);return V1;} /* C1EXPR* */
+static object LnkTLI49(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[49],(void **)(void *)&LnkLI49,first,ap);va_end(ap);return V1;} /* MAKE-TAG */
+static object LnkTLI48(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[48],(void **)(void *)&LnkLI48,first,ap);va_end(ap);return V1;} /* MAKE-INFO */
+static object LnkTLI47(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[47],(void **)(void *)&LnkLI47,1,first,ap);va_end(ap);return V1;} /* ADD-REG1 */
+static object LnkTLI46(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[46],(void **)(void *)&LnkLI46,2,first,ap);va_end(ap);return V1;} /* JUMPS-TO-P */
+static void LnkT45(){ call_or_link(VV[45],(void **)(void *)&Lnk45);} /* STRUCTURE-SUBTYPE-P */
#ifdef SYSTEM_SPECIAL_INIT
SYSTEM_SPECIAL_INIT
diff --git a/gcl/cmpnew/cmputil.c b/gcl/cmpnew/cmputil.c
index cbd446e02..86e52bd1e 100755
--- a/gcl/cmpnew/cmputil.c
+++ b/gcl/cmpnew/cmputil.c
@@ -811,13 +811,13 @@ T222:;
base[0]=base[0];
return Cnil;
}
-static object LnkTLI64(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[64],(void **)&LnkLI64,2,first,ap);va_end(ap);return V1;} /* COMPILER-DEF-HOOK */
-static void LnkT63(){ call_or_link(VV[63],(void **)&Lnk63);} /* ERROR-SET */
-static void LnkT62(){ call_or_link(VV[62],(void **)&Lnk62);} /* IHS-TOP */
-static object LnkTLI61(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[61],(void **)&LnkLI61,1,first,ap);va_end(ap);return V1;} /* ADD-MACRO-CALLEE */
-static void LnkT60(){ call_or_link(VV[60],(void **)&Lnk60);} /* CMP-TOPLEVEL-EVAL */
-static object LnkTLI59(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[59],(void **)&LnkLI59,first,ap);va_end(ap);return V1;} /* BREAK */
-static object LnkTLI58(){return call_proc0(VV[58],(void **)&LnkLI58);} /* PRINT-CURRENT-FORM */
+static object LnkTLI64(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[64],(void **)(void *)&LnkLI64,2,first,ap);va_end(ap);return V1;} /* COMPILER-DEF-HOOK */
+static void LnkT63(){ call_or_link(VV[63],(void **)(void *)&Lnk63);} /* ERROR-SET */
+static void LnkT62(){ call_or_link(VV[62],(void **)(void *)&Lnk62);} /* IHS-TOP */
+static object LnkTLI61(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[61],(void **)(void *)&LnkLI61,1,first,ap);va_end(ap);return V1;} /* ADD-MACRO-CALLEE */
+static void LnkT60(){ call_or_link(VV[60],(void **)(void *)&Lnk60);} /* CMP-TOPLEVEL-EVAL */
+static object LnkTLI59(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[59],(void **)(void *)&LnkLI59,first,ap);va_end(ap);return V1;} /* BREAK */
+static object LnkTLI58(){return call_proc0(VV[58],(void **)(void *)&LnkLI58);} /* PRINT-CURRENT-FORM */
#ifdef SYSTEM_SPECIAL_INIT
SYSTEM_SPECIAL_INIT
diff --git a/gcl/cmpnew/cmpvar.c b/gcl/cmpnew/cmpvar.c
index c99736da3..28cd5d92d 100755
--- a/gcl/cmpnew/cmpvar.c
+++ b/gcl/cmpnew/cmpvar.c
@@ -19,7 +19,7 @@ static object LI1(object first,...)
va_start(ap,first);
narg= narg - 0;
{
- parse_key_new_new(narg,Vcs +0,(struct key *)&LI1key,first,ap);
+ parse_key_new_new(narg,Vcs +0,(struct key *)(void *)&LI1key,first,ap);
V1=(Vcs[0]);
V2=(Vcs[1]);
V3=(Vcs[2]);
@@ -1618,52 +1618,52 @@ T734:;
return;
}
}
-static object LnkTLI69(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[69],(void **)&LnkLI69,1,first,ap);va_end(ap);return V1;} /* REGISTER */
-static void LnkT114(){ call_or_link(VV[114],(void **)&Lnk114);} /* STRUCTURE-SUBTYPE-P */
-static object LnkTLI42(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[42],(void **)&LnkLI42,3,first,ap);va_end(ap);return V1;} /* SET-VAR */
-static object LnkTLI113(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[113],(void **)&LnkLI113,1,first,ap);va_end(ap);return V1;} /* REP-TYPE */
-static object LnkTLI112(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[112],(void **)&LnkLI112,2,first,ap);va_end(ap);return V1;} /* ARGS-INFO-REFERRED-VARS */
-static object LnkTLI111(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[111],(void **)&LnkLI111,2,first,ap);va_end(ap);return V1;} /* ARGS-INFO-CHANGED-VARS */
-static void LnkT110(){ call_or_link(VV[110],(void **)&Lnk110);} /* C2EXPR */
-static object LnkTLI109(){return call_proc0(VV[109],(void **)&LnkLI109);} /* VS-PUSH */
-static object LnkTLI108(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[108],(void **)&LnkLI108,2,first,ap);va_end(ap);return V1;} /* C1PROGN* */
-static object LnkTLI107(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[107],(void **)&LnkLI107,2,first,ap);va_end(ap);return V1;} /* C1EXPR* */
-static object LnkTLI106(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[106],(void **)&LnkLI106,1,first,ap);va_end(ap);return V1;} /* C2LOCATION */
-static object LnkTLI104(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[104],(void **)&LnkLI104,1,first,ap);va_end(ap);return V1;} /* C2EXPR* */
-static void LnkT103(){ call_or_link(VV[103],(void **)&Lnk103);} /* COPY-INFO */
-static object LnkTLI102(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[102],(void **)&LnkLI102,2,first,ap);va_end(ap);return V1;} /* TYPE-AND */
-static object LnkTLI101(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[101],(void **)&LnkLI101,2,first,ap);va_end(ap);return V1;} /* ADD-INFO */
-static object LnkTLI100(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[100],(void **)&LnkLI100,1,first,ap);va_end(ap);return V1;} /* C1EXPR */
-static object LnkTLI99(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[99],(void **)&LnkLI99,2,first,ap);va_end(ap);return V1;} /* C1SETQ1 */
-static object LnkTLI98(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[98],(void **)&LnkLI98,3,first,ap);va_end(ap);return V1;} /* TOO-FEW-ARGS */
-static object LnkTLI97(){return call_proc0(VV[97],(void **)&LnkLI97);} /* C1NIL */
-static void LnkT96(){ call_or_link(VV[96],(void **)&Lnk96);} /* WT-LOC */
-static void LnkT95(){ call_or_link(VV[95],(void **)&Lnk95);} /* WT-SHORT-FLOAT-LOC */
-static void LnkT94(){ call_or_link(VV[94],(void **)&Lnk94);} /* WT-LONG-FLOAT-LOC */
-static void LnkT93(){ call_or_link(VV[93],(void **)&Lnk93);} /* WT-CHARACTER-LOC */
-static void LnkT92(){ call_or_link(VV[92],(void **)&Lnk92);} /* WT-FIXNUM-LOC */
-static object LnkTLI91(){return call_proc0(VV[91],(void **)&LnkLI91);} /* CLOSE-INLINE-BLOCKS */
-static void LnkT90(){ call_or_link(VV[90],(void **)&Lnk90);} /* WT-INTEGER-LOC */
-static void LnkT89(){ call_or_link(VV[89],(void **)&Lnk89);} /* SAVE-AVMA */
-static void LnkT87(){ call_or_link(VV[87],(void **)&Lnk87);} /* WT-INLINE-LOC */
-static object LnkTLI85(){return call_proc0(VV[85],(void **)&LnkLI85);} /* BABOON */
-static object LnkTLI84(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[84],(void **)&LnkLI84,1,first,ap);va_end(ap);return V1;} /* WT-DOWN */
-static object LnkTLI82(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[82],(void **)&LnkLI82,1,first,ap);va_end(ap);return V1;} /* WT-VS */
-static object LnkTLI81(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[81],(void **)&LnkLI81,1,first,ap);va_end(ap);return V1;} /* WT-VS* */
-static object LnkTLI80(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[80],(void **)&LnkLI80,1,first,ap);va_end(ap);return V1;} /* WT-CCB-VS */
-static object LnkTLI79(){return call_proc0(VV[79],(void **)&LnkLI79);} /* WFS-ERROR */
-static void LnkT78(){ call_or_link(VV[78],(void **)&Lnk78);} /* FIXNUMP */
-static object LnkTLI77(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[77],(void **)&LnkLI77,1,first,ap);va_end(ap);return V1;} /* WT1 */
-static object LnkTLI76(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[76],(void **)&LnkLI76,first,ap);va_end(ap);return V1;} /* UNWIND-EXIT */
-static object LnkTLI75(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[75],(void **)&LnkLI75,2,first,ap);va_end(ap);return V1;} /* TYPE>= */
-static object LnkTLI74(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[74],(void **)&LnkLI74,1,first,ap);va_end(ap);return V1;} /* UNDEFINED-VARIABLE */
-static object LnkTLI73(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[73],(void **)&LnkLI73,1,first,ap);va_end(ap);return V1;} /* SCH-GLOBAL */
-static object LnkTLI72(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[72],(void **)&LnkLI72,1,first,ap);va_end(ap);return V1;} /* C1VREF */
-static object LnkTLI71(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[71],(void **)&LnkLI71,first,ap);va_end(ap);return V1;} /* MAKE-INFO */
-static object LnkTLI70(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[70],(void **)&LnkLI70,first,ap);va_end(ap);return V1;} /* CMPWARN */
-static object LnkTLI68(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[68],(void **)&LnkLI68,1,first,ap);va_end(ap);return V1;} /* ADD-SYMBOL */
-static object LnkTLI67(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[67],(void **)&LnkLI67,first,ap);va_end(ap);return V1;} /* CMPERR */
-static object LnkTLI66(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[66],(void **)&LnkLI66,first,ap);va_end(ap);return V1;} /* MAKE-VAR */
+static object LnkTLI69(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[69],(void **)(void *)&LnkLI69,1,first,ap);va_end(ap);return V1;} /* REGISTER */
+static void LnkT114(){ call_or_link(VV[114],(void **)(void *)&Lnk114);} /* STRUCTURE-SUBTYPE-P */
+static object LnkTLI42(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[42],(void **)(void *)&LnkLI42,3,first,ap);va_end(ap);return V1;} /* SET-VAR */
+static object LnkTLI113(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[113],(void **)(void *)&LnkLI113,1,first,ap);va_end(ap);return V1;} /* REP-TYPE */
+static object LnkTLI112(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[112],(void **)(void *)&LnkLI112,2,first,ap);va_end(ap);return V1;} /* ARGS-INFO-REFERRED-VARS */
+static object LnkTLI111(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[111],(void **)(void *)&LnkLI111,2,first,ap);va_end(ap);return V1;} /* ARGS-INFO-CHANGED-VARS */
+static void LnkT110(){ call_or_link(VV[110],(void **)(void *)&Lnk110);} /* C2EXPR */
+static object LnkTLI109(){return call_proc0(VV[109],(void **)(void *)&LnkLI109);} /* VS-PUSH */
+static object LnkTLI108(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[108],(void **)(void *)&LnkLI108,2,first,ap);va_end(ap);return V1;} /* C1PROGN* */
+static object LnkTLI107(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[107],(void **)(void *)&LnkLI107,2,first,ap);va_end(ap);return V1;} /* C1EXPR* */
+static object LnkTLI106(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[106],(void **)(void *)&LnkLI106,1,first,ap);va_end(ap);return V1;} /* C2LOCATION */
+static object LnkTLI104(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[104],(void **)(void *)&LnkLI104,1,first,ap);va_end(ap);return V1;} /* C2EXPR* */
+static void LnkT103(){ call_or_link(VV[103],(void **)(void *)&Lnk103);} /* COPY-INFO */
+static object LnkTLI102(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[102],(void **)(void *)&LnkLI102,2,first,ap);va_end(ap);return V1;} /* TYPE-AND */
+static object LnkTLI101(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[101],(void **)(void *)&LnkLI101,2,first,ap);va_end(ap);return V1;} /* ADD-INFO */
+static object LnkTLI100(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[100],(void **)(void *)&LnkLI100,1,first,ap);va_end(ap);return V1;} /* C1EXPR */
+static object LnkTLI99(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[99],(void **)(void *)&LnkLI99,2,first,ap);va_end(ap);return V1;} /* C1SETQ1 */
+static object LnkTLI98(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[98],(void **)(void *)&LnkLI98,3,first,ap);va_end(ap);return V1;} /* TOO-FEW-ARGS */
+static object LnkTLI97(){return call_proc0(VV[97],(void **)(void *)&LnkLI97);} /* C1NIL */
+static void LnkT96(){ call_or_link(VV[96],(void **)(void *)&Lnk96);} /* WT-LOC */
+static void LnkT95(){ call_or_link(VV[95],(void **)(void *)&Lnk95);} /* WT-SHORT-FLOAT-LOC */
+static void LnkT94(){ call_or_link(VV[94],(void **)(void *)&Lnk94);} /* WT-LONG-FLOAT-LOC */
+static void LnkT93(){ call_or_link(VV[93],(void **)(void *)&Lnk93);} /* WT-CHARACTER-LOC */
+static void LnkT92(){ call_or_link(VV[92],(void **)(void *)&Lnk92);} /* WT-FIXNUM-LOC */
+static object LnkTLI91(){return call_proc0(VV[91],(void **)(void *)&LnkLI91);} /* CLOSE-INLINE-BLOCKS */
+static void LnkT90(){ call_or_link(VV[90],(void **)(void *)&Lnk90);} /* WT-INTEGER-LOC */
+static void LnkT89(){ call_or_link(VV[89],(void **)(void *)&Lnk89);} /* SAVE-AVMA */
+static void LnkT87(){ call_or_link(VV[87],(void **)(void *)&Lnk87);} /* WT-INLINE-LOC */
+static object LnkTLI85(){return call_proc0(VV[85],(void **)(void *)&LnkLI85);} /* BABOON */
+static object LnkTLI84(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[84],(void **)(void *)&LnkLI84,1,first,ap);va_end(ap);return V1;} /* WT-DOWN */
+static object LnkTLI82(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[82],(void **)(void *)&LnkLI82,1,first,ap);va_end(ap);return V1;} /* WT-VS */
+static object LnkTLI81(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[81],(void **)(void *)&LnkLI81,1,first,ap);va_end(ap);return V1;} /* WT-VS* */
+static object LnkTLI80(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[80],(void **)(void *)&LnkLI80,1,first,ap);va_end(ap);return V1;} /* WT-CCB-VS */
+static object LnkTLI79(){return call_proc0(VV[79],(void **)(void *)&LnkLI79);} /* WFS-ERROR */
+static void LnkT78(){ call_or_link(VV[78],(void **)(void *)&Lnk78);} /* FIXNUMP */
+static object LnkTLI77(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[77],(void **)(void *)&LnkLI77,1,first,ap);va_end(ap);return V1;} /* WT1 */
+static object LnkTLI76(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[76],(void **)(void *)&LnkLI76,first,ap);va_end(ap);return V1;} /* UNWIND-EXIT */
+static object LnkTLI75(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[75],(void **)(void *)&LnkLI75,2,first,ap);va_end(ap);return V1;} /* TYPE>= */
+static object LnkTLI74(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[74],(void **)(void *)&LnkLI74,1,first,ap);va_end(ap);return V1;} /* UNDEFINED-VARIABLE */
+static object LnkTLI73(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[73],(void **)(void *)&LnkLI73,1,first,ap);va_end(ap);return V1;} /* SCH-GLOBAL */
+static object LnkTLI72(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[72],(void **)(void *)&LnkLI72,1,first,ap);va_end(ap);return V1;} /* C1VREF */
+static object LnkTLI71(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[71],(void **)(void *)&LnkLI71,first,ap);va_end(ap);return V1;} /* MAKE-INFO */
+static object LnkTLI70(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[70],(void **)(void *)&LnkLI70,first,ap);va_end(ap);return V1;} /* CMPWARN */
+static object LnkTLI68(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[68],(void **)(void *)&LnkLI68,1,first,ap);va_end(ap);return V1;} /* ADD-SYMBOL */
+static object LnkTLI67(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[67],(void **)(void *)&LnkLI67,first,ap);va_end(ap);return V1;} /* CMPERR */
+static object LnkTLI66(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[66],(void **)(void *)&LnkLI66,first,ap);va_end(ap);return V1;} /* MAKE-VAR */
#ifdef SYSTEM_SPECIAL_INIT
SYSTEM_SPECIAL_INIT
diff --git a/gcl/cmpnew/cmpwt.c b/gcl/cmpnew/cmpwt.c
index 325b55e0d..c0327f5b5 100755
--- a/gcl/cmpnew/cmpwt.c
+++ b/gcl/cmpnew/cmpwt.c
@@ -776,19 +776,19 @@ T325:;
V106= car((V105));
goto T320;}
}
-static object LnkTLI55(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[55],(void **)&LnkLI55,first,ap);va_end(ap);return V1;} /* CONCATENATE */
-static void LnkT54(){ call_or_link(VV[54],(void **)&Lnk54);} /* CLOSE-FASD */
-static void LnkT53(){ call_or_link(VV[53],(void **)&Lnk53);} /* WRITE-FASD-TOP */
-static void LnkT52(){ call_or_link(VV[52],(void **)&Lnk52);} /* FIND-SHARING-TOP */
-static object LnkTLI51(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[51],(void **)&LnkLI51,1,first,ap);va_end(ap);return V1;} /* WT-DATA1 */
-static void LnkT50(){ call_or_link(VV[50],(void **)&Lnk50);} /* WT-FASD-DATA-FILE */
-static object LnkTLI49(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[49],(void **)&LnkLI49,2,first,ap);va_end(ap);return V1;} /* COERCE */
-static object LnkTLI48(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[48],(void **)&LnkLI48,1,first,ap);va_end(ap);return V1;} /* VERIFY-DATA-VECTOR */
-static object LnkTLI47(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[47],(void **)&LnkLI47,first,ap);va_end(ap);return V1;} /* CMPWARN */
-static void LnkT46(){ call_or_link(VV[46],(void **)&Lnk46);} /* HASH-EQUAL */
-static object LnkTLI45(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[45],(void **)&LnkLI45,first,ap);va_end(ap);return V1;} /* VECTOR-PUSH-EXTEND */
-static void LnkT44(){ call_or_link(VV[44],(void **)&Lnk44);} /* CMPILER-ERROR */
-static void LnkT43(){ call_or_link(VV[43],(void **)&Lnk43);} /* WT-LOC */
+static object LnkTLI55(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[55],(void **)(void *)&LnkLI55,first,ap);va_end(ap);return V1;} /* CONCATENATE */
+static void LnkT54(){ call_or_link(VV[54],(void **)(void *)&Lnk54);} /* CLOSE-FASD */
+static void LnkT53(){ call_or_link(VV[53],(void **)(void *)&Lnk53);} /* WRITE-FASD-TOP */
+static void LnkT52(){ call_or_link(VV[52],(void **)(void *)&Lnk52);} /* FIND-SHARING-TOP */
+static object LnkTLI51(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[51],(void **)(void *)&LnkLI51,1,first,ap);va_end(ap);return V1;} /* WT-DATA1 */
+static void LnkT50(){ call_or_link(VV[50],(void **)(void *)&Lnk50);} /* WT-FASD-DATA-FILE */
+static object LnkTLI49(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[49],(void **)(void *)&LnkLI49,2,first,ap);va_end(ap);return V1;} /* COERCE */
+static object LnkTLI48(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[48],(void **)(void *)&LnkLI48,1,first,ap);va_end(ap);return V1;} /* VERIFY-DATA-VECTOR */
+static object LnkTLI47(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[47],(void **)(void *)&LnkLI47,first,ap);va_end(ap);return V1;} /* CMPWARN */
+static void LnkT46(){ call_or_link(VV[46],(void **)(void *)&Lnk46);} /* HASH-EQUAL */
+static object LnkTLI45(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[45],(void **)(void *)&LnkLI45,first,ap);va_end(ap);return V1;} /* VECTOR-PUSH-EXTEND */
+static void LnkT44(){ call_or_link(VV[44],(void **)(void *)&Lnk44);} /* CMPILER-ERROR */
+static void LnkT43(){ call_or_link(VV[43],(void **)(void *)&Lnk43);} /* WT-LOC */
#ifdef SYSTEM_SPECIAL_INIT
SYSTEM_SPECIAL_INIT
diff --git a/gcl/lsp/assert.c b/gcl/lsp/assert.c
index b587bfe6c..32bd626e8 100755
--- a/gcl/lsp/assert.c
+++ b/gcl/lsp/assert.c
@@ -730,10 +730,10 @@ TTL:;
VMR11(V143)}}
return Cnil;
}
-static object LnkTLI58(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[58],(void **)&LnkLI58,1,first,ap);va_end(ap);return V1;} /* BOIN-P */
-static object LnkTLI57(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[57],(void **)&LnkLI57,first,ap);va_end(ap);return V1;} /* REMOVE */
-static object LnkTLI56(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[56],(void **)&LnkLI56,1,first,ap);va_end(ap);return V1;} /* TYPECASE-ERROR-STRINGS */
-static object LnkTLI53(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[53],(void **)&LnkLI53,1,first,ap);va_end(ap);return V1;} /* ASK-FOR-FORM */
+static object LnkTLI58(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[58],(void **)(void *)&LnkLI58,1,first,ap);va_end(ap);return V1;} /* BOIN-P */
+static object LnkTLI57(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[57],(void **)(void *)&LnkLI57,first,ap);va_end(ap);return V1;} /* REMOVE */
+static object LnkTLI56(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[56],(void **)(void *)&LnkLI56,1,first,ap);va_end(ap);return V1;} /* TYPECASE-ERROR-STRINGS */
+static object LnkTLI53(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[53],(void **)(void *)&LnkLI53,1,first,ap);va_end(ap);return V1;} /* ASK-FOR-FORM */
#ifdef SYSTEM_SPECIAL_INIT
SYSTEM_SPECIAL_INIT
diff --git a/gcl/lsp/defmacro.c b/gcl/lsp/defmacro.c
index aba3fe81f..ec426ea52 100755
--- a/gcl/lsp/defmacro.c
+++ b/gcl/lsp/defmacro.c
@@ -1030,14 +1030,14 @@ T465:;
return;}
}
}
-static void LnkT60(){ call_or_link(VV[60],(void **)&Lnk60);} /* FIND-DECLARATIONS */
-static object LnkTLI59(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[59],(void **)&LnkLI59,2,first,ap);va_end(ap);return V1;} /* DM-NTH */
-static object LnkTLI58(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[58],(void **)&LnkLI58,2,first,ap);va_end(ap);return V1;} /* DM-V */
-static object LnkTLI57(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[57],(void **)&LnkLI57,1,first,ap);va_end(ap);return V1;} /* DM-BAD-KEY */
-static object LnkTLI56(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[56],(void **)&LnkLI56,2,first,ap);va_end(ap);return V1;} /* DM-NTH-CDR */
-static object LnkTLI55(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[55],(void **)&LnkLI55,3,first,ap);va_end(ap);return V1;} /* DM-VL */
-static void LnkT54(){ call_or_link(VV[54],(void **)&Lnk54);} /* GET-&ENVIRONMENT */
-static void LnkT53(){ call_or_link(VV[53],(void **)&Lnk53);} /* FIND-DOC */
+static void LnkT60(){ call_or_link(VV[60],(void **)(void *)&Lnk60);} /* FIND-DECLARATIONS */
+static object LnkTLI59(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[59],(void **)(void *)&LnkLI59,2,first,ap);va_end(ap);return V1;} /* DM-NTH */
+static object LnkTLI58(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[58],(void **)(void *)&LnkLI58,2,first,ap);va_end(ap);return V1;} /* DM-V */
+static object LnkTLI57(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[57],(void **)(void *)&LnkLI57,1,first,ap);va_end(ap);return V1;} /* DM-BAD-KEY */
+static object LnkTLI56(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[56],(void **)(void *)&LnkLI56,2,first,ap);va_end(ap);return V1;} /* DM-NTH-CDR */
+static object LnkTLI55(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[55],(void **)(void *)&LnkLI55,3,first,ap);va_end(ap);return V1;} /* DM-VL */
+static void LnkT54(){ call_or_link(VV[54],(void **)(void *)&Lnk54);} /* GET-&ENVIRONMENT */
+static void LnkT53(){ call_or_link(VV[53],(void **)(void *)&Lnk53);} /* FIND-DOC */
#ifdef SYSTEM_SPECIAL_INIT
SYSTEM_SPECIAL_INIT
diff --git a/gcl/lsp/evalmacros.c b/gcl/lsp/evalmacros.c
index cfb75f9d4..f3097a87b 100755
--- a/gcl/lsp/evalmacros.c
+++ b/gcl/lsp/evalmacros.c
@@ -1095,7 +1095,7 @@ static void L28()
vs_top=(vs_base=base+3)+1;
return;
}
-static void LnkT46(){ call_or_link(VV[46],(void **)&Lnk46);} /* FIND-DOC */
+static void LnkT46(){ call_or_link(VV[46],(void **)(void *)&Lnk46);} /* FIND-DOC */
#ifdef SYSTEM_SPECIAL_INIT
SYSTEM_SPECIAL_INIT
diff --git a/gcl/lsp/listlib.c b/gcl/lsp/listlib.c
index 86744a010..141a87c68 100755
--- a/gcl/lsp/listlib.c
+++ b/gcl/lsp/listlib.c
@@ -59,7 +59,7 @@ static object LI2(object V12,object V11,object first,...)
V14= V11;
narg= narg - 2;
{
- parse_key_new_new(narg,Vcs +2,(struct key *)&LI2key,first,ap);
+ parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI2key,first,ap);
V15=(Vcs[2]);
V16=(Vcs[3]);
V17=(Vcs[4]);
@@ -150,7 +150,7 @@ static object LI3(object V26,object V25,object first,...)
V28= V25;
narg= narg - 2;
{
- parse_key_new_new(narg,Vcs +2,(struct key *)&LI3key,first,ap);
+ parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI3key,first,ap);
V29=(Vcs[2]);
V30=(Vcs[3]);
V31=(Vcs[4]);
@@ -241,7 +241,7 @@ static object LI4(object V39,object V38,object first,...)
V41= V38;
narg= narg - 2;
{
- parse_key_new_new(narg,Vcs +2,(struct key *)&LI4key,first,ap);
+ parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI4key,first,ap);
V42=(Vcs[2]);
V43=(Vcs[3]);
V44=(Vcs[4]);
@@ -313,7 +313,7 @@ static object LI5(object V50,object V49,object first,...)
V52= V49;
narg= narg - 2;
{
- parse_key_new_new(narg,Vcs +2,(struct key *)&LI5key,first,ap);
+ parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI5key,first,ap);
V53=(Vcs[2]);
V54=(Vcs[3]);
V55=(Vcs[4]);
@@ -401,7 +401,7 @@ static object LI6(object V62,object V61,object first,...)
V64= V61;
narg= narg - 2;
{
- parse_key_new_new(narg,Vcs +2,(struct key *)&LI6key,first,ap);
+ parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI6key,first,ap);
V65=(Vcs[2]);
V66=(Vcs[3]);
V67=(Vcs[4]);
@@ -543,7 +543,7 @@ static object LI8(object V81,object V80,object first,...)
V83= V80;
narg= narg - 2;
{
- parse_key_new_new(narg,Vcs +2,(struct key *)&LI8key,first,ap);
+ parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI8key,first,ap);
V84=(Vcs[2]);
V85=(Vcs[3]);
V86=(Vcs[4]);
@@ -717,7 +717,7 @@ static object LI10(object V102,object V101,object first,...)
V104= V101;
narg= narg - 2;
{
- parse_key_new_new(narg,Vcs +2,(struct key *)&LI10key,first,ap);
+ parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI10key,first,ap);
V105=(Vcs[2]);
V106=(Vcs[3]);
V107=(Vcs[4]);
@@ -778,7 +778,7 @@ static object LI11(object V114,object V113,object first,...)
V116= V113;
narg= narg - 2;
{
- parse_key_new_new(narg,Vcs +2,(struct key *)&LI11key,first,ap);
+ parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI11key,first,ap);
V117=(Vcs[2]);
V118=(Vcs[3]);
V119=(Vcs[4]);
@@ -923,7 +923,7 @@ static object LI12(object V132,object V131,object first,...)
V134= V131;
narg= narg - 2;
{
- parse_key_new_new(narg,Vcs +2,(struct key *)&LI12key,first,ap);
+ parse_key_new_new(narg,Vcs +2,(struct key *)(void *)&LI12key,first,ap);
V135=(Vcs[2]);
V136=(Vcs[3]);
V137=(Vcs[4]);
@@ -977,11 +977,11 @@ T346:;
base[0]=base[0];
return Cnil;}
}}
-static void LnkT18(){ call_or_link(VV[18],(void **)&Lnk18);} /* NSET-DIFFERENCE-REV */
-static void LnkT17(){ call_or_link(VV[17],(void **)&Lnk17);} /* SET-DIFFERENCE-REV */
-static void LnkT16(){ call_or_link(VV[16],(void **)&Lnk16);} /* SET-DIFFERENCE */
-static void LnkT14(){ call_or_link(VV[14],(void **)&Lnk14);} /* MEMBER1 */
-static void LnkT15(){ call_or_link(VV[15],(void **)&Lnk15);} /* KEY-LIST */
+static void LnkT18(){ call_or_link(VV[18],(void **)(void *)&Lnk18);} /* NSET-DIFFERENCE-REV */
+static void LnkT17(){ call_or_link(VV[17],(void **)(void *)&Lnk17);} /* SET-DIFFERENCE-REV */
+static void LnkT16(){ call_or_link(VV[16],(void **)(void *)&Lnk16);} /* SET-DIFFERENCE */
+static void LnkT14(){ call_or_link(VV[14],(void **)(void *)&Lnk14);} /* MEMBER1 */
+static void LnkT15(){ call_or_link(VV[15],(void **)(void *)&Lnk15);} /* KEY-LIST */
#ifdef SYSTEM_SPECIAL_INIT
SYSTEM_SPECIAL_INIT
diff --git a/gcl/lsp/numlib.c b/gcl/lsp/numlib.c
index c5d0b2716..b3772219a 100755
--- a/gcl/lsp/numlib.c
+++ b/gcl/lsp/numlib.c
@@ -1223,17 +1223,17 @@ TTL:;
base[0]=base[0];
return Cnil;
}
-static object LnkTLI23(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[23],(void **)&LnkLI23,3,first,ap);va_end(ap);return V1;} /* DPB */
-static object LnkTLI22(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[22],(void **)&LnkLI22,2,first,ap);va_end(ap);return V1;} /* MASK-FIELD */
-static object LnkTLI21(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[21],(void **)&LnkLI21,2,first,ap);va_end(ap);return V1;} /* LDB */
-static object LnkTLI20(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[20],(void **)&LnkLI20,1,first,ap);va_end(ap);return V1;} /* BYTE-SIZE */
-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;} /* BYTE-POSITION */
-static object LnkTLI18(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[18],(void **)&LnkLI18,2,first,ap);va_end(ap);return V1;} /* LOGANDC2 */
-static object LnkTLI17(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[17],(void **)&LnkLI17,3,first,ap);va_end(ap);return V1;} /* TYPECASE-ERROR-STRING */
-static void LnkT16(){ call_or_link(VV[16],(void **)&Lnk16);} /* RATIONALP */
-static object LnkTLI15(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[15],(void **)&LnkLI15,1,first,ap);va_end(ap);return V1;} /* COSH */
-static object LnkTLI14(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[14],(void **)&LnkLI14,1,first,ap);va_end(ap);return V1;} /* SINH */
-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;} /* ABS */
+static object LnkTLI23(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[23],(void **)(void *)&LnkLI23,3,first,ap);va_end(ap);return V1;} /* DPB */
+static object LnkTLI22(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[22],(void **)(void *)&LnkLI22,2,first,ap);va_end(ap);return V1;} /* MASK-FIELD */
+static object LnkTLI21(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[21],(void **)(void *)&LnkLI21,2,first,ap);va_end(ap);return V1;} /* LDB */
+static object LnkTLI20(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[20],(void **)(void *)&LnkLI20,1,first,ap);va_end(ap);return V1;} /* BYTE-SIZE */
+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;} /* BYTE-POSITION */
+static object LnkTLI18(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[18],(void **)(void *)&LnkLI18,2,first,ap);va_end(ap);return V1;} /* LOGANDC2 */
+static object LnkTLI17(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[17],(void **)(void *)&LnkLI17,3,first,ap);va_end(ap);return V1;} /* TYPECASE-ERROR-STRING */
+static void LnkT16(){ call_or_link(VV[16],(void **)(void *)&Lnk16);} /* RATIONALP */
+static object LnkTLI15(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[15],(void **)(void *)&LnkLI15,1,first,ap);va_end(ap);return V1;} /* COSH */
+static object LnkTLI14(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[14],(void **)(void *)&LnkLI14,1,first,ap);va_end(ap);return V1;} /* SINH */
+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;} /* ABS */
#ifdef SYSTEM_SPECIAL_INIT
SYSTEM_SPECIAL_INIT
diff --git a/gcl/lsp/trace.c b/gcl/lsp/trace.c
index 17424dd74..411e60af7 100755
--- a/gcl/lsp/trace.c
+++ b/gcl/lsp/trace.c
@@ -1471,19 +1471,19 @@ register object *base0;
return;
}
}
-static void LnkT114(){ call_or_link(VV[114],(void **)&Lnk114);} /* SIMPLE-BACKTRACE */
-static void LnkT113(){ call_or_link(VV[113],(void **)&Lnk113);} /* IHS-TOP */
-static void LnkT112(){ call_or_link(VV[112],(void **)&Lnk112);} /* READ-PRESERVING-WHITESPACE */
-static object LnkTLI111(){return call_proc0(VV[111],(void **)&LnkLI111);} /* STEP-READ-LINE */
-static void LnkT60(){ call_or_link(VV[60],(void **)&Lnk60);} /* STEPPER */
-static object LnkTLI110(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[110],(void **)&LnkLI110,first,ap);va_end(ap);return V1;} /* DELETE-IF */
-static object LnkTLI109(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[109],(void **)&LnkLI109,1,first,ap);va_end(ap);return V1;} /* RESET-TRACE-DECLARATIONS */
-static object LnkTLI108(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[108],(void **)&LnkLI108,1,first,ap);va_end(ap);return V1;} /* TRACE-ONE-PREPROCESS */
-static object LnkTLI107(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[107],(void **)&LnkLI107,1,first,ap);va_end(ap);return V1;} /* CHECK-TRACE-SPEC */
-static object LnkTLI106(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[106],(void **)&LnkLI106,1,first,ap);va_end(ap);return V1;} /* UNTRACE-ONE */
-static object LnkTLI105(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[105],(void **)&LnkLI105,1,first,ap);va_end(ap);return V1;} /* CHECK-DECLARATIONS */
-static object LnkTLI104(){return call_proc0(VV[104],(void **)&LnkLI104);} /* ALL-TRACE-DECLARATIONS */
-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;} /* CHECK-TRACE-ARGS */
+static void LnkT114(){ call_or_link(VV[114],(void **)(void *)&Lnk114);} /* SIMPLE-BACKTRACE */
+static void LnkT113(){ call_or_link(VV[113],(void **)(void *)&Lnk113);} /* IHS-TOP */
+static void LnkT112(){ call_or_link(VV[112],(void **)(void *)&Lnk112);} /* READ-PRESERVING-WHITESPACE */
+static object LnkTLI111(){return call_proc0(VV[111],(void **)(void *)&LnkLI111);} /* STEP-READ-LINE */
+static void LnkT60(){ call_or_link(VV[60],(void **)(void *)&Lnk60);} /* STEPPER */
+static object LnkTLI110(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[110],(void **)(void *)&LnkLI110,first,ap);va_end(ap);return V1;} /* DELETE-IF */
+static object LnkTLI109(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[109],(void **)(void *)&LnkLI109,1,first,ap);va_end(ap);return V1;} /* RESET-TRACE-DECLARATIONS */
+static object LnkTLI108(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[108],(void **)(void *)&LnkLI108,1,first,ap);va_end(ap);return V1;} /* TRACE-ONE-PREPROCESS */
+static object LnkTLI107(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[107],(void **)(void *)&LnkLI107,1,first,ap);va_end(ap);return V1;} /* CHECK-TRACE-SPEC */
+static object LnkTLI106(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[106],(void **)(void *)&LnkLI106,1,first,ap);va_end(ap);return V1;} /* UNTRACE-ONE */
+static object LnkTLI105(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[105],(void **)(void *)&LnkLI105,1,first,ap);va_end(ap);return V1;} /* CHECK-DECLARATIONS */
+static object LnkTLI104(){return call_proc0(VV[104],(void **)(void *)&LnkLI104);} /* ALL-TRACE-DECLARATIONS */
+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;} /* CHECK-TRACE-ARGS */
#ifdef SYSTEM_SPECIAL_INIT
SYSTEM_SPECIAL_INIT
diff --git a/gcl/o/num_log.c b/gcl/o/num_log.c
index 4c0e6f058..15af51736 100755
--- a/gcl/o/num_log.c
+++ b/gcl/o/num_log.c
@@ -685,8 +685,9 @@ siLbit_array_op(void)
for (b1=b,i=0;i<x->a.a_rank;i++,b1=b1->c.c_cdr) {
b1->d.t=(int)t_cons;
b1->d.m=FALSE;
- b1->c.c_car=x->a.a_dims[i]<SMALL_FIXNUM_LIMIT ?
- small_fixnum(x->a.a_dims[i]) :
+ b1->c.c_car=/* x->a.a_dims[i]<SMALL_FIXNUM_LIMIT ? */
+ /* small_fixnum(x->a.a_dims[i]) : */
+ /* now done in a macro */
make_fixnum(x->a.a_dims[i]);
b1->c.c_cdr=i<x->a.a_rank-1 ? (object)++p : Cnil;
}
diff --git a/gcl/o/number.c b/gcl/o/number.c
index 5d726c484..5b85021e0 100755
--- a/gcl/o/number.c
+++ b/gcl/o/number.c
@@ -47,6 +47,13 @@ fixnnint(object x)
FEerror("~S is not a non-negative fixnum.", 1, x);
return(fix(x));
}
+#if 0
+object small_fixnum ( int i ) {
+#include <assert.h>
+ assert ( ( -SMALL_FIXNUM_LIMIT <= i ) && ( i < SMALL_FIXNUM_LIMIT ) );
+ (object) small_fixnum_table + SMALL_FIXNUM_LIMIT + i;
+}
+#endif
#define BIGGER_FIXNUM_RANGE
diff --git a/gcl/o/structure.c b/gcl/o/structure.c
index 81f1c026d..19002a5be 100755
--- a/gcl/o/structure.c
+++ b/gcl/o/structure.c
@@ -75,7 +75,7 @@ structure_ref(object x, object name, int i)
case aet_sf: return(make_shortfloat(STREF(shortfloat,x,s_pos[i])));
case aet_lf: return(make_longfloat(STREF(longfloat,x,s_pos[i])));
case aet_uchar: return(small_fixnum(STREF(unsigned char,x,s_pos[i])));
- case aet_ushort: return(small_fixnum(STREF(unsigned short,x,s_pos[i])));
+ case aet_ushort: return(make_fixnum(STREF(unsigned short,x,s_pos[i])));
case aet_short: return(make_fixnum(STREF(short,x,s_pos[i])));
default:
bad_raw_type();
generated by cgit v1.2.3 (git 2.25.1) at 2025年09月01日 23:52:21 +0000

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