* 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} - gcl.git - GNU Common Lisp

GNU Common Lisp

diff options

author	Camm Maguire <camm@debian.org>	2003年07月16日 02:02:59 +0000
committer	Camm Maguire <camm@debian.org>	2003年07月16日 02:02:59 +0000
commit	845edea1145ddffbc6a0e307a1d6f349281e33e0 (patch)
tree	ca4398ed5d07d8712616b5c3a90312469385e4d4
parent	233c0c776bd7987482141d3c98b7edc3d94b41ed (diff)
download	gcl-unlabeled-1.3.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.3.4

Diffstat

-rw-r--r--

gcl/clcs/clcs_condition_definitions.c

124

-rw-r--r--

gcl/clcs/clcs_conditions.c

249

-rw-r--r--

gcl/clcs/clcs_conditions.data

-rw-r--r--

gcl/clcs/clcs_debugger.c

-rw-r--r--

gcl/clcs/clcs_handler.c

-rw-r--r--

gcl/clcs/clcs_install.c

-rw-r--r--

gcl/clcs/clcs_kcl_cond.c

-rw-r--r--

gcl/clcs/clcs_restart.c

-rw-r--r--

gcl/clcs/clcs_top_patches.c

-rwxr-xr-x

gcl/config.guess

298

-rwxr-xr-x

gcl/config.sub

167

-rwxr-xr-x

gcl/o/sequence.d

-rwxr-xr-x

gcl/o/usig2_aux.c

13 files changed, 603 insertions, 475 deletions

diff --git a/gcl/clcs/clcs_condition_definitions.c b/gcl/clcs/clcs_condition_definitions.c
index 5db73b1ca..074cf787b 100644
--- a/gcl/clcs/clcs_condition_definitions.c
+++ b/gcl/clcs/clcs_condition_definitions.c

@@ -5445,68 +5445,68 @@ T1539:;{object V450;

base[0]=base[0];

return Cnil;

}

-static void LnkT332(ptr) object *ptr;{ call_or_link_closure(VV[332],(void **)&Lnk332,(void **)&Lclptr332);} /* CLASS-PRECEDENCE-LIST */

-static void LnkT331(){ call_or_link(VV[331],(void **)&Lnk331);} /* TYPEP */

-static void LnkT330(){ call_or_link(VV[330],(void **)&Lnk330);} /* FIND-CLASS */

-static void LnkT329(){ call_or_link(VV[329],(void **)&Lnk329);} /* *MAKE-SPECIAL */

-static void LnkT328(){ call_or_link(VV[328],(void **)&Lnk328);} /* Defclass INTERNAL-SIMPLE-STREAM-ERROR7687 */

-static void LnkT327(){ call_or_link(VV[327],(void **)&Lnk327);} /* Defclass INTERNAL-SIMPLE-FILE-ERROR7598 */

-static void LnkT326(){ call_or_link(VV[326],(void **)&Lnk326);} /* Defclass INTERNAL-END-OF-FILE7509 */

-static void LnkT325(){ call_or_link(VV[325],(void **)&Lnk325);} /* Defclass INTERNAL-UNDEFINED-FUNCTION7420 */

-static void LnkT324(){ call_or_link(VV[324],(void **)&Lnk324);} /* Defclass INTERNAL-UNBOUND-VARIABLE7331 */

-static void LnkT323(){ call_or_link(VV[323],(void **)&Lnk323);} /* Defclass INTERNAL-SIMPLE-CONTROL-ERROR7242 */

-static void LnkT322(){ call_or_link(VV[322],(void **)&Lnk322);} /* Defclass INTERNAL-SIMPLE-PROGRAM-ERROR7153 */

-static void LnkT321(){ call_or_link(VV[321],(void **)&Lnk321);} /* Defclass INTERNAL-PACKAGE-ERROR7064 */

-static void LnkT320(){ call_or_link(VV[320],(void **)&Lnk320);} /* Defclass INTERNAL-TYPE-ERROR6975 */

-static object LnkTLI318(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[318],(void **)&LnkLI318,2,first,ap);va_end(ap);return V1;} /* INTERNAL-SIMPLE-ERROR-PRINTER */

-static void LnkT317(){ call_or_link(VV[317],(void **)&Lnk317);} /* Defclass INTERNAL-SIMPLE-ERROR6681 */

-static void LnkT315(ptr) object *ptr;{ call_or_link_closure(VV[315],(void **)&Lnk315,(void **)&Lclptr315);} /* INTERNAL-ERROR-FUNCTION-NAME */

-static void LnkT314(){ call_or_link(VV[314],(void **)&Lnk314);} /* Defclass INTERNAL-ERROR6254 */

-static void LnkT312(){ call_or_link(VV[312],(void **)&Lnk312);} /* Defclass ABORT-FAILURE5952 */

-static void LnkT311(){ call_or_link(VV[311],(void **)&Lnk311);} /* Defclass FLOATING-POINT-UNDERFLOW5863 */

-static void LnkT310(){ call_or_link(VV[310],(void **)&Lnk310);} /* Defclass FLOATING-POINT-OVERFLOW5774 */

-static void LnkT309(){ call_or_link(VV[309],(void **)&Lnk309);} /* Defclass DIVISION-BY-ZERO5685 */

-static void LnkT308(){ call_or_link(VV[308],(void **)&Lnk308);} /* Defclass ARITHMETIC-ERROR5595 */

-static void LnkT306(){ call_or_link(VV[306],(void **)&Lnk306);} /* Defclass UNDEFINED-FUNCTION5297 */

-static void LnkT304(ptr) object *ptr;{ call_or_link_closure(VV[304],(void **)&Lnk304,(void **)&Lclptr304);} /* CELL-ERROR-NAME */

-static void LnkT303(){ call_or_link(VV[303],(void **)&Lnk303);} /* Defclass UNBOUND-VARIABLE4999 */

-static void LnkT302(){ call_or_link(VV[302],(void **)&Lnk302);} /* Defclass CELL-ERROR4909 */

-static void LnkT300(ptr) object *ptr;{ call_or_link_closure(VV[300],(void **)&Lnk300,(void **)&Lclptr300);} /* PACKAGE-ERROR-MESSAGE */

-static void LnkT299(ptr) object *ptr;{ call_or_link_closure(VV[299],(void **)&Lnk299,(void **)&Lclptr299);} /* PACKAGE-ERROR-PACKAGE */

-static void LnkT298(){ call_or_link(VV[298],(void **)&Lnk298);} /* Defclass PACKAGE-ERROR4609 */

-static void LnkT297(){ call_or_link(VV[297],(void **)&Lnk297);} /* Defclass FILE-ERROR4519 */

-static void LnkT295(ptr) object *ptr;{ call_or_link_closure(VV[295],(void **)&Lnk295,(void **)&Lclptr295);} /* STREAM-ERROR-STREAM */

-static void LnkT294(){ call_or_link(VV[294],(void **)&Lnk294);} /* Defclass END-OF-FILE4221 */

-static void LnkT293(){ call_or_link(VV[293],(void **)&Lnk293);} /* Defclass STREAM-ERROR4131 */

-static void LnkT292(){ call_or_link(VV[292],(void **)&Lnk292);} /* Defclass CONTROL-ERROR4042 */

-static void LnkT291(){ call_or_link(VV[291],(void **)&Lnk291);} /* Defclass PROGRAM-ERROR3953 */

-static void LnkT289(ptr) object *ptr;{ call_or_link_closure(VV[289],(void **)&Lnk289,(void **)&Lclptr289);} /* CASE-FAILURE-POSSIBILITIES */

-static void LnkT288(ptr) object *ptr;{ call_or_link_closure(VV[288],(void **)&Lnk288,(void **)&Lclptr288);} /* CASE-FAILURE-NAME */

-static void LnkT287(){ call_or_link(VV[287],(void **)&Lnk287);} /* Defclass CASE-FAILURE3653 */

-static void LnkT286(){ call_or_link(VV[286],(void **)&Lnk286);} /* Defclass SIMPLE-TYPE-ERROR3564 */

-static void LnkT284(ptr) object *ptr;{ call_or_link_closure(VV[284],(void **)&Lnk284,(void **)&Lclptr284);} /* TYPE-ERROR-EXPECTED-TYPE */

-static void LnkT283(ptr) object *ptr;{ call_or_link_closure(VV[283],(void **)&Lnk283,(void **)&Lclptr283);} /* TYPE-ERROR-DATUM */

-static void LnkT282(){ call_or_link(VV[282],(void **)&Lnk282);} /* Defclass TYPE-ERROR3264 */

-static void LnkT281(){ call_or_link(VV[281],(void **)&Lnk281);} /* Defclass STORAGE-EXHAUSTED3175 */

-static void LnkT280(){ call_or_link(VV[280],(void **)&Lnk280);} /* Defclass STACK-OVERFLOW3086 */

-static void LnkT279(){ call_or_link(VV[279],(void **)&Lnk279);} /* Defclass STORAGE-CONDITION2997 */

-static void LnkT278(){ call_or_link(VV[278],(void **)&Lnk278);} /* Defclass SIMPLE-ERROR2908 */

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

-static void LnkT276(){ call_or_link(VV[276],(void **)&Lnk276);} /* LOAD-DEFMETHOD */

-static object LnkTLI274(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[274],(void **)&LnkLI274,2,first,ap);va_end(ap);return V1;} /* SIMPLE-CONDITION-PRINTER */

-static void LnkT273(){ call_or_link(VV[273],(void **)&Lnk273);} /* ERROR */

-static void LnkT13(){ call_or_link(VV[13],(void **)&Lnk13);} /* ERROR */

-static void LnkT272(){ call_or_link(VV[272],(void **)&Lnk272);} /* CCLOSURE-ENV-NTHCDR */

-static void LnkT271(){ call_or_link(VV[271],(void **)&Lnk271);} /* STRUCTURE-DEF */

-static void LnkT270(){ call_or_link(VV[270],(void **)&Lnk270);} /* STRUCTURE-SUBTYPE-P */

-static void LnkT269(){ call_or_link(VV[269],(void **)&Lnk269);} /* PROCLAIM-DEFGENERIC */

-static void LnkT268(){ call_or_link(VV[268],(void **)&Lnk268);} /* Defclass SIMPLE-CONDITION2523 */

-static void LnkT266(ptr) object *ptr;{ call_or_link_closure(VV[266],(void **)&Lnk266,(void **)&Lclptr266);} /* SIMPLE-CONDITION-FORMAT-ARGUMENTS */

-static void LnkT265(ptr) object *ptr;{ call_or_link_closure(VV[265],(void **)&Lnk265,(void **)&Lclptr265);} /* SIMPLE-CONDITION-FORMAT-STRING */

-static void LnkT264(){ call_or_link(VV[264],(void **)&Lnk264);} /* Defclass ERROR2426 */

-static void LnkT263(){ call_or_link(VV[263],(void **)&Lnk263);} /* Defclass SERIOUS-CONDITION2337 */

-static void LnkT262(){ call_or_link(VV[262],(void **)&Lnk262);} /* Defclass WARNING2248 */

-static void LnkT260(){ call_or_link(VV[260],(void **)&Lnk260);} /* REMOVE */

+static void LnkT332(ptr) object *ptr;{ call_or_link_closure(VV[332],(void **)(void *)&Lnk332,(void **)(void *)&Lclptr332);} /* CLASS-PRECEDENCE-LIST */

+static void LnkT331(){ call_or_link(VV[331],(void **)(void *)&Lnk331);} /* TYPEP */

+static void LnkT330(){ call_or_link(VV[330],(void **)(void *)&Lnk330);} /* FIND-CLASS */

+static void LnkT329(){ call_or_link(VV[329],(void **)(void *)&Lnk329);} /* *MAKE-SPECIAL */

+static void LnkT328(){ call_or_link(VV[328],(void **)(void *)&Lnk328);} /* Defclass INTERNAL-SIMPLE-STREAM-ERROR7687 */

+static void LnkT327(){ call_or_link(VV[327],(void **)(void *)&Lnk327);} /* Defclass INTERNAL-SIMPLE-FILE-ERROR7598 */

+static void LnkT326(){ call_or_link(VV[326],(void **)(void *)&Lnk326);} /* Defclass INTERNAL-END-OF-FILE7509 */

+static void LnkT325(){ call_or_link(VV[325],(void **)(void *)&Lnk325);} /* Defclass INTERNAL-UNDEFINED-FUNCTION7420 */

+static void LnkT324(){ call_or_link(VV[324],(void **)(void *)&Lnk324);} /* Defclass INTERNAL-UNBOUND-VARIABLE7331 */

+static void LnkT323(){ call_or_link(VV[323],(void **)(void *)&Lnk323);} /* Defclass INTERNAL-SIMPLE-CONTROL-ERROR7242 */

+static void LnkT322(){ call_or_link(VV[322],(void **)(void *)&Lnk322);} /* Defclass INTERNAL-SIMPLE-PROGRAM-ERROR7153 */

+static void LnkT321(){ call_or_link(VV[321],(void **)(void *)&Lnk321);} /* Defclass INTERNAL-PACKAGE-ERROR7064 */

+static void LnkT320(){ call_or_link(VV[320],(void **)(void *)&Lnk320);} /* Defclass INTERNAL-TYPE-ERROR6975 */

+static object LnkTLI318(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[318],(void **)(void *)&LnkLI318,2,first,ap);va_end(ap);return V1;} /* INTERNAL-SIMPLE-ERROR-PRINTER */

+static void LnkT317(){ call_or_link(VV[317],(void **)(void *)&Lnk317);} /* Defclass INTERNAL-SIMPLE-ERROR6681 */

+static void LnkT315(ptr) object *ptr;{ call_or_link_closure(VV[315],(void **)(void *)&Lnk315,(void **)(void *)&Lclptr315);} /* INTERNAL-ERROR-FUNCTION-NAME */

+static void LnkT314(){ call_or_link(VV[314],(void **)(void *)&Lnk314);} /* Defclass INTERNAL-ERROR6254 */

+static void LnkT312(){ call_or_link(VV[312],(void **)(void *)&Lnk312);} /* Defclass ABORT-FAILURE5952 */

+static void LnkT311(){ call_or_link(VV[311],(void **)(void *)&Lnk311);} /* Defclass FLOATING-POINT-UNDERFLOW5863 */

+static void LnkT310(){ call_or_link(VV[310],(void **)(void *)&Lnk310);} /* Defclass FLOATING-POINT-OVERFLOW5774 */

+static void LnkT309(){ call_or_link(VV[309],(void **)(void *)&Lnk309);} /* Defclass DIVISION-BY-ZERO5685 */

+static void LnkT308(){ call_or_link(VV[308],(void **)(void *)&Lnk308);} /* Defclass ARITHMETIC-ERROR5595 */

+static void LnkT306(){ call_or_link(VV[306],(void **)(void *)&Lnk306);} /* Defclass UNDEFINED-FUNCTION5297 */

+static void LnkT304(ptr) object *ptr;{ call_or_link_closure(VV[304],(void **)(void *)&Lnk304,(void **)(void *)&Lclptr304);} /* CELL-ERROR-NAME */

+static void LnkT303(){ call_or_link(VV[303],(void **)(void *)&Lnk303);} /* Defclass UNBOUND-VARIABLE4999 */

+static void LnkT302(){ call_or_link(VV[302],(void **)(void *)&Lnk302);} /* Defclass CELL-ERROR4909 */

+static void LnkT300(ptr) object *ptr;{ call_or_link_closure(VV[300],(void **)(void *)&Lnk300,(void **)(void *)&Lclptr300);} /* PACKAGE-ERROR-MESSAGE */

+static void LnkT299(ptr) object *ptr;{ call_or_link_closure(VV[299],(void **)(void *)&Lnk299,(void **)(void *)&Lclptr299);} /* PACKAGE-ERROR-PACKAGE */

+static void LnkT298(){ call_or_link(VV[298],(void **)(void *)&Lnk298);} /* Defclass PACKAGE-ERROR4609 */

+static void LnkT297(){ call_or_link(VV[297],(void **)(void *)&Lnk297);} /* Defclass FILE-ERROR4519 */

+static void LnkT295(ptr) object *ptr;{ call_or_link_closure(VV[295],(void **)(void *)&Lnk295,(void **)(void *)&Lclptr295);} /* STREAM-ERROR-STREAM */

+static void LnkT294(){ call_or_link(VV[294],(void **)(void *)&Lnk294);} /* Defclass END-OF-FILE4221 */

+static void LnkT293(){ call_or_link(VV[293],(void **)(void *)&Lnk293);} /* Defclass STREAM-ERROR4131 */

+static void LnkT292(){ call_or_link(VV[292],(void **)(void *)&Lnk292);} /* Defclass CONTROL-ERROR4042 */

+static void LnkT291(){ call_or_link(VV[291],(void **)(void *)&Lnk291);} /* Defclass PROGRAM-ERROR3953 */

+static void LnkT289(ptr) object *ptr;{ call_or_link_closure(VV[289],(void **)(void *)&Lnk289,(void **)(void *)&Lclptr289);} /* CASE-FAILURE-POSSIBILITIES */

+static void LnkT288(ptr) object *ptr;{ call_or_link_closure(VV[288],(void **)(void *)&Lnk288,(void **)(void *)&Lclptr288);} /* CASE-FAILURE-NAME */

+static void LnkT287(){ call_or_link(VV[287],(void **)(void *)&Lnk287);} /* Defclass CASE-FAILURE3653 */

+static void LnkT286(){ call_or_link(VV[286],(void **)(void *)&Lnk286);} /* Defclass SIMPLE-TYPE-ERROR3564 */

+static void LnkT284(ptr) object *ptr;{ call_or_link_closure(VV[284],(void **)(void *)&Lnk284,(void **)(void *)&Lclptr284);} /* TYPE-ERROR-EXPECTED-TYPE */

+static void LnkT283(ptr) object *ptr;{ call_or_link_closure(VV[283],(void **)(void *)&Lnk283,(void **)(void *)&Lclptr283);} /* TYPE-ERROR-DATUM */

+static void LnkT282(){ call_or_link(VV[282],(void **)(void *)&Lnk282);} /* Defclass TYPE-ERROR3264 */

+static void LnkT281(){ call_or_link(VV[281],(void **)(void *)&Lnk281);} /* Defclass STORAGE-EXHAUSTED3175 */

+static void LnkT280(){ call_or_link(VV[280],(void **)(void *)&Lnk280);} /* Defclass STACK-OVERFLOW3086 */

+static void LnkT279(){ call_or_link(VV[279],(void **)(void *)&Lnk279);} /* Defclass STORAGE-CONDITION2997 */

+static void LnkT278(){ call_or_link(VV[278],(void **)(void *)&Lnk278);} /* Defclass SIMPLE-ERROR2908 */

+static void LnkT277(){ call_or_link(VV[277],(void **)(void *)&Lnk277);} /* Defclass SIMPLE-WARNING2819 */

+static void LnkT276(){ call_or_link(VV[276],(void **)(void *)&Lnk276);} /* LOAD-DEFMETHOD */

+static object LnkTLI274(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_proc_new(VV[274],(void **)(void *)&LnkLI274,2,first,ap);va_end(ap);return V1;} /* SIMPLE-CONDITION-PRINTER */

+static void LnkT273(){ call_or_link(VV[273],(void **)(void *)&Lnk273);} /* ERROR */

+static void LnkT13(){ call_or_link(VV[13],(void **)(void *)&Lnk13);} /* ERROR */

+static void LnkT272(){ call_or_link(VV[272],(void **)(void *)&Lnk272);} /* CCLOSURE-ENV-NTHCDR */

+static void LnkT271(){ call_or_link(VV[271],(void **)(void *)&Lnk271);} /* STRUCTURE-DEF */

+static void LnkT270(){ call_or_link(VV[270],(void **)(void *)&Lnk270);} /* STRUCTURE-SUBTYPE-P */

+static void LnkT269(){ call_or_link(VV[269],(void **)(void *)&Lnk269);} /* PROCLAIM-DEFGENERIC */

+static void LnkT268(){ call_or_link(VV[268],(void **)(void *)&Lnk268);} /* Defclass SIMPLE-CONDITION2523 */

+static void LnkT266(ptr) object *ptr;{ call_or_link_closure(VV[266],(void **)(void *)&Lnk266,(void **)(void *)&Lclptr266);} /* SIMPLE-CONDITION-FORMAT-ARGUMENTS */

+static void LnkT265(ptr) object *ptr;{ call_or_link_closure(VV[265],(void **)(void *)&Lnk265,(void **)(void *)&Lclptr265);} /* SIMPLE-CONDITION-FORMAT-STRING */

+static void LnkT264(){ call_or_link(VV[264],(void **)(void *)&Lnk264);} /* Defclass ERROR2426 */

+static void LnkT263(){ call_or_link(VV[263],(void **)(void *)&Lnk263);} /* Defclass SERIOUS-CONDITION2337 */

+static void LnkT262(){ call_or_link(VV[262],(void **)(void *)&Lnk262);} /* Defclass WARNING2248 */

+static void LnkT260(){ call_or_link(VV[260],(void **)(void *)&Lnk260);} /* REMOVE */

#ifdef SYSTEM_SPECIAL_INIT

SYSTEM_SPECIAL_INIT

diff --git a/gcl/clcs/clcs_conditions.c b/gcl/clcs/clcs_conditions.c
index 693b03e3e..e7f95ca8d 100644
--- a/gcl/clcs/clcs_conditions.c
+++ b/gcl/clcs/clcs_conditions.c

@@ -95,116 +95,123 @@ static void L5()

base[4]= (V5->c.c_car);

V5=V5->c.c_cdr;

base[5]= V5;}

+ if((base[3])!=Cnil){

+ goto T13;}

+ if((base[2])==(VV[2])){

+ goto T13;}

+ base[3]= make_cons(VV[2],Cnil);

+ goto T13;

+T13:;

{register object V6;

V6= Cnil;

V7= Cnil;

{register object V8;

V8= base[5];

- goto T17;

-T17:;

+ goto T23;

+T23:;

if(((V8))!=Cnil){

- goto T18;}

- goto T15;

- goto T18;

-T18:;

+ goto T24;}

+ goto T21;

+ goto T24;

+T24:;

{register object V9;

V9= car((V8));

{object V10= car((V9));

- if((V10!= VV[51]))goto T24;

+ if((V10!= VV[51]))goto T30;

if(!(type_of(cadr((V9)))==t_string)){

- goto T27;}

- V6= list(4,VV[2],VV[3],VV[4],list(3,VV[5],cadr((V9)),VV[6]));

- goto T25;

- goto T27;

-T27:;

+ goto T33;}

+ V6= list(4,VV[3],VV[4],VV[5],list(3,VV[6],cadr((V9)),VV[7]));

+ goto T31;

+ goto T33;

+T33:;

V6= cadr((V9));

- goto T25;

-T25:;

- goto T22;

- goto T24;

-T24:;

- if((V10!= VV[52]))goto T29;

+ goto T31;

+T31:;

+ goto T28;

+ goto T30;

+T30:;

+ if((V10!= VV[52]))goto T35;

V7= cadr((V9));

- goto T22;

- goto T29;

-T29:;

- (void)((VFUN_NARGS=3,(*(LnkLI53))(VV[7],VV[8],(V9))));}}

- goto T22;

-T22:;

+ goto T28;

+ goto T35;

+T35:;

+ (void)((VFUN_NARGS=3,(*(LnkLI53))(VV[8],VV[9],(V9))));}}

+ goto T28;

+T28:;

V8= cdr((V8));

- goto T17;}

- goto T15;

-T15:;

- V11= list(4,VV[11],base[2],base[3],base[4]);

+ goto T23;}

+ goto T21;

+T21:;

+ V11= list(4,VV[12],base[2],base[3],base[4]);

{object V13;

object V14= base[4];

if(endp(V14)){

V12= Cnil;

- goto T34;}

+ goto T40;}

base[6]=V13=MMcons(Cnil,Cnil);

- goto T35;

-T35:;

+ goto T41;

+T41:;

{object V16;

base[8]= cdr((V14->c.c_car));

- base[9]= VV[16];

+ base[9]= VV[17];

vs_top=(vs_base=base+8)+2;

Lgetf();

vs_top=sup;

V16= vs_base[0];

if(((V16))==Cnil){

- goto T41;}{object V18;

+ goto T47;}{object V18;

base[8]= cdr((V14->c.c_car));

- base[9]= VV[17];

+ base[9]= VV[18];

vs_top=(vs_base=base+8)+2;

Lgetf();

vs_top=sup;

V18= vs_base[0];

- if(V18==Cnil)goto T44;

+ if(V18==Cnil)goto T50;

V17= V18;

- goto T43;

- goto T44;

-T44:;}

+ goto T49;

+ goto T50;

+T50:;}

V17= Ct;

- goto T43;

-T43:;

+ goto T49;

+T49:;

V19= make_cons((V16),V17);

(V13->c.c_cdr)= make_cons(/* INLINE-ARGS */V19,Cnil);

- goto T36;

- goto T41;

-T41:;

+ goto T42;

+ goto T47;

+T47:;

(V13->c.c_cdr)= Cnil;}

- goto T36;

-T36:;

+ goto T42;

+T42:;

{object cdr_V13=MMcdr(V13);while(!endp(cdr_V13)) {cdr_V13=MMcdr(cdr_V13);V13=MMcdr(V13);}}

V14=MMcdr(V14);

if(endp(V14)){

base[6]=base[6]->c.c_cdr;

V12= base[6];

- goto T34;}

- goto T35;}

- goto T34;

-T34:;

- V20= list(3,VV[14],list(2,VV[15],listA(3,base[2],base[3],V12)),VV[1]);

- V21= list(4,VV[12],VV[13],/* INLINE-ARGS */V20,list(3,VV[18],list(3,VV[19],list(2,VV[15],base[2]),VV[20]),Cnil));

+ goto T40;}

+ goto T41;}

+ goto T40;

+T40:;

+ V20= list(3,VV[15],list(2,VV[16],listA(3,base[2],base[3],V12)),VV[1]);

+ V21= list(4,VV[13],VV[14],/* INLINE-ARGS */V20,list(3,VV[19],list(3,VV[20],list(2,VV[16],base[2]),VV[21]),Cnil));

if(((V6))==Cnil){

- goto T50;}

- V23= list(2,list(2,VV[23],base[2]),VV[6]);

- V24= list(4,VV[21],VV[22],/* INLINE-ARGS */V23,list(4,VV[24],VV[25],VV[26],make_cons((V6),VV[27])));

+ goto T56;}

+ V23= list(2,list(2,VV[24],base[2]),VV[7]);

+ V24= list(4,VV[22],VV[23],/* INLINE-ARGS */V23,list(4,VV[25],VV[26],VV[27],make_cons((V6),VV[28])));

V22= make_cons(/* INLINE-ARGS */V24,Cnil);

- goto T48;

- goto T50;

-T50:;

+ goto T54;

+ goto T56;

+T56:;

V22= Cnil;

- goto T48;

-T48:;

- V25= list(2,VV[15],base[2]);

+ goto T54;

+T54:;

+ V25= list(2,VV[16],base[2]);

V26= make_cons(/* INLINE-ARGS */V25,Cnil);

- base[6]= listA(5,VV[9],VV[10],/* INLINE-ARGS */V11,/* INLINE-ARGS */V21,append(V22,/* INLINE-ARGS */V26));

+ base[6]= listA(5,VV[10],VV[11],/* INLINE-ARGS */V11,/* INLINE-ARGS */V21,append(V22,/* INLINE-ARGS */V26));

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

return;}

}

-/* function definition for Defclass CONDITION2295 */

+/* function definition for Defclass CONDITION2299 */

static void L6()

{register object *base=vs_base;

@@ -214,7 +221,7 @@ static void L6()

vs_top=sup;

goto TTL;

TTL:;

- base[0]= VV[28];

+ base[0]= VV[2];

base[1]= VV[29];

base[2]= Cnil;

base[3]= Cnil;

@@ -223,7 +230,7 @@ TTL:;

symlispcall(VV[54],base+0,6);

return;

}

-/* local entry for function progn 'compile2311 */

+/* local entry for function progn 'compile2315 */

static object LI7()

@@ -238,7 +245,7 @@ TTL:;

base[0]=base[0];

return Cnil;

}

-/* local entry for function progn 'compile2328 */

+/* local entry for function progn 'compile2332 */

static object LI8()

@@ -256,19 +263,19 @@ TTL:;

base[0]=base[0];

return Cnil;

}

-/* local entry for function progn 'compile2352 */

+/* local entry for function progn 'compile2356 */

static object LI9()

{ VMB9 VMS9 VMV9

goto TTL;

TTL:;

- (void)(sputprop(VV[28],VV[31],Cnil));

+ (void)(sputprop(VV[2],VV[31],Cnil));

{object V30 = Cnil;

VMR9(V30)}

return Cnil;

}

-/* local entry for function progn 'compile2364 */

+/* local entry for function progn 'compile2368 */

static object LI10()

@@ -279,7 +286,7 @@ TTL:;

VMR10(V31)}

return Cnil;

}

-/* local entry for function progn 'compile2380 */

+/* local entry for function progn 'compile2384 */

static object LI11()

@@ -291,24 +298,24 @@ TTL:;

Lfboundp();

vs_top=sup;

if((vs_base[0])==Cnil){

- goto T65;}

+ goto T71;}

base[0]=symbol_function(VV[32]);

{

object V32= VV[33];

if(endp(V32)){

- goto T65;}

- goto T69;

-T69:;

+ goto T71;}

+ goto T75;

+T75:;

base[1]= (V32->c.c_car);

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

(void) (*Lnk32)();

vs_top=sup;

V32=MMcdr(V32);

if(endp(V32)){

- goto T65;}

- goto T69;}

- goto T65;

-T65:;

+ goto T71;}

+ goto T75;}

+ goto T71;

+T71:;

{object V33 = Cnil;

VMR11(V33)}

base[0]=base[0];

@@ -323,7 +330,7 @@ object V35;

goto TTL;

TTL:;

base[0]= (V35);

- base[1]= VV[28];

+ base[1]= VV[2];

vs_top=(vs_base=base+0)+2;

(void) (*Lnk56)();

vs_top=sup;

@@ -332,14 +339,14 @@ TTL:;

base[0]=base[0];

return Cnil;

}

-/* local entry for function progn 'compile2404 */

+/* local entry for function progn 'compile2408 */

static object LI13()

{ VMB13 VMS13 VMV13

goto TTL;

TTL:;

- base[0]= VV[22];

+ base[0]= VV[23];

base[1]= VV[34];

vs_top=(vs_base=base+0)+2;

(void) (*Lnk57)();

@@ -357,8 +364,8 @@ object V42;object V43;register object V44;object V45;

{ VMB14 VMS14 VMV14

goto TTL;

TTL:;

- if((symbol_value(VV[25]))==Cnil){

- goto T81;}

+ if((symbol_value(VV[26]))==Cnil){

+ goto T87;}

base[0]= (V45);

base[1]= VV[35];

base[4]= (V44);

@@ -376,8 +383,8 @@ TTL:;

vs_top=sup;

{object V47 = vs_base[0];

VMR14(V47)}

- goto T81;

-T81:;

+ goto T87;

+T87:;

base[0]= (V45);

base[1]= VV[36];

base[3]= (V44);

@@ -393,7 +400,7 @@ T81:;

base[0]=base[0];

return Cnil;

}

-/* local entry for function progn 'compile2473 */

+/* local entry for function progn 'compile2477 */

static object LI15()

@@ -401,7 +408,7 @@ static object LI15()

goto TTL;

TTL:;

base[0]= VV[37];

- base[1]= VV[22];

+ base[1]= VV[23];

base[2]= Cnil;

base[3]= VV[38];

base[4]= VV[39];

@@ -416,7 +423,7 @@ TTL:;

base[0]=base[0];

return Cnil;

}

-/* local entry for function progn 'compile2485 */

+/* local entry for function progn 'compile2489 */

static object LI16()

@@ -432,7 +439,7 @@ TTL:;

base[0]=base[0];

return Cnil;

}

-/* local entry for function progn 'compile2497 */

+/* local entry for function progn 'compile2501 */

static object LI17()

@@ -444,23 +451,23 @@ TTL:;

Lboundp();

vs_top=sup;

if((vs_base[0])==Cnil){

- goto T105;}

- goto T104;

- goto T105;

-T105:;

- base[0]= VV[28];

+ goto T111;}

+ goto T110;

+ goto T111;

+T111:;

+ base[0]= VV[2];

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

(void) (*Lnk63)();

vs_top=sup;

setq(VV[42],vs_base[0]);

- goto T104;

-T104:;

+ goto T110;

+T110:;

{object V52 = Cnil;

VMR17(V52)}

base[0]=base[0];

return Cnil;

}

-/* local entry for function progn 'compile2510 */

+/* local entry for function progn 'compile2514 */

static object LI18()

@@ -480,25 +487,25 @@ register object V55;

goto TTL;

TTL:;

if(!(type_of((V55))==t_symbol)){

- goto T111;}

+ goto T117;}

base[0]= (V55);

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

(void) (*Lnk63)();

vs_top=sup;

V55= vs_base[0];

- goto T111;

-T111:;

+ goto T117;

+T117:;

base[0]= (V55);

base[1]= VV[29];

vs_top=(vs_base=base+0)+2;

(void) (*Lnk56)();

vs_top=sup;

if((vs_base[0])!=Cnil){

- goto T116;}

+ goto T122;}

{object V56 = Cnil;

VMR19(V56)}

- goto T116;

-T116:;{object V58;

+ goto T122;

+T122:;{object V58;

V58= symbol_value(VV[42]);

base[0]= (V55);

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

@@ -533,7 +540,7 @@ static void L20()

V63=(base[1]);

vs_top=sup;

if(((*(LnkLI65))((V62)))!=Cnil){

- goto T122;}

+ goto T128;}

base[2]= VV[43];

base[3]= VV[44];

base[4]= (V62);

@@ -546,8 +553,8 @@ static void L20()

vs_top=(vs_base=base+2)+9;

(void) (*Lnk66)();

vs_top=sup;

- goto T122;

-T122:;

+ goto T128;

+T128:;

base[2]=symbol_function(VV[67]);

base[3]= (V62);

{object V64;

@@ -560,22 +567,22 @@ T122:;

return;

}

-static void LnkT67(ptr) object *ptr;{ call_or_link_closure(VV[67],(void **)&Lnk67,(void **)&Lclptr67);} /* MAKE-INSTANCE */

-static void LnkT66(){ call_or_link(VV[66],(void **)&Lnk66);} /* ERROR */

-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;} /* CONDITION-CLASS-P */

-static void LnkT64(ptr) object *ptr;{ call_or_link_closure(VV[64],(void **)&Lnk64,(void **)&Lclptr64);} /* CLASS-PRECEDENCE-LIST */

-static void LnkT63(){ call_or_link(VV[63],(void **)&Lnk63);} /* FIND-CLASS */

-static void LnkT62(){ call_or_link(VV[62],(void **)&Lnk62);} /* LOAD-DEFMETHOD */

-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;} /* UNIQUE-ID */

-static void LnkT59(ptr) object *ptr;{ call_or_link_closure(VV[59],(void **)&Lnk59,(void **)&Lclptr59);} /* CLASS-NAME */

-static void LnkT58(){ call_or_link(VV[58],(void **)&Lnk58);} /* CLASS-OF */

-static void LnkT57(){ call_or_link(VV[57],(void **)&Lnk57);} /* PROCLAIM-DEFGENERIC */

-static void LnkT56(){ call_or_link(VV[56],(void **)&Lnk56);} /* TYPEP */

-static void LnkT32(){ call_or_link(VV[32],(void **)&Lnk32);} /* PROCLAIM-INCOMPATIBLE-SUPERCLASSES */

-static void LnkT55(){ call_or_link(VV[55],(void **)&Lnk55);} /* Defclass CONDITION2295 */

-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;} /* CERROR */

-static void LnkT50(){ call_or_link(VV[50],(void **)&Lnk50);} /* *MAKE-SPECIAL */

-static void LnkT0(){ call_or_link(VV[0],(void **)&Lnk0);} /* REMOVE-CLCS-SYMBOLS */

+static void LnkT67(ptr) object *ptr;{ call_or_link_closure(VV[67],(void **)(void *)&Lnk67,(void **)(void *)&Lclptr67);} /* MAKE-INSTANCE */

+static void LnkT66(){ call_or_link(VV[66],(void **)(void *)&Lnk66);} /* ERROR */

+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;} /* CONDITION-CLASS-P */

+static void LnkT64(ptr) object *ptr;{ call_or_link_closure(VV[64],(void **)(void *)&Lnk64,(void **)(void *)&Lclptr64);} /* CLASS-PRECEDENCE-LIST */

+static void LnkT63(){ call_or_link(VV[63],(void **)(void *)&Lnk63);} /* FIND-CLASS */

+static void LnkT62(){ call_or_link(VV[62],(void **)(void *)&Lnk62);} /* LOAD-DEFMETHOD */

+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;} /* UNIQUE-ID */

+static void LnkT59(ptr) object *ptr;{ call_or_link_closure(VV[59],(void **)(void *)&Lnk59,(void **)(void *)&Lclptr59);} /* CLASS-NAME */

+static void LnkT58(){ call_or_link(VV[58],(void **)(void *)&Lnk58);} /* CLASS-OF */

+static void LnkT57(){ call_or_link(VV[57],(void **)(void *)&Lnk57);} /* PROCLAIM-DEFGENERIC */

+static void LnkT56(){ call_or_link(VV[56],(void **)(void *)&Lnk56);} /* TYPEP */

+static void LnkT32(){ call_or_link(VV[32],(void **)(void *)&Lnk32);} /* PROCLAIM-INCOMPATIBLE-SUPERCLASSES */

+static void LnkT55(){ call_or_link(VV[55],(void **)(void *)&Lnk55);} /* Defclass CONDITION2299 */

+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;} /* CERROR */

+static void LnkT50(){ call_or_link(VV[50],(void **)(void *)&Lnk50);} /* *MAKE-SPECIAL */

+static void LnkT0(){ call_or_link(VV[0],(void **)(void *)&Lnk0);} /* REMOVE-CLCS-SYMBOLS */

#ifdef SYSTEM_SPECIAL_INIT

SYSTEM_SPECIAL_INIT

diff --git a/gcl/clcs/clcs_conditions.data b/gcl/clcs/clcs_conditions.data
index 335855956..7a770dede 100644
--- a/gcl/clcs/clcs_conditions.data
+++ b/gcl/clcs/clcs_conditions.data

@@ -1,5 +1,5 @@

#(#!

(lisp::in-package "CONDITIONS" :use (lisp::quote ("LISP" "PCL")))

-#(conditions::remove-clcs-symbols conditions::*condition-class-list* lisp::lambda (lisp::condition lisp::stream) (lisp::declare (lisp::ignore lisp::condition)) lisp::write-string lisp::stream "Ignore this DEFINE-CONDITION option." "Invalid DEFINE-CONDITION option: ~S" lisp::progn (lisp::eval-when (lisp::compile) (lisp::setq pcl::*defclass-times* (lisp::quote (lisp::compile lisp::load lisp::eval)))) pcl::defclass lisp::eval-when (lisp::compile lisp::load lisp::eval) lisp::pushnew lisp::quote :initarg :type lisp::setf lisp::get (lisp::quote system::s-data) pcl::defmethod pcl::print-object conditions::x lisp::if lisp::*print-escape* (pcl::call-next-method) (conditions::x lisp::stream) lisp::condition lisp::standard-class (lisp::condition lisp::nil) system::s-data pcl::proclaim-incompatible-superclasses ((lisp::condition pcl::metaobject)) ((conditions::x lisp::condition) lisp::stream) "#<~S.~D>" "The condition ~A occurred." lisp::standard-method (lisp::condition lisp::t) (conditions::x lisp::stream) :fast-function (:plist (:arg-info (2))) conditions::*condition-class* lisp::simple-type-error :datum :expected-type (lisp::satisfies conditions::condition-class-p) :format-string "Not a condition type: ~S" :format-arguments system::*make-special :report :documentation conditions::cerror pcl::load-defclass #0=#:|Defclass CONDITION2295| lisp::typep pcl::proclaim-defgeneric pcl::class-of pcl::class-name conditions::unique-id conditions::|(PCL::FAST-METHOD PRINT-OBJECT (CONDITION T))| pcl::load-defmethod pcl::find-class pcl::class-precedence-list conditions::condition-class-p conditions::error pcl::make-instance (system::%init . #((system::mfsfun (lisp::quote #1=#:|progn 'compile2181|) 0 0) (#1#) (system::mfsfun (lisp::quote #2=#:|progn 'compile2197|) 1 0) (#2#) (system::mfsfun (lisp::quote #3=#:|progn 'compile2209|) 2 0) (#3#) (system::mfsfun (lisp::quote #4=#:|progn 'compile2222|) 3 0) (#4#) (system::mm (lisp::quote conditions::define-condition) 4) (system::mf (lisp::quote #0#) 5) (system::mfsfun (lisp::quote #5=#:|progn 'compile2311|) 6 0) (#5#) (system::mfsfun (lisp::quote #6=#:|progn 'compile2328|) 7 0) (#6#) (system::mfsfun (lisp::quote #7=#:|progn 'compile2352|) 8 0) (#7#) (system::mfsfun (lisp::quote #8=#:|progn 'compile2364|) 9 0) (#8#) (system::mfsfun (lisp::quote #9=#:|progn 'compile2380|) 10 0) (#9#) (system::mfsfun (lisp::quote conditions::conditionp) 11 1) (system::mfsfun (lisp::quote #10=#:|progn 'compile2404|) 12 0) (#10#) (system::mfsfun (lisp::quote conditions::|(PCL::FAST-METHOD PRINT-OBJECT (CONDITION T))|) 13 4) (system::mfsfun (lisp::quote #11=#:|progn 'compile2473|) 14 0) (#11#) (system::mfsfun (lisp::quote #12=#:|progn 'compile2485|) 15 0) (#12#) (system::mfsfun (lisp::quote #13=#:|progn 'compile2497|) 16 0) (#13#) (system::mfsfun (lisp::quote #14=#:|progn 'compile2510|) 17 0) (#14#) (system::mfsfun (lisp::quote conditions::condition-class-p) 18 1) (system::mf (lisp::quote conditions::make-condition) 19))))

+#(conditions::remove-clcs-symbols conditions::*condition-class-list* lisp::condition lisp::lambda (lisp::condition lisp::stream) (lisp::declare (lisp::ignore lisp::condition)) lisp::write-string lisp::stream "Ignore this DEFINE-CONDITION option." "Invalid DEFINE-CONDITION option: ~S" lisp::progn (lisp::eval-when (lisp::compile) (lisp::setq pcl::*defclass-times* (lisp::quote (lisp::compile lisp::load lisp::eval)))) pcl::defclass lisp::eval-when (lisp::compile lisp::load lisp::eval) lisp::pushnew lisp::quote :initarg :type lisp::setf lisp::get (lisp::quote system::s-data) pcl::defmethod pcl::print-object conditions::x lisp::if lisp::*print-escape* (pcl::call-next-method) (conditions::x lisp::stream) lisp::standard-class (lisp::condition lisp::nil) system::s-data pcl::proclaim-incompatible-superclasses ((lisp::condition pcl::metaobject)) ((conditions::x lisp::condition) lisp::stream) "#<~S.~D>" "The condition ~A occurred." lisp::standard-method (lisp::condition lisp::t) (conditions::x lisp::stream) :fast-function (:plist (:arg-info (2))) conditions::*condition-class* lisp::simple-type-error :datum :expected-type (lisp::satisfies conditions::condition-class-p) :format-string "Not a condition type: ~S" :format-arguments system::*make-special :report :documentation conditions::cerror pcl::load-defclass #0=#:|Defclass CONDITION2299| lisp::typep pcl::proclaim-defgeneric pcl::class-of pcl::class-name conditions::unique-id conditions::|(PCL::FAST-METHOD PRINT-OBJECT (CONDITION T))| pcl::load-defmethod pcl::find-class pcl::class-precedence-list conditions::condition-class-p conditions::error pcl::make-instance (system::%init . #((system::mfsfun (lisp::quote #1=#:|progn 'compile2181|) 0 0) (#1#) (system::mfsfun (lisp::quote #2=#:|progn 'compile2197|) 1 0) (#2#) (system::mfsfun (lisp::quote #3=#:|progn 'compile2209|) 2 0) (#3#) (system::mfsfun (lisp::quote #4=#:|progn 'compile2222|) 3 0) (#4#) (system::mm (lisp::quote conditions::define-condition) 4) (system::mf (lisp::quote #0#) 5) (system::mfsfun (lisp::quote #5=#:|progn 'compile2315|) 6 0) (#5#) (system::mfsfun (lisp::quote #6=#:|progn 'compile2332|) 7 0) (#6#) (system::mfsfun (lisp::quote #7=#:|progn 'compile2356|) 8 0) (#7#) (system::mfsfun (lisp::quote #8=#:|progn 'compile2368|) 9 0) (#8#) (system::mfsfun (lisp::quote #9=#:|progn 'compile2384|) 10 0) (#9#) (system::mfsfun (lisp::quote conditions::conditionp) 11 1) (system::mfsfun (lisp::quote #10=#:|progn 'compile2408|) 12 0) (#10#) (system::mfsfun (lisp::quote conditions::|(PCL::FAST-METHOD PRINT-OBJECT (CONDITION T))|) 13 4) (system::mfsfun (lisp::quote #11=#:|progn 'compile2477|) 14 0) (#11#) (system::mfsfun (lisp::quote #12=#:|progn 'compile2489|) 15 0) (#12#) (system::mfsfun (lisp::quote #13=#:|progn 'compile2501|) 16 0) (#13#) (system::mfsfun (lisp::quote #14=#:|progn 'compile2514|) 17 0) (#14#) (system::mfsfun (lisp::quote conditions::condition-class-p) 18 1) (system::mf (lisp::quote conditions::make-condition) 19))))

)

diff --git a/gcl/clcs/clcs_debugger.c b/gcl/clcs/clcs_debugger.c
index 3f62b80d6..0e098fbbf 100644
--- a/gcl/clcs/clcs_debugger.c
+++ b/gcl/clcs/clcs_debugger.c

@@ -1547,19 +1547,19 @@ register object *base0;

return;

}

-static void LnkT83(){ call_or_link(VV[83],(void **)&Lnk83);} /* INVOKE-RESTART-INTERACTIVELY */

-static void LnkT82(){ call_or_link(VV[82],(void **)&Lnk82);} /* INVOKE-RESTART */

-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;} /* MAKE-RESTART */

-static void LnkT80(){ call_or_link(VV[80],(void **)&Lnk80);} /* EXECUTE-DEBUGGER-COMMAND */

-static object LnkTLI79(){return call_proc0(VV[79],(void **)&LnkLI79);} /* READ-DEBUG-COMMAND */

-static object LnkTLI78(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[78],(void **)&LnkLI78,first,ap);va_end(ap);return V1;} /* SHOW-RESTARTS */

-static object LnkTLI77(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[77],(void **)&LnkLI77,first,ap);va_end(ap);return V1;} /* FIND-RESTART */

-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;} /* COMPUTE-RESTARTS */

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

-static void LnkT74(){ call_or_link(VV[74],(void **)&Lnk74);} /* GET-OUTPUT-STREAM-STRING */

-static void LnkT73(){ call_or_link(VV[73],(void **)&Lnk73);} /* MAKE-STRING-OUTPUT-STREAM */

-static void LnkT67(){ call_or_link(VV[67],(void **)&Lnk67);} /* MAKE-STRING-INPUT-STREAM */

-static void LnkT65(){ call_or_link(VV[65],(void **)&Lnk65);} /* *MAKE-SPECIAL */

+static void LnkT83(){ call_or_link(VV[83],(void **)(void *)&Lnk83);} /* INVOKE-RESTART-INTERACTIVELY */

+static void LnkT82(){ call_or_link(VV[82],(void **)(void *)&Lnk82);} /* INVOKE-RESTART */

+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;} /* MAKE-RESTART */

+static void LnkT80(){ call_or_link(VV[80],(void **)(void *)&Lnk80);} /* EXECUTE-DEBUGGER-COMMAND */

+static object LnkTLI79(){return call_proc0(VV[79],(void **)(void *)&LnkLI79);} /* READ-DEBUG-COMMAND */

+static object LnkTLI78(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[78],(void **)(void *)&LnkLI78,first,ap);va_end(ap);return V1;} /* SHOW-RESTARTS */

+static object LnkTLI77(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[77],(void **)(void *)&LnkLI77,first,ap);va_end(ap);return V1;} /* FIND-RESTART */

+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;} /* COMPUTE-RESTARTS */

+static void LnkT75(){ call_or_link(VV[75],(void **)(void *)&Lnk75);} /* COERCE-TO-CONDITION */

+static void LnkT74(){ call_or_link(VV[74],(void **)(void *)&Lnk74);} /* GET-OUTPUT-STREAM-STRING */

+static void LnkT73(){ call_or_link(VV[73],(void **)(void *)&Lnk73);} /* MAKE-STRING-OUTPUT-STREAM */

+static void LnkT67(){ call_or_link(VV[67],(void **)(void *)&Lnk67);} /* MAKE-STRING-INPUT-STREAM */

+static void LnkT65(){ call_or_link(VV[65],(void **)(void *)&Lnk65);} /* *MAKE-SPECIAL */

#ifdef SYSTEM_SPECIAL_INIT

SYSTEM_SPECIAL_INIT

diff --git a/gcl/clcs/clcs_handler.c b/gcl/clcs/clcs_handler.c
index 891c75340..e545a35bc 100644
--- a/gcl/clcs/clcs_handler.c
+++ b/gcl/clcs/clcs_handler.c

@@ -984,20 +984,20 @@ T231:;

return;

}

-static void LnkT79(){ call_or_link(VV[79],(void **)&Lnk79);} /* REMOVE */

-static object LnkTLI77(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[77],(void **)&LnkLI77,first,ap);va_end(ap);return V1;} /* MAKE-RESTART */

-static void LnkT76(){ call_or_link(VV[76],(void **)&Lnk76);} /* INVOKE-DEBUGGER */

-static object LnkTLI8(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[8],(void **)&LnkLI8,first,ap);va_end(ap);return V1;} /* SIGNAL */

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

-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;} /* CONDITION-CLASS-P */

-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;} /* CERROR */

-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;} /* CONDITIONP */

-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;} /* BREAK */

-static void LnkT70(){ call_or_link(VV[70],(void **)&Lnk70);} /* TYPEP */

-static void LnkT69(){ call_or_link(VV[69],(void **)&Lnk69);} /* COERCE-TO-CONDITION */

-static void LnkT21(){ call_or_link(VV[21],(void **)&Lnk21);} /* ERROR */

-static void LnkT68(){ call_or_link(VV[68],(void **)&Lnk68);} /* EVERY */

-static void LnkT66(){ call_or_link(VV[66],(void **)&Lnk66);} /* *MAKE-SPECIAL */

+static void LnkT79(){ call_or_link(VV[79],(void **)(void *)&Lnk79);} /* REMOVE */

+static object LnkTLI77(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[77],(void **)(void *)&LnkLI77,first,ap);va_end(ap);return V1;} /* MAKE-RESTART */

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

+static object LnkTLI8(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[8],(void **)(void *)&LnkLI8,first,ap);va_end(ap);return V1;} /* SIGNAL */

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

+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;} /* CONDITION-CLASS-P */

+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;} /* CERROR */

+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;} /* CONDITIONP */

+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;} /* BREAK */

+static void LnkT70(){ call_or_link(VV[70],(void **)(void *)&Lnk70);} /* TYPEP */

+static void LnkT69(){ call_or_link(VV[69],(void **)(void *)&Lnk69);} /* COERCE-TO-CONDITION */

+static void LnkT21(){ call_or_link(VV[21],(void **)(void *)&Lnk21);} /* ERROR */

+static void LnkT68(){ call_or_link(VV[68],(void **)(void *)&Lnk68);} /* EVERY */

+static void LnkT66(){ call_or_link(VV[66],(void **)(void *)&Lnk66);} /* *MAKE-SPECIAL */

#ifdef SYSTEM_SPECIAL_INIT

SYSTEM_SPECIAL_INIT

diff --git a/gcl/clcs/clcs_install.c b/gcl/clcs/clcs_install.c
index 6cf3c8f4d..c7b0c5861 100644
--- a/gcl/clcs/clcs_install.c
+++ b/gcl/clcs/clcs_install.c

@@ -782,12 +782,12 @@ register object *base0;

unwind(fr,VV[15]);}

}

-static object LnkTLI31(){return call_proc0(VV[31],(void **)&LnkLI31);} /* INSTALL-CLCS-SYMBOLS */

-static void LnkT30(){ call_or_link(VV[30],(void **)&Lnk30);} /* ERROR */

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

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

-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;} /* INSTALL-SYMBOL */

-static void LnkT26(){ call_or_link(VV[26],(void **)&Lnk26);} /* *MAKE-SPECIAL */

+static object LnkTLI31(){return call_proc0(VV[31],(void **)(void *)&LnkLI31);} /* INSTALL-CLCS-SYMBOLS */

+static void LnkT30(){ call_or_link(VV[30],(void **)(void *)&Lnk30);} /* ERROR */

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

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

+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;} /* INSTALL-SYMBOL */

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

#ifdef SYSTEM_SPECIAL_INIT

SYSTEM_SPECIAL_INIT

diff --git a/gcl/clcs/clcs_kcl_cond.c b/gcl/clcs/clcs_kcl_cond.c
index 0f034a394..ab62fca7f 100644
--- a/gcl/clcs/clcs_kcl_cond.c
+++ b/gcl/clcs/clcs_kcl_cond.c

@@ -775,19 +775,19 @@ register object *base0;

unwind(fr,VV[14]);}

}

-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;} /* CONDITION-BACKTRACE */

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

-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;} /* RESET-FUNCTION */

-static void LnkT48(){ call_or_link(VV[48],(void **)&Lnk48);} /* SIMPLE-BACKTRACE */

-static void LnkT47(){ call_or_link(VV[47],(void **)&Lnk47);} /* FRS-TOP */

-static void LnkT46(){ call_or_link(VV[46],(void **)&Lnk46);} /* SCH-FRS-BASE */

-static void LnkT45(){ call_or_link(VV[45],(void **)&Lnk45);} /* IHS-TOP */

-static object LnkTLI44(){return call_proc0(VV[44],(void **)&LnkLI44);} /* INITIALIZE-INTERNAL-ERROR-TABLE */

-static void LnkT43(){ call_or_link(VV[43],(void **)&Lnk43);} /* SET-INTERNAL-ERROR */

-static void LnkT32(){ call_or_link(VV[32],(void **)&Lnk32);} /* ERROR */

-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;} /* SIMPLE-CONDITION-CLASS-P */

-static object LnkTLI41(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[41],(void **)&LnkLI41,first,ap);va_end(ap);return V1;} /* MAKE-RESTART */

-static void LnkT40(){ call_or_link(VV[40],(void **)&Lnk40);} /* *MAKE-SPECIAL */

+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;} /* CONDITION-BACKTRACE */

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

+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;} /* RESET-FUNCTION */

+static void LnkT48(){ call_or_link(VV[48],(void **)(void *)&Lnk48);} /* SIMPLE-BACKTRACE */

+static void LnkT47(){ call_or_link(VV[47],(void **)(void *)&Lnk47);} /* FRS-TOP */

+static void LnkT46(){ call_or_link(VV[46],(void **)(void *)&Lnk46);} /* SCH-FRS-BASE */

+static void LnkT45(){ call_or_link(VV[45],(void **)(void *)&Lnk45);} /* IHS-TOP */

+static object LnkTLI44(){return call_proc0(VV[44],(void **)(void *)&LnkLI44);} /* INITIALIZE-INTERNAL-ERROR-TABLE */

+static void LnkT43(){ call_or_link(VV[43],(void **)(void *)&Lnk43);} /* SET-INTERNAL-ERROR */

+static void LnkT32(){ call_or_link(VV[32],(void **)(void *)&Lnk32);} /* ERROR */

+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;} /* SIMPLE-CONDITION-CLASS-P */

+static object LnkTLI41(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[41],(void **)(void *)&LnkLI41,first,ap);va_end(ap);return V1;} /* MAKE-RESTART */

+static void LnkT40(){ call_or_link(VV[40],(void **)(void *)&Lnk40);} /* *MAKE-SPECIAL */

#ifdef SYSTEM_SPECIAL_INIT

SYSTEM_SPECIAL_INIT

diff --git a/gcl/clcs/clcs_restart.c b/gcl/clcs/clcs_restart.c
index 81d837d54..83c1793f1 100644
--- a/gcl/clcs/clcs_restart.c
+++ b/gcl/clcs/clcs_restart.c

@@ -480,7 +480,7 @@ static object LI16(object first,...)

va_start(ap,first);

narg= narg - 0;

{

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

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

V53=(Vcs[0]);

V54=(Vcs[1]);

V55=(Vcs[2]);

@@ -1374,19 +1374,19 @@ register object *base0;

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

unwind(fr,base[0]);}

}

-static void LnkT80(){ call_or_link(VV[80],(void **)&Lnk80);} /* FIND */

-static void LnkT78(){ call_or_link(VV[78],(void **)&Lnk78);} /* INVOKE-RESTART */

-static void LnkT6(){ call_or_link(VV[6],(void **)&Lnk6);} /* PARSE-KEYWORD-PAIRS */

-static object LnkTLI77(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[77],(void **)&LnkLI77,first,ap);va_end(ap);return V1;} /* FIND-RESTART */

-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;} /* FIND-KCL-TOP-RESTART */

-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;} /* MAKE-KCL-TOP-RESTART */

-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-RESTART */

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

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

-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;} /* UNIQUE-ID */

-static object LnkTLI71(){return call_proc0(VV[71],(void **)&LnkLI71);} /* KCL-TOP-RESTARTS */

-static void LnkT70(){ call_or_link(VV[70],(void **)&Lnk70);} /* ERROR */

-static void LnkT69(){ call_or_link(VV[69],(void **)&Lnk69);} /* *MAKE-SPECIAL */

+static void LnkT80(){ call_or_link(VV[80],(void **)(void *)&Lnk80);} /* FIND */

+static void LnkT78(){ call_or_link(VV[78],(void **)(void *)&Lnk78);} /* INVOKE-RESTART */

+static void LnkT6(){ call_or_link(VV[6],(void **)(void *)&Lnk6);} /* PARSE-KEYWORD-PAIRS */

+static object LnkTLI77(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[77],(void **)(void *)&LnkLI77,first,ap);va_end(ap);return V1;} /* FIND-RESTART */

+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;} /* FIND-KCL-TOP-RESTART */

+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;} /* MAKE-KCL-TOP-RESTART */

+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-RESTART */

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

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

+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;} /* UNIQUE-ID */

+static object LnkTLI71(){return call_proc0(VV[71],(void **)(void *)&LnkLI71);} /* KCL-TOP-RESTARTS */

+static void LnkT70(){ call_or_link(VV[70],(void **)(void *)&Lnk70);} /* ERROR */

+static void LnkT69(){ call_or_link(VV[69],(void **)(void *)&Lnk69);} /* *MAKE-SPECIAL */

#ifdef SYSTEM_SPECIAL_INIT

SYSTEM_SPECIAL_INIT

diff --git a/gcl/clcs/clcs_top_patches.c b/gcl/clcs/clcs_top_patches.c
index a0cf8d9fa..a30ac178e 100644
--- a/gcl/clcs/clcs_top_patches.c
+++ b/gcl/clcs/clcs_top_patches.c

@@ -780,25 +780,25 @@ register object *base0;

unwind(fr,VV[46]);}

}

-static void LnkT91(){ call_or_link(VV[91],(void **)&Lnk91);} /* INVOKE-RESTART */

-static void LnkT90(){ call_or_link(VV[90],(void **)&Lnk90);} /* ERROR */

-static void LnkT89(){ call_or_link(VV[89],(void **)&Lnk89);} /* CERROR */

-static void LnkT88(){ call_or_link(VV[88],(void **)&Lnk88);} /* BREAK-CURRENT */

-static void LnkT85(){ call_or_link(VV[85],(void **)&Lnk85);} /* CLCS-BREAK-LEVEL-INVOKE-RESTART */

-static void LnkT83(){ call_or_link(VV[83],(void **)&Lnk83);} /* DBL-READ */

-static void LnkT82(){ call_or_link(VV[82],(void **)&Lnk82);} /* CATCH-FATAL */

-static object LnkTLI69(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[69],(void **)&LnkLI69,first,ap);va_end(ap);return V1;} /* SHOW-RESTARTS */

-static void LnkT81(){ call_or_link(VV[81],(void **)&Lnk81);} /* SET-CURRENT */

-static object LnkTLI80(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[80],(void **)&LnkLI80,first,ap);va_end(ap);return V1;} /* MAKE-RESTART */

-static void LnkT79(){ call_or_link(VV[79],(void **)&Lnk79);} /* SET-BACK */

-static object LnkTLI78(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[78],(void **)&LnkLI78,first,ap);va_end(ap);return V1;} /* FIND-RESTART */

-static object LnkTLI77(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[77],(void **)&LnkLI77,first,ap);va_end(ap);return V1;} /* COMPUTE-RESTARTS */

-static void LnkT76(){ call_or_link(VV[76],(void **)&Lnk76);} /* FRS-TOP */

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

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

-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;} /* CONDITIONP */

-static void LnkT72(){ call_or_link(VV[72],(void **)&Lnk72);} /* INVOKE-RESTART-INTERACTIVELY */

-static void LnkT71(){ call_or_link(VV[71],(void **)&Lnk71);} /* *MAKE-SPECIAL */

+static void LnkT91(){ call_or_link(VV[91],(void **)(void *)&Lnk91);} /* INVOKE-RESTART */

+static void LnkT90(){ call_or_link(VV[90],(void **)(void *)&Lnk90);} /* ERROR */

+static void LnkT89(){ call_or_link(VV[89],(void **)(void *)&Lnk89);} /* CERROR */

+static void LnkT88(){ call_or_link(VV[88],(void **)(void *)&Lnk88);} /* BREAK-CURRENT */

+static void LnkT85(){ call_or_link(VV[85],(void **)(void *)&Lnk85);} /* CLCS-BREAK-LEVEL-INVOKE-RESTART */

+static void LnkT83(){ call_or_link(VV[83],(void **)(void *)&Lnk83);} /* DBL-READ */

+static void LnkT82(){ call_or_link(VV[82],(void **)(void *)&Lnk82);} /* CATCH-FATAL */

+static object LnkTLI69(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[69],(void **)(void *)&LnkLI69,first,ap);va_end(ap);return V1;} /* SHOW-RESTARTS */

+static void LnkT81(){ call_or_link(VV[81],(void **)(void *)&Lnk81);} /* SET-CURRENT */

+static object LnkTLI80(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[80],(void **)(void *)&LnkLI80,first,ap);va_end(ap);return V1;} /* MAKE-RESTART */

+static void LnkT79(){ call_or_link(VV[79],(void **)(void *)&Lnk79);} /* SET-BACK */

+static object LnkTLI78(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[78],(void **)(void *)&LnkLI78,first,ap);va_end(ap);return V1;} /* FIND-RESTART */

+static object LnkTLI77(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(VV[77],(void **)(void *)&LnkLI77,first,ap);va_end(ap);return V1;} /* COMPUTE-RESTARTS */

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

+static void LnkT75(){ call_or_link(VV[75],(void **)(void *)&Lnk75);} /* SCH-FRS-BASE */

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

+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;} /* CONDITIONP */

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

+static void LnkT71(){ call_or_link(VV[71],(void **)(void *)&Lnk71);} /* *MAKE-SPECIAL */

#ifdef SYSTEM_SPECIAL_INIT

SYSTEM_SPECIAL_INIT

diff --git a/gcl/config.guess b/gcl/config.guess
index ed2e03b7f..9e55e1a07 100755
--- a/gcl/config.guess
+++ b/gcl/config.guess

@@ -1,9 +1,9 @@

#! /bin/sh

# Attempt to guess a canonical system name.

-# 2000, 2001, 2002 Free Software Foundation, Inc.

+# 2000, 2001, 2002, 2003 Free Software Foundation, Inc.

-timestamp='2002-03-20'

+timestamp='2003-05-19'

# This file is free software; you can redistribute it and/or modify it

# under the terms of the GNU General Public License as published by

@@ -88,30 +88,41 @@ if test $# != 0; then

exit 1

+trap 'exit 1' 1 2 15

-dummy=dummy-$$

-trap 'rm -f $dummy.c $dummy.o $dummy.rel $dummy; exit 1' 1 2 15

+# CC_FOR_BUILD -- compiler used by this script. Note that the use of a

+# compiler to aid in system detection is discouraged as it requires

+# temporary files to be created and, as you can see below, it is a

+# headache to deal with in a portable fashion.

-# CC_FOR_BUILD -- compiler used by this script.

# Historically, `CC_FOR_BUILD' used to be named `HOST_CC'. We still

# use `HOST_CC' if defined, but it is deprecated.

-set_cc_for_build='case $CC_FOR_BUILD,$HOST_CC,$CC in

- ,,) echo "int dummy(){}" > $dummy.c ;

+# Portable tmp directory creation inspired by the Autoconf team.

+set_cc_for_build='

+trap "exitcode=\$?; (rm -f \$tmpfiles 2>/dev/null; rmdir \$tmp 2>/dev/null) && exit \$exitcode" 0 ;

+trap "rm -f \$tmpfiles 2>/dev/null; rmdir \$tmp 2>/dev/null; exit 1" 1 2 13 15 ;

+: ${TMPDIR=/tmp} ;

+ { tmp=`(umask 077 && mktemp -d -q "$TMPDIR/cgXXXXXX") 2>/dev/null` && test -n "$tmp" && test -d "$tmp" ; } ||

+ { test -n "$RANDOM" && tmp=$TMPDIR/cg$$-$RANDOM && (umask 077 && mkdir $tmp) ; } ||

+ { echo "$me: cannot create a temporary directory in $TMPDIR" >&2 ; exit 1 ; } ;

+dummy=$tmp/dummy ;

+tmpfiles="$dummy.c $dummy.o $dummy.rel $dummy" ;

+case $CC_FOR_BUILD,$HOST_CC,$CC in

+ ,,) echo "int x;" > $dummy.c ;

for c in cc gcc c89 c99 ; do

- ($c $dummy.c -c -o $dummy.o) >/dev/null 2>&1 ;

- if test $? = 0 ; then

+ if ($c -c -o $dummy.o $dummy.c) >/dev/null 2>&1 ; then

CC_FOR_BUILD="$c"; break ;

fi ;

done ;

- rm -f $dummy.c $dummy.o $dummy.rel ;

if test x"$CC_FOR_BUILD" = x ; then

CC_FOR_BUILD=no_compiler_found ;

;;

,,*) CC_FOR_BUILD=$CC ;;

,*,*) CC_FOR_BUILD=$HOST_CC ;;

-esac'

+esac ;'

# This is needed to find uname on a Pyramid OSx when run in the BSD universe.

# (ghazi@noc.rutgers.edu 1994年08月24日)

@@ -142,6 +153,7 @@ case "${UNAME_MACHINE}:${UNAME_SYSTEM}:${UNAME_RELEASE}:${UNAME_VERSION}" in

UNAME_MACHINE_ARCH=`(/sbin/$sysctl 2>/dev/null || \

/usr/sbin/$sysctl 2>/dev/null || echo unknown)`

case "${UNAME_MACHINE_ARCH}" in

+ armeb) machine=armeb-unknown ;;

arm*) machine=arm-unknown ;;

sh3el) machine=shl-unknown ;;

sh3eb) machine=sh-unknown ;;

@@ -167,7 +179,18 @@ case "${UNAME_MACHINE}:${UNAME_SYSTEM}:${UNAME_RELEASE}:${UNAME_VERSION}" in

;;

esac

# The OS release

- release=`echo ${UNAME_RELEASE}|sed -e 's/[-_].*/\./'`

+ # Debian GNU/NetBSD machines have a different userland, and

+ # thus, need a distinct triplet. However, they do not need

+ # kernel version information, so it can be replaced with a

+ # suitable tag, in the style of linux-gnu.

+ case "${UNAME_VERSION}" in

+ Debian*)

+ release='-gnu'

+ ;;

+ *)

+ release=`echo ${UNAME_RELEASE}|sed -e 's/[-_].*/\./'`

+ ;;

+ esac

# Since CPU_TYPE-MANUFACTURER-KERNEL-OPERATING_SYSTEM:

# contains redundant information, the shorter form:

# CPU_TYPE-MANUFACTURER-OPERATING_SYSTEM is used.

@@ -216,63 +239,47 @@ case "${UNAME_MACHINE}:${UNAME_SYSTEM}:${UNAME_RELEASE}:${UNAME_VERSION}" in

if test $UNAME_RELEASE = "V4.0"; then

UNAME_RELEASE=`/usr/sbin/sizer -v | awk '{print 3ドル}'`

+ # According to Compaq, /usr/sbin/psrinfo has been available on

+ # OSF/1 and Tru64 systems produced since 1995. I hope that

+ # covers most systems running today. This code pipes the CPU

+ # types through head -n 1, so we only detect the type of CPU 0.

+ ALPHA_CPU_TYPE=`/usr/sbin/psrinfo -v | sed -n -e 's/^ The alpha $.*$ processor.*$/1円/p' | head -n 1`

+ case "$ALPHA_CPU_TYPE" in

+ "EV4 (21064)")

+ UNAME_MACHINE="alpha" ;;

+ "EV4.5 (21064)")

+ UNAME_MACHINE="alpha" ;;

+ "LCA4 (21066/21068)")

+ UNAME_MACHINE="alpha" ;;

+ "EV5 (21164)")

+ UNAME_MACHINE="alphaev5" ;;

+ "EV5.6 (21164A)")

+ UNAME_MACHINE="alphaev56" ;;

+ "EV5.6 (21164PC)")

+ UNAME_MACHINE="alphapca56" ;;

+ "EV5.7 (21164PC)")

+ UNAME_MACHINE="alphapca57" ;;

+ "EV6 (21264)")

+ UNAME_MACHINE="alphaev6" ;;

+ "EV6.7 (21264A)")

+ UNAME_MACHINE="alphaev67" ;;

+ "EV6.8CB (21264C)")

+ UNAME_MACHINE="alphaev68" ;;

+ "EV6.8AL (21264B)")

+ UNAME_MACHINE="alphaev68" ;;

+ "EV6.8CX (21264D)")

+ UNAME_MACHINE="alphaev68" ;;

+ "EV6.9A (21264/EV69A)")

+ UNAME_MACHINE="alphaev69" ;;

+ "EV7 (21364)")

+ UNAME_MACHINE="alphaev7" ;;

+ "EV7.9 (21364A)")

+ UNAME_MACHINE="alphaev79" ;;

+ esac

# A Vn.n version is a released version.

# A Tn.n version is a released field test version.

# A Xn.n version is an unreleased experimental baselevel.

# 1.2 uses "1.2" for uname -r.

- cat <<EOF >$dummy.s

- .data

-\$Lformat:

- .byte 37,100,45,37,120,10,0 # "%d-%x\n"

- .text

- .globl main

- .align 4

- .ent main

-main:

- .frame \30,16,ドル\26,0ドル

- ldgp \29,0ドル(\27ドル)

- .prologue 1

- .long 0x47e03d80 # implver \0ドル

- lda \2,ドル-1

- .long 0x47e20c21 # amask \2,ドル\1ドル

- lda \16,ドル\$Lformat

- mov \0,ドル\17ドル

- not \1,ドル\18ドル

- jsr \26,ドルprintf

- ldgp \29,0ドル(\26ドル)

- mov 0,\16ドル

- jsr \26,ドルexit

- .end main

-EOF

- eval $set_cc_for_build

- $CC_FOR_BUILD $dummy.s -o $dummy 2>/dev/null

- if test "$?" = 0 ; then

- case `./$dummy` in

- 0-0)

- UNAME_MACHINE="alpha"

- ;;

- 1-0)

- UNAME_MACHINE="alphaev5"

- ;;

- 1-1)

- UNAME_MACHINE="alphaev56"

- ;;

- 1-101)

- UNAME_MACHINE="alphapca56"

- ;;

- 2-303)

- UNAME_MACHINE="alphaev6"

- ;;

- 2-307)

- UNAME_MACHINE="alphaev67"

- ;;

- 2-1307)

- UNAME_MACHINE="alphaev68"

- ;;

- esac

- fi

- rm -f $dummy.s $dummy

echo ${UNAME_MACHINE}-dec-osf`echo ${UNAME_RELEASE} | sed -e 's/^[VTX]//' | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz'`

exit 0 ;;

Alpha\ *:Windows_NT*:*)

@@ -313,6 +320,10 @@ EOF

NILE*:*:*:dcosx)

echo pyramid-pyramid-svr4

exit 0 ;;

+ DRS?6000:UNIX_SV:4.2*:7*)

+ case `/usr/bin/uname -p` in

+ sparc) echo sparc-icl-nx7 && exit 0 ;;

+ esac ;;

sun4H:SunOS:5.*:*)

echo sparc-hal-solaris2`echo ${UNAME_RELEASE}|sed -e 's/[^.]*//'`

exit 0 ;;

@@ -419,15 +430,20 @@ EOF

exit (-1);

}

EOF

- $CC_FOR_BUILD $dummy.c -o $dummy \

- && ./$dummy `echo "${UNAME_RELEASE}" | sed -n 's/$[0-9]*$.*/1円/p'` \

- && rm -f $dummy.c $dummy && exit 0

- rm -f $dummy.c $dummy

+ $CC_FOR_BUILD -o $dummy $dummy.c \

+ && $dummy `echo "${UNAME_RELEASE}" | sed -n 's/$[0-9]*$.*/1円/p'` \

+ && exit 0

echo mips-mips-riscos${UNAME_RELEASE}

exit 0 ;;

Motorola:PowerMAX_OS:*:*)

echo powerpc-motorola-powermax

exit 0 ;;

+ Motorola:*:4.3:PL8-*)

+ echo powerpc-harris-powermax

+ exit 0 ;;

+ Night_Hawk:*:*:PowerMAX_OS | Synergy:PowerMAX_OS:*:*)

+ echo powerpc-harris-powermax

+ exit 0 ;;

Night_Hawk:Power_UNIX:*:*)

echo powerpc-harris-powerunix

exit 0 ;;

@@ -500,8 +516,7 @@ EOF

exit(0);

}

EOF

- $CC_FOR_BUILD $dummy.c -o $dummy && ./$dummy && rm -f $dummy.c $dummy && exit 0

- rm -f $dummy.c $dummy

+ $CC_FOR_BUILD -o $dummy $dummy.c && $dummy && exit 0

echo rs6000-ibm-aix3.2.5

elif grep bos324 /usr/include/stdio.h >/dev/null 2>&1; then

echo rs6000-ibm-aix3.2.4

@@ -599,11 +614,21 @@ EOF

exit (0);

}

EOF

- (CCOPTS= $CC_FOR_BUILD $dummy.c -o $dummy 2>/dev/null) && HP_ARCH=`./$dummy`

- if test -z "$HP_ARCH"; then HP_ARCH=hppa; fi

- rm -f $dummy.c $dummy

+ (CCOPTS= $CC_FOR_BUILD -o $dummy $dummy.c 2>/dev/null) && HP_ARCH=`$dummy`

+ test -z "$HP_ARCH" && HP_ARCH=hppa

fi ;;

esac

+ if [ ${HP_ARCH} = "hppa2.0w" ]

+ then

+ # avoid double evaluation of $set_cc_for_build

+ test -n "$CC_FOR_BUILD" || eval $set_cc_for_build

+ if echo __LP64__ | (CCOPTS= $CC_FOR_BUILD -E -) | grep __LP64__ >/dev/null

+ then

+ HP_ARCH="hppa2.0w"

+ else

+ HP_ARCH="hppa64"

+ fi

echo ${HP_ARCH}-hp-hpux${HPUX_REV}

exit 0 ;;

ia64:HP-UX:*:*)

@@ -637,8 +662,7 @@ EOF

exit (0);

}

EOF

- $CC_FOR_BUILD $dummy.c -o $dummy && ./$dummy && rm -f $dummy.c $dummy && exit 0

- rm -f $dummy.c $dummy

+ $CC_FOR_BUILD -o $dummy $dummy.c && $dummy && exit 0

echo unknown-hitachi-hiuxwe2

exit 0 ;;

9000/7??:4.3bsd:*:* | 9000/8?[79]:4.3bsd:*:* )

@@ -696,15 +720,15 @@ EOF

CRAY*TS:*:*:*)

echo t90-cray-unicos${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/'

exit 0 ;;

- CRAY*T3D:*:*:*)

- echo alpha-cray-unicosmk${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/'

- exit 0 ;;

CRAY*T3E:*:*:*)

echo alphaev5-cray-unicosmk${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/'

exit 0 ;;

CRAY*SV1:*:*:*)

echo sv1-cray-unicos${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/'

exit 0 ;;

+ *:UNICOS/mp:*:*)

+ echo nv1-cray-unicosmp${UNAME_RELEASE} | sed -e 's/\.[^.]*$/.X/'

+ exit 0 ;;

F30[01]:UNIX_System_V:*:* | F700:UNIX_System_V:*:*)

FUJITSU_PROC=`uname -m | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz'`

FUJITSU_SYS=`uname -p | tr 'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 'abcdefghijklmnopqrstuvwxyz' | sed -e 's/\///'`

@@ -720,8 +744,19 @@ EOF

*:BSD/OS:*:*)

echo ${UNAME_MACHINE}-unknown-bsdi${UNAME_RELEASE}

exit 0 ;;

- *:FreeBSD:*:*)

- echo ${UNAME_MACHINE}-unknown-freebsd`echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'`

+ *:FreeBSD:*:*|*:GNU/FreeBSD:*:*)

+ # Determine whether the default compiler uses glibc.

+ eval $set_cc_for_build

+ sed 's/^ //' << EOF >$dummy.c

+ #include <features.h>

+ #if __GLIBC__ >= 2

+ LIBC=gnu

+ #else

+ LIBC=

+ #endif

+EOF

+ eval `$CC_FOR_BUILD -E $dummy.c 2>/dev/null | grep ^LIBC=`

+ echo ${UNAME_MACHINE}-unknown-freebsd`echo ${UNAME_RELEASE}|sed -e 's/[-(].*//'`${LIBC:+-$LIBC}

exit 0 ;;

i*:CYGWIN*:*)

echo ${UNAME_MACHINE}-pc-cygwin

@@ -733,13 +768,16 @@ EOF

echo ${UNAME_MACHINE}-pc-pw32

exit 0 ;;

x86:Interix*:3*)

- echo i386-pc-interix3

+ echo i586-pc-interix3

+ exit 0 ;;

+ [345]86:Windows_95:* | [345]86:Windows_98:* | [345]86:Windows_NT:*)

+ echo i${UNAME_MACHINE}-pc-mks

exit 0 ;;

i*:Windows_NT*:* | Pentium*:Windows_NT*:*)

# How do we know it's Interix rather than the generic POSIX subsystem?

# It also conflicts with pre-2.0 versions of AT&T UWIN. Should we

# UNAME_MACHINE based on the output of uname instead of i386?

- echo i386-pc-interix

+ echo i586-pc-interix

exit 0 ;;

i*:UWIN*:*)

echo ${UNAME_MACHINE}-pc-uwin

@@ -759,6 +797,9 @@ EOF

arm*:Linux:*:*)

echo ${UNAME_MACHINE}-unknown-linux-gnu

exit 0 ;;

+ cris:Linux:*:*)

+ echo cris-axis-linux-gnu

+ exit 0 ;;

ia64:Linux:*:*)

echo ${UNAME_MACHINE}-unknown-linux-gnu

exit 0 ;;

@@ -782,8 +823,26 @@ EOF

#endif

EOF

eval `$CC_FOR_BUILD -E $dummy.c 2>/dev/null | grep ^CPU=`

- rm -f $dummy.c

- test x"${CPU}" != x && echo "${CPU}-pc-linux-gnu" && exit 0

+ test x"${CPU}" != x && echo "${CPU}-unknown-linux-gnu" && exit 0

+ ;;

+ mips64:Linux:*:*)

+ eval $set_cc_for_build

+ sed 's/^ //' << EOF >$dummy.c

+ #undef CPU

+ #undef mips64

+ #undef mips64el

+ #if defined(__MIPSEL__) || defined(__MIPSEL) || defined(_MIPSEL) || defined(MIPSEL)

+ CPU=mips64el

+ #else

+ #if defined(__MIPSEB__) || defined(__MIPSEB) || defined(_MIPSEB) || defined(MIPSEB)

+ CPU=mips64

+ #else

+ CPU=

+ #endif

+EOF

+ eval `$CC_FOR_BUILD -E $dummy.c 2>/dev/null | grep ^CPU=`

+ test x"${CPU}" != x && echo "${CPU}-unknown-linux-gnu" && exit 0

;;

ppc:Linux:*:*)

echo powerpc-unknown-linux-gnu

@@ -845,7 +904,7 @@ EOF

;;

a.out-i386-linux)

echo "${UNAME_MACHINE}-pc-linux-gnuaout"

- exit 0 ;;

+ exit 0 ;;

coff-i386)

echo "${UNAME_MACHINE}-pc-linux-gnucoff"

exit 0 ;;

@@ -878,7 +937,6 @@ EOF

#endif

EOF

eval `$CC_FOR_BUILD -E $dummy.c 2>/dev/null | grep ^LIBC=`

- rm -f $dummy.c

test x"${LIBC}" != x && echo "${UNAME_MACHINE}-pc-linux-${LIBC}" && exit 0

test x"${TENTATIVE}" != x && echo "${TENTATIVE}" && exit 0

;;

@@ -896,6 +954,23 @@ EOF

# Use sysv4.2uw... so that sysv4* matches it.

echo ${UNAME_MACHINE}-pc-sysv4.2uw${UNAME_VERSION}

exit 0 ;;

+ i*86:OS/2:*:*)

+ # If we were able to find `uname', then EMX Unix compatibility

+ # is probably installed.

+ echo ${UNAME_MACHINE}-pc-os2-emx

+ exit 0 ;;

+ i*86:XTS-300:*:STOP)

+ echo ${UNAME_MACHINE}-unknown-stop

+ exit 0 ;;

+ i*86:atheos:*:*)

+ echo ${UNAME_MACHINE}-unknown-atheos

+ exit 0 ;;

+ i*86:LynxOS:2.*:* | i*86:LynxOS:3.[01]*:* | i*86:LynxOS:4.0*:*)

+ echo i386-unknown-lynxos${UNAME_RELEASE}

+ exit 0 ;;

+ i*86:*DOS:*:*)

+ echo ${UNAME_MACHINE}-pc-msdosdjgpp

+ exit 0 ;;

i*86:*:4.*:* | i*86:SYSTEM_V:4.*:*)

UNAME_REL=`echo ${UNAME_RELEASE} | sed 's/\/MP$//'`

if grep Novell /usr/include/link.h >/dev/null 2>/dev/null; then

@@ -917,22 +992,19 @@ EOF

UNAME_REL=`sed -n 's/.*Version //p' </usr/options/cb.name`

echo ${UNAME_MACHINE}-pc-isc$UNAME_REL

elif /bin/uname -X 2>/dev/null >/dev/null ; then

- UNAME_REL=`(/bin/uname -X|egrep Release|sed -e 's/.*= //')`

- (/bin/uname -X|egrep i80486 >/dev/null) && UNAME_MACHINE=i486

- (/bin/uname -X|egrep '^Machine.*Pentium' >/dev/null) \

+ UNAME_REL=`(/bin/uname -X|grep Release|sed -e 's/.*= //')`

+ (/bin/uname -X|grep i80486 >/dev/null) && UNAME_MACHINE=i486

+ (/bin/uname -X|grep '^Machine.*Pentium' >/dev/null) \

&& UNAME_MACHINE=i586

- (/bin/uname -X|egrep '^Machine.*Pent ?II' >/dev/null) \

+ (/bin/uname -X|grep '^Machine.*Pent *II' >/dev/null) \

&& UNAME_MACHINE=i686

- (/bin/uname -X|egrep '^Machine.*Pentium Pro' >/dev/null) \

+ (/bin/uname -X|grep '^Machine.*Pentium Pro' >/dev/null) \

&& UNAME_MACHINE=i686

echo ${UNAME_MACHINE}-pc-sco$UNAME_REL

else

echo ${UNAME_MACHINE}-pc-sysv32

exit 0 ;;

- i*86:*DOS:*:*)

- echo ${UNAME_MACHINE}-pc-msdosdjgpp

- exit 0 ;;

pc:*:*:*)

# Left here for compatibility:

# uname -m prints for DJGPP always 'pc', but it prints nothing about

@@ -956,9 +1028,15 @@ EOF

# "miniframe"

echo m68010-convergent-sysv

exit 0 ;;

+ mc68k:UNIX:SYSTEM5:3.51m)

+ echo m68k-convergent-sysv

+ exit 0 ;;

+ M680?0:D-NIX:5.3:*)

+ echo m68k-diab-dnix

+ exit 0 ;;

M68*:*:R3V[567]*:*)

test -r /sysV68 && echo 'm68k-motorola-sysv' && exit 0 ;;

- 3[34]??:*:4.0:3.0 | 3[34]??A:*:4.0:3.0 | 3[34]??,*:*:4.0:3.0 | 3[34]??/*:*:4.0:3.0 | 4850:*:4.0:3.0 | SKA40:*:4.0:3.0)

+ 3[34]??:*:4.0:3.0 | 3[34]??A:*:4.0:3.0 | 3[34]??,*:*:4.0:3.0 | 3[34]??/*:*:4.0:3.0 | 4400:*:4.0:3.0 | 4850:*:4.0:3.0 | SKA40:*:4.0:3.0 | SDS2:*:4.0:3.0 | SHG2:*:4.0:3.0)

OS_REL=''

test -r /etc/.relid \

&& OS_REL=.`sed -n 's/[^ ]* [^ ]* $[0-9][0-9]$.*/1円/p' < /etc/.relid`

@@ -975,9 +1053,6 @@ EOF

mc68030:UNIX_System_V:4.*:*)

echo m68k-atari-sysv4

exit 0 ;;

- i*86:LynxOS:2.*:* | i*86:LynxOS:3.[01]*:* | i*86:LynxOS:4.0*:*)

- echo i386-unknown-lynxos${UNAME_RELEASE}

- exit 0 ;;

TSUNAMI:LynxOS:2.*:*)

echo sparc-unknown-lynxos${UNAME_RELEASE}

exit 0 ;;

@@ -1049,6 +1124,9 @@ EOF

SX-5:SUPER-UX:*:*)

echo sx5-nec-superux${UNAME_RELEASE}

exit 0 ;;

+ SX-6:SUPER-UX:*:*)

+ echo sx6-nec-superux${UNAME_RELEASE}

+ exit 0 ;;

Power*:Rhapsody:*:*)

echo powerpc-apple-rhapsody${UNAME_RELEASE}

exit 0 ;;

@@ -1056,7 +1134,11 @@ EOF

echo ${UNAME_MACHINE}-apple-rhapsody${UNAME_RELEASE}

exit 0 ;;

*:Darwin:*:*)

- echo `uname -p`-apple-darwin${UNAME_RELEASE}

+ case `uname -p` in

+ *86) UNAME_PROCESSOR=i686 ;;

+ powerpc) UNAME_PROCESSOR=powerpc ;;

+ esac

+ echo ${UNAME_PROCESSOR}-apple-darwin${UNAME_RELEASE}

exit 0 ;;

*:procnto*:*:* | *:QNX:[0123456789]*:*)

UNAME_PROCESSOR=`uname -p`

@@ -1069,7 +1151,7 @@ EOF

*:QNX:*:4*)

echo i386-pc-qnx

exit 0 ;;

- NSR-[GKLNPTVW]:NONSTOP_KERNEL:*:*)

+ NSR-[DGKLNPTVW]:NONSTOP_KERNEL:*:*)

echo nsr-tandem-nsk${UNAME_RELEASE}

exit 0 ;;

*:NonStop-UX:*:*)

@@ -1092,11 +1174,6 @@ EOF

echo ${UNAME_MACHINE}-unknown-plan9

exit 0 ;;

- i*86:OS/2:*:*)

- # If we were able to find `uname', then EMX Unix compatibility

- # is probably installed.

- echo ${UNAME_MACHINE}-pc-os2-emx

- exit 0 ;;

*:TOPS-10:*:*)

echo pdp10-unknown-tops10

exit 0 ;;

@@ -1115,12 +1192,6 @@ EOF

*:ITS:*:*)

echo pdp10-unknown-its

exit 0 ;;

- i*86:XTS-300:*:STOP)

- echo ${UNAME_MACHINE}-unknown-stop

- exit 0 ;;

- i*86:atheos:*:*)

- echo ${UNAME_MACHINE}-unknown-atheos

- exit 0 ;;

esac

#echo '(No uname command or uname output not recognized.)' 1>&2

@@ -1241,8 +1312,7 @@ main ()

}

EOF

-$CC_FOR_BUILD $dummy.c -o $dummy 2>/dev/null && ./$dummy && rm -f $dummy.c $dummy && exit 0

-rm -f $dummy.c $dummy

+$CC_FOR_BUILD -o $dummy $dummy.c 2>/dev/null && $dummy && exit 0

# Apollos put the system type in the environment.

diff --git a/gcl/config.sub b/gcl/config.sub
index f3657978c..fe4f1edf3 100755
--- a/gcl/config.sub
+++ b/gcl/config.sub

@@ -1,9 +1,9 @@

#! /bin/sh

# Configuration validation subroutine script.

-# 2000, 2001, 2002 Free Software Foundation, Inc.

+# 2000, 2001, 2002, 2003 Free Software Foundation, Inc.

-timestamp='2002-03-07'

+timestamp='2003-05-09'

# This file is (in principle) common to ALL GNU software.

# The presence of a machine in this file suggests that SOME GNU software

@@ -118,7 +118,7 @@ esac

# Here we must recognize all the valid KERNEL-OS combinations.

maybe_os=`echo 1ドル | sed 's/^$.*$-$[^-]*-[^-]*$$/2円/'`

case $maybe_os in

os=-$maybe_os

basic_machine=`echo 1ドル | sed 's/^$.*$-$[^-]*-[^-]*$$/1円/'`

;;

@@ -229,24 +229,36 @@ case $basic_machine in

| arc | arm | arm[bl]e | arme[lb] | armv[2345] | armv[345][lb] | avr \

- | c4x | clipper \

- | d10v | d30v | dsp16xx \

- | fr30 \

+ | clipper \

+ | d10v | d30v | dlx | dsp16xx \

+ | fr30 | frv \

| i370 | i860 | i960 | ia64 \

+ | ip2k \

| m32r | m68000 | m68k | m88k | mcore \

- | mips64vr4100 | mips64vr4100el | mips64vr4300 \

- | mips64vr4300el | mips64vr5000 | mips64vr5000el \

- | mipsisa32 | mipsisa64 \

+ | mips16 \

+ | mips64 | mips64el \

+ | mips64vr | mips64vrel \

+ | mips64orion | mips64orionel \

+ | mips64vr4100 | mips64vr4100el \

+ | mips64vr4300 | mips64vr4300el \

+ | mips64vr5000 | mips64vr5000el \

+ | mipsisa32 | mipsisa32el \

+ | mipsisa32r2 | mipsisa32r2el \

+ | mipsisa64 | mipsisa64el \

+ | mipsisa64sb1 | mipsisa64sb1el \

+ | mipsisa64sr71k | mipsisa64sr71kel \

+ | mipstx39 | mipstx39el \

| mn10200 | mn10300 \

+ | msp430 \

| ns16k | ns32k \

| openrisc | or32 \

| pdp10 | pdp11 | pj | pjl \

| pyramid \

- | sh | sh[34] | sh[34]eb | shbe | shle | sh64 \

+ | sh | sh[1234] | sh[23]e | sh[34]eb | shbe | shle | sh[1234]le | sh3ele \

+ | sh64 | sh64le \

| strongarm \

| tahoe | thumb | tic80 | tron \

@@ -281,34 +293,49 @@ case $basic_machine in

| alpha-* | alphaev[4-8]-* | alphaev56-* | alphaev6[78]-* \

| alpha64-* | alpha64ev[4-8]-* | alpha64ev56-* | alpha64ev6[78]-* \

| alphapca5[67]-* | alpha64pca5[67]-* | arc-* \

- | arm-* | armbe-* | armle-* | armv*-* \

| avr-* \

| bs2000-* \

- | c[123]* | c30-* | [cjt]90-* | c54x-* \

+ | c[123]* | c30-* | [cjt]90-* | c4x-* | c54x-* | c55x-* | c6x-* \

| clipper-* | cydra-* \

- | d10v-* | d30v-* \

+ | d10v-* | d30v-* | dlx-* \

| elxsi-* \

- | f30[01]-* | f700-* | fr30-* | fx80-* \

+ | f30[01]-* | f700-* | fr30-* | frv-* | fx80-* \

| h8300-* | h8500-* \

| i*86-* | i860-* | i960-* | ia64-* \

+ | ip2k-* \

| m32r-* \

| m68000-* | m680[012346]0-* | m68360-* | m683?2-* | m68k-* \

| m88110-* | m88k-* | mcore-* \

- | mips64orionel-* | mips64vr4100-* | mips64vr4100el-* \

- | mips64vr4300-* | mips64vr4300el-* | mipsbe-* | mipseb-* \

- | mipsle-* | mipsel-* | mipstx39-* | mipstx39el-* \

- | none-* | np1-* | ns16k-* | ns32k-* \

+ | mips16-* \

+ | mips64-* | mips64el-* \

+ | mips64vr-* | mips64vrel-* \

+ | mips64orion-* | mips64orionel-* \

+ | mips64vr4100-* | mips64vr4100el-* \

+ | mips64vr4300-* | mips64vr4300el-* \

+ | mips64vr5000-* | mips64vr5000el-* \

+ | mipsisa32-* | mipsisa32el-* \

+ | mipsisa32r2-* | mipsisa32r2el-* \

+ | mipsisa64-* | mipsisa64el-* \

+ | mipsisa64sb1-* | mipsisa64sb1el-* \

+ | mipsisa64sr71k-* | mipsisa64sr71kel-* \

+ | mipstx39-* | mipstx39el-* \

+ | msp430-* \

+ | none-* | np1-* | nv1-* | ns16k-* | ns32k-* \

| orion-* \

| pdp10-* | pdp11-* | pj-* | pjl-* | pn-* | power-* \

| pyramid-* \

| romp-* | rs6000-* \

- | sh-* | sh[34]-* | sh[34]eb-* | shbe-* | shle-* | sh64-* \

+ | sh-* | sh[1234]-* | sh[23]e-* | sh[34]eb-* | shbe-* \

- | tahoe-* | thumb-* | tic30-* | tic54x-* | tic80-* | tron-* \

+ | tahoe-* | thumb-* \

+ | tic30-* | tic4x-* | tic54x-* | tic55x-* | tic6x-* | tic80-* \

+ | tron-* \

| v850-* | v850e-* | vax-* \

| we32k-* \

| x86-* | x86_64-* | xps100-* | xscale-* | xstormy16-* \

@@ -346,6 +373,9 @@ case $basic_machine in

basic_machine=a29k-none

os=-bsd

;;

+ amd64)

+ basic_machine=x86_64-pc

+ ;;

amdahl)

basic_machine=580-amdahl

os=-sysv

@@ -695,6 +725,10 @@ case $basic_machine in

np1)

basic_machine=np1-gould

;;

+ nv1)

+ basic_machine=nv1-cray

+ os=-unicosmp

+ ;;

nsr-tandem)

basic_machine=nsr-tandem

;;

@@ -728,13 +762,13 @@ case $basic_machine in

pbb)

basic_machine=m68k-tti

;;

- pc532 | pc532-*)

+ pc532 | pc532-*)

basic_machine=ns32k-pc532

;;

pentium | p5 | k5 | k6 | nexgen | viac3)

basic_machine=i586-pc

;;

- pentiumpro | p6 | 6x86 | athlon)

+ pentiumpro | p6 | 6x86 | athlon | athlon_*)

basic_machine=i686-pc

;;

pentiumii | pentium2)

@@ -755,22 +789,22 @@ case $basic_machine in

power) basic_machine=power-ibm

;;

ppc) basic_machine=powerpc-unknown

- ;;

+ ;;

ppc-*) basic_machine=powerpc-`echo $basic_machine | sed 's/^[^-]*-//'`

;;

ppcle | powerpclittle | ppc-le | powerpc-little)

basic_machine=powerpcle-unknown

- ;;

+ ;;

ppcle-* | powerpclittle-*)

basic_machine=powerpcle-`echo $basic_machine | sed 's/^[^-]*-//'`

;;

ppc64) basic_machine=powerpc64-unknown

- ;;

+ ;;

ppc64-*) basic_machine=powerpc64-`echo $basic_machine | sed 's/^[^-]*-//'`

;;

ppc64le | powerpc64little | ppc64-le | powerpc64-little)

basic_machine=powerpc64le-unknown

- ;;

+ ;;

ppc64le-* | powerpc64little-*)

basic_machine=powerpc64le-`echo $basic_machine | sed 's/^[^-]*-//'`

;;

@@ -801,6 +835,12 @@ case $basic_machine in

basic_machine=a29k-amd

os=-udi

;;

+ sb1)

+ basic_machine=mipsisa64sb1-unknown

+ ;;

+ sb1el)

+ basic_machine=mipsisa64sb1el-unknown

+ ;;

sequent)

basic_machine=i386-sequent

;;

@@ -866,7 +906,7 @@ case $basic_machine in

sun386 | sun386i | roadrunner)

basic_machine=i386-sun

;;

- sv1)

+ sv1)

basic_machine=sv1-cray

os=-unicos

;;

@@ -874,10 +914,6 @@ case $basic_machine in

basic_machine=i386-sequent

os=-dynix

;;

- t3d)

- basic_machine=alpha-cray

- os=-unicos

- ;;

t3e)

basic_machine=alphaev5-cray

os=-unicos

@@ -886,10 +922,22 @@ case $basic_machine in

basic_machine=t90-cray

os=-unicos

;;

+ tic4x | c4x*)

+ basic_machine=tic4x-unknown

+ os=-coff

+ ;;

tic54x | c54x*)

basic_machine=tic54x-unknown

os=-coff

;;

+ tic55x | c55x*)

+ basic_machine=tic55x-unknown

+ os=-coff

+ ;;

+ tic6x | c6x*)

+ basic_machine=tic6x-unknown

+ os=-coff

+ ;;

tx39)

basic_machine=mipstx39-unknown

;;

@@ -924,8 +972,8 @@ case $basic_machine in

os=-vms

;;

vpp*|vx|vx-*)

- basic_machine=f301-fujitsu

- ;;

+ basic_machine=f301-fujitsu

+ ;;

vxworks960)

basic_machine=i960-wrs

os=-vxworks

@@ -946,11 +994,7 @@ case $basic_machine in

basic_machine=hppa1.1-winbond

os=-proelf

;;

- windows32)

- basic_machine=i386-pc

- os=-windows32-msvcrt

- ;;

- xps | xps100)

+ xps | xps100)

basic_machine=xps100-honeywell

;;

ymp)

@@ -996,7 +1040,7 @@ case $basic_machine in

we32k)

basic_machine=we32k-att

;;

- sh3 | sh4 | sh3eb | sh4eb)

+ sh3 | sh4 | sh[34]eb | sh[1234]le | sh[23]ele)

basic_machine=sh-unknown

;;

sh64)

@@ -1005,7 +1049,7 @@ case $basic_machine in

sparc | sparcv9 | sparcv9b)

basic_machine=sparc-sun

;;

- cydra)

+ cydra)

basic_machine=cydra-cydrome

;;

orion)

@@ -1020,10 +1064,6 @@ case $basic_machine in

pmac | pmac-mpw)

basic_machine=powerpc-apple

;;

- c4x*)

- basic_machine=c4x-none

- os=-coff

- ;;

*-unknown)

# Make sure to match an already-canonicalized machine name.

;;

@@ -1086,11 +1126,12 @@ case $os in

| -chorusos* | -chorusrdb* \

- | -morphos* | -superux* | -rtmk* | -rtmk-nova*)

+ | -powermax* | -dnix*)

# Remember, each alternative MUST END IN *, to match a version number.

;;

-qnx*)

@@ -1102,8 +1143,10 @@ case $os in

;;

esac

;;

+ -nto-qnx*)

+ ;;

-nto*)

- os=-nto-qnx

+ os=`echo $os | sed -e 's|nto|nto-qnx|'`

;;

-sim | -es1800* | -hms* | -xray | -os68k* | -none* | -v88r* \

@@ -1155,7 +1198,7 @@ case $os in

os=-rtmk-nova

;;

-ns2 )

- os=-nextstep2

+ os=-nextstep2

;;

-nsk*)

os=-nsk

@@ -1194,8 +1237,14 @@ case $os in

-xenix)

os=-xenix

;;

- -*mint | -mint[0-9]* | -*MiNT | -MiNT[0-9]*)

- os=-mint

+ -*mint | -mint[0-9]* | -*MiNT | -MiNT[0-9]*)

+ os=-mint

+ ;;

+ -aros*)

+ os=-aros

+ ;;

+ -kaos*)

+ os=-kaos

;;

-none)

;;

@@ -1232,7 +1281,7 @@ case $basic_machine in

pdp10-*)

os=-tops20

;;

- pdp11-*)

+ pdp11-*)

os=-none

;;

*-dec | vax-*)

@@ -1325,19 +1374,19 @@ case $basic_machine in

*-next)

os=-nextstep3

;;

- *-gould)

+ *-gould)

os=-sysv

;;

- *-highlevel)

+ *-highlevel)

os=-bsd

;;

*-encore)

os=-bsd

;;

- *-sgi)

+ *-sgi)

os=-irix

;;

- *-siemens)

+ *-siemens)

os=-sysv4

;;

*-masscomp)

@@ -1409,7 +1458,7 @@ case $basic_machine in

-ptx*)

vendor=sequent

;;

- -vxsim* | -vxworks*)

+ -vxsim* | -vxworks* | -windiss*)

vendor=wrs

;;

-aux*)

diff --git a/gcl/o/sequence.d b/gcl/o/sequence.d
index 5994e1ed6..02c8565ed 100755
--- a/gcl/o/sequence.d
+++ b/gcl/o/sequence.d

@@ -123,7 +123,9 @@ int index;

vs_push(make_fixnum(index));

/* FIXME message should indicate out of range */

- FEwrong_type_argument(sLpositive_fixnum,vs_head);

+ Icall_error_handler(sKwrong_type_argument,

+ make_simple_string("The index, ~S, is too large."),

+ 1,vs_head);

return(Cnil);

}

@@ -257,7 +259,7 @@ E:

case aet_short:

case aet_ushort:

for (i = s, j = 0; i < e; i++, j++)

- USHORT(x, j) = USHORT(sequence, i);

+ USHORT_GCL(x, j) = USHORT_GCL(sequence, i);

break;

case aet_char:

case aet_uchar:

@@ -414,7 +416,7 @@ object seq;

case aet_short:

case aet_ushort:

for (j = k - 1, i = 0; j >=0; --j, i++)

- USHORT(y, j) = USHORT(x, i);

+ USHORT_GCL(y, j) = USHORT_GCL(x, i);

break;

case aet_char:

case aet_uchar:

@@ -517,9 +519,9 @@ object seq;

case aet_ushort:

for (i = 0, j = k - 1; i < j; i++, --j) {

unsigned short y;

- y = USHORT(x, i);

- USHORT(x, i) = USHORT(x, j);

- USHORT(x, y) = y;

+ y = USHORT_GCL(x, i);

+ USHORT_GCL(x, i) = USHORT_GCL(x, j);

+ USHORT_GCL(x, y) = y;

}

return(seq);

case aet_char:

diff --git a/gcl/o/usig2_aux.c b/gcl/o/usig2_aux.c
index 0998d3161..3f434ecde 100755
--- a/gcl/o/usig2_aux.c
+++ b/gcl/o/usig2_aux.c

@@ -1,58 +1,58 @@

-XS(string_register->st.st_fillp);

-XS(string_register->st.st_dim);

+XSI(string_register->st.st_fillp);

+XSI(string_register->st.st_dim);

XS(string_register->st.st_self);

-XS(token->st.st_fillp);

-XS(in_signal_handler);

-XS(nlj_active);

+XSI(token->st.st_fillp);

+XSI(in_signal_handler);

+XSI(nlj_active);

XS(nlj_fr);

XS(nlj_tag);

XS(CMPtemp);

XS(CMPtemp1);

XS(CMPtemp2);

XS(CMPtemp3);

-XS(FIXtemp);

-XS(PRINTarray);

-XS(PRINTbase);

+XSI(FIXtemp);

+XSI(PRINTarray);

+XSI(PRINTbase);

XS(PRINTcase);

-XS(PRINTcircle);

-XS(PRINTescape);

-XS(PRINTgensym);

-XS(PRINTlength);

-XS(PRINTlevel);

-XS(PRINTpackage);

-XS(PRINTpretty);

-XS(PRINTradix);

+XSI(PRINTcircle);

+XSI(PRINTescape);

+XSI(PRINTgensym);

+XSI(PRINTlength);

+XSI(PRINTlevel);

+XSI(PRINTpackage);

+XSI(PRINTpretty);

+XSI(PRINTradix);

XS(PRINTstream);

-XS(PRINTstructure);

+XSI(PRINTstructure);

XS(PRINTvs_limit);

XS(PRINTvs_top);

-XS(READbase);

-XS(READdefault_float_format);

-XS(READsuppress);

+XSI(READbase);

+XSI(READdefault_float_format);

+XSI(READsuppress);

XS(READtable);

-XS(ctl_end);

-XS(ctl_index);

-XS(ctl_origin);

+XSI(ctl_end);

+XSI(ctl_index);

+XSI(ctl_origin);

XS(endp_temp);

-XS(eval1);

-XS(line_length);

-XS(in_list_flag);

+XSI(eval1);

+XSI(line_length);

+XSI(in_list_flag);

XS(kf);

XS(tf);

-XS(left_trim);

-XS(right_trim);

+XSI(left_trim);

+XSI(right_trim);

XS(lex_env);

XS(key_function);

XS(test_function);

XS(item_compared);

-XS(intern_flag);

+XSI(intern_flag);

XS(printStructBufp);

XS(sfaslp);

-XS(preserving_whitespace_flag);

+XSI(preserving_whitespace_flag);

XS(sharing_table);

-XS(string_sign);

-XS(string_boundary);

+XSI(string_sign);

+XSI(string_boundary);

XS(car_or_cdr);

XS(casefun);

XS(tmp_alloc);

generated by cgit v1.2.3 (git 2.39.1) at 2025年09月01日 18:02:16 +0000