Re: [Gcl-devel] memory damaged at (system:STRING-MATCH:anykey:verbose)

[Camm Maguire]

Greetings, and thanks!

OK, a bit clearer now.  From what I can tell, the specfntest.lisp is
broken as it is missing the (eval-when (compile ...) ...) around the
def-op macro forms which is in maxima's specfn.l.  I will revert the
eval-when-defaults which were correct before, and under which
specfntest.lisp should always fail on first compile.  The reason it
succeeds later is that the macro for f+/f- is in place after the
aborted load.  So in short, specfntest.lisp is not trapping your
maxima problems.  I'm being short here, but I hope you get the drift.

As far as maxima goes, I would definitely check heap_end and core_end
vis a vis (V166))->fixa.fixa_self at the site of the fault, and
vs_limit for humors sake.  I'd then do a disassemble from within gdb
and inspect instruction 500f, pertinent regs, etc.  

Please keep us posted.  We might be close to closing this one.

Take care,

"Mike Thomas" <address@hidden> writes:

> Hi Camm.
> 
> There are three parts to this email - the first regarding the test program,
> the second regarding the Maxima specfn crash, the third the result of your
> eval-when and funlink patches.
> 
> I haven't successfully separated them due to lack of time, but I hope you
> can follow relatively easily.
> 
> | OK, Mike, I don't think this one is Windows' fault.
> |
> | Please apply the following to hopefully fix:
> |
> 
> Thanks. The patch goes wrong in PCL as shown at the end of the email.
> 
> I therefore swapped the *eval-when-defaults* setting back while retaining
> the extra checks in "funlink.c" to see whether it improved the test program
> and indeed that no longer segfaults, returning instead an appropriate Lisp
> error message without crashing - so that is a positive result.
> 
> Repeating the compile and load without restarting GCL results in a
> successful load.
> 
> I redeclared *acursor* per your suggestion but still can't reproduce the
> Maxima specfn.o crash with the test file.  I'll look more closely to see
> what else is different later.
> 
> Unfortunately the Maxima "specfn.o" load still cranks out a memory damaged
> error in aset-by-cursor (see gdb output and segment of C file further down).
> Looking at the alleged offending line in the debugger I can't see a problem
> with the array and pointer dereferences.
> 
> 
> ---------------TEST PROGRAM------------------------------------------------
> >(compile-file "specfntest.lsp")(load "specfntest.o")
> 
> Compiling specfntest.lsp.
> ; (IMPORT 'SLOOP:SLOOP) is being compiled.
> ;; Warning: The package operation (IMPORT 'SLOOP:SLOOP) was in a bad place.
> End of Pass 1.
> End of Pass 2.
> `-mcpu=' is deprecated. Use `-mtune=' or '-march=' instead.
> OPTIMIZE levels: Safety=0 (No runtime error checking), Space=0, Speed=3
> Finished compiling specfntest.lsp.
> #p"specfntest.o"
> 
> >
> Loading specfntest.o
> Error in FILLARRAY [or a callee]: F- is not of type FUNCTION.
> 
> Fast links are on: do (use-fast-links nil) for debugging
> Broken at FILLARRAY.  Type :H for Help.
>  1 (Continue) Retry loading file "specfntest.o".
>  2 Return to top level.
> dbl:>>2
> 
> Top level.
> >(compile-file "specfntest.lsp")(load "specfntest.o")
> 
> Compiling specfntest.lsp.
> ; (IMPORT 'SLOOP) is being compiled.
> ;; Warning: The package operation (IMPORT 'SLOOP) was in a bad place.
> End of Pass 1.
> End of Pass 2.
> `-mcpu=' is deprecated. Use `-mtune=' or '-march=' instead.
> OPTIMIZE levels: Safety=0 (No runtime error checking), Space=0, Speed=3
> Finished compiling specfntest.lsp.
> #p"specfntest.o"
> 
> >
> Loading specfntest.o
> start address -T 1a6f4000 Finished loading specfntest.o
> 5504
> 
> >
> ---------------MAXIMA SPECFN-----------------------------------------------
> (gdb) add-symbol-file binary-gcl/specfn.o 0x1aed1000
> add symbol table from file "binary-gcl/specfn.o" at
>         .text_addr = 0x1aed1000
> Reading symbols from binary-gcl/specfn.o...done.
> (gdb) n
> 328        {bds_bind(sSPinit,fasl_vec);
> (gdb) n
> 329         bds_bind(sSPmemory,memory);
> (gdb) n
> 333         (*at)();
> (gdb) s
> init_specfn () at c:binary-gcl/specfn.c:4
> 4       void init_specfn(){do_init(VV);}
> (gdb) n
> fillarray: x = (14.0 1.9350643000000001 0.16607303300000001
>                 0.0248793229 0.0046863619600000005
>                 0.0010016274999999999 2.3200219600000001E-4
>                 5.6817822700000005E-5 1.4496300600000003E-5
>                 3.8163294599999999E-6 1.0299042599999999E-6
>                 2.8357538499999994E-7 7.9387055000000009E-8
>                 2.2536705000000001E-8 6.4743380000000008E-9)
> set-up-cursor: lis (15)
> set-up-cursor: 1 *acursor* #(1 0 0 0 0 0 0 0 0 0 0)
> set-up-cursor: 2 *acursor* #(1 0 0 0 0 0 14 0 0 0 0)
> set-up-cursor: 3 *acursor* #(1 0 0 0 0 0 14 0 0 0 0)
> fillarray: Setting by cursor ar #(0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0
>                                   0.0 0.0 0.0 0.0 0.0 0.0)
> fillarray: Just printed ar, calling aset-by-cursor ar = #(0.0 0.0 0.0
>                                                           0.0 0.0 0.0
>                                                           0.0 0.0 0.0
>                                                           0.0 0.0 0.0
>                                                           0.0 0.0 0.0), (car
> x)
> = 14.0
> aset-by-cursor: curs #(1 0 0 0 0 0 14 0 0 0 0)
> val 14.0
> ar #(0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0)
> aset-by-cursor: (aref curs 0) 1
> aset-by-cursor: (aref curs 1) 0
> aset-by-cursor: (aref ar 0) 0.0
> aset-by-cursor: (aref ar 1) 0.0
> aset-by-cursor: ar #(1.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0
>                      0.0 0.0 0.0)
> aset-by-cursor: ar #(14.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0 0.0
>                      0.0 0.0 0.0)
> 
> Program received signal SIGSEGV, Segmentation fault.
> 0x1a89500f in L44 () at c:binary-gcl/clmacs.c:1990
> 1990            vs_top=sup;switch((long)((V166))->fixa.fixa_self[(long)0]){
> (gdb) bt
> #0  0x1a89500f in L44 () at c:binary-gcl/clmacs.c:1990
> #1  0x004303e4 in call_or_link (sym=0x1a709024, link=0x1a896da4)
>     at funlink.c:88
> #2  0x1a89697a in LnkT99 () at c:binary-gcl/clmacs.c:2654
> #3  0x1a895c9e in L45 () at c:binary-gcl/clmacs.c:2245
> #4  0x0041ee26 in eval (form=0x6d6ab0) at eval.c:1090
> #5  0x00418efb in do_init (statVV=0x1aed9150) at cmpaux.c:409
> #6  0x1aed1013 in init_specfn () at c:binary-gcl/specfn.c:4
> #7  0x00418d63 in call_init (init_address=0, memory=0x1a453bb8,
>     fasl_vec=0x1aed0428, fptr=0) at cmpaux.c:333
> #8  0x0046d5b0 in fasload (faslfile=0x1aecba8c) at sfasl.c:465
> #9  0x00427f21 in Lload () at file.d:1842
> #10 0x00495782 in L13 () at clcs_install.c:569
> #11 0x0041cec9 in funcall (fun=0x1a402240) at eval.c:173
> #12 0x0044901b in IapplyVector (fun=0x1a402240, nargs=1, base=0x746790)
>     at nfunlink.c:239
> #13 0x0041f09e in fLfuncall (fun=0x1a402240) at eval.c:1140
> #14 0x00430a8f in c_apply_n (fn=0x41f015 <fLfuncall>, n=2, x=0x746788)
>     at funlink.c:364
> #15 0x00448ed8 in IapplyVector (fun=0x1a007e4c, nargs=2, base=0x746788)
>     at nfunlink.c:229
> #16 0x0041cf96 in funcall (fun=0x1a007e4c) at eval.c:190
> #17 0x0041d8bb in funcall_no_event (fun=0x1a007e4c) at eval.c:381
> ---Type <return> to continue, or q <return> to quit---
> #18 0x0041ee33 in eval (form=0x6d6ab0) at eval.c:1092
> #19 0x0045f51f in Fprogn (body=0x1a460cf0) at prog.c:248
> #20 0x0041ebbb in eval (form=0x1a460d38) at eval.c:1037
> #21 0x00458365 in For (args=0x1a460c84) at predicate.c:762
> #22 0x0041ebbb in eval (form=0x1a460d50) at eval.c:1037
> #23 0x0045f51f in Fprogn (body=0x1a8164d4) at prog.c:248
> #24 0x0041ebbb in eval (form=0x1a8164bc) at eval.c:1037
> #25 0x00419691 in Fcond (args=0x1a460c54) at conditional.c:79
> #26 0x0041ebbb in eval (form=0x1a4612ac) at eval.c:1037
> #27 0x00419d2f in Fwhen (form=0x1a460ae0) at conditional.c:161
> #28 0x0041ebbb in eval (form=0x1a461360) at eval.c:1037
> #29 0x0045f51f in Fprogn (body=0x1a460ad4) at prog.c:248
> #30 0x0043cbf4 in FletA (form=0x1a461438) at let.c:110
> #31 0x0041ebbb in eval (form=0x1a461c00) at eval.c:1037
> #32 0x0041d620 in funcall (fun=0x1a43c9b0) at eval.c:327
> #33 0x0041d8bb in funcall_no_event (fun=0x1a460abc) at eval.c:381
> #34 0x0041ee33 in eval (form=0x6d6ab0) at eval.c:1092
> #35 0x0045813f in Fand (args=0x1a46ae28) at predicate.c:728
> #36 0x0041ebbb in eval (form=0x1a46ae58) at eval.c:1037
> #37 0x00419415 in Fif (form=0x1a46ae70) at conditional.c:50
> #38 0x0041ebbb in eval (form=0x1a46af0c) at eval.c:1037
> #39 0x0045f51f in Fprogn (body=0x1a46adec) at prog.c:248
> #40 0x0043ca55 in Flet (form=0x1a46af18) at let.c:82
> ---Type <return> to continue, or q <return> to quit---
> #41 0x0041ebbb in eval (form=0x1a46af84) at eval.c:1037
> #42 0x0041d620 in funcall (fun=0x1a7b28d0) at eval.c:327
> #43 0x0044901b in IapplyVector (fun=0x1a283cf0, nargs=2, base=0x746724)
>     at nfunlink.c:239
> #44 0x0041f09e in fLfuncall (fun=0x1a283cf0) at eval.c:1140
> #45 0x00430ab7 in c_apply_n (fn=0x41f015 <fLfuncall>, n=3, x=0x746718)
>     at funlink.c:365
> #46 0x00448ed8 in IapplyVector (fun=0x1a007e4c, nargs=3, base=0x746718)
>     at nfunlink.c:229
> #47 0x0041cf96 in funcall (fun=0x1a007e4c) at eval.c:190
> #48 0x0041d8bb in funcall_no_event (fun=0x1a007e4c) at eval.c:381
> #49 0x0041ee33 in eval (form=0x6d6ab0) at eval.c:1092
> #50 0x00419aad in Fcase (arg=0x1a4cace4) at conditional.c:135
> #51 0x0041ebbb in eval (form=0x1a4cad74) at eval.c:1037
> #52 0x0041e72c in Ieval (form=0x1a4cad74) at eval.c:928
> #53 0x0040d143 in Fsetq (form=0x1a4cad80) at assignment.c:100
> #54 0x0041ebbb in eval (form=0x1a4cad8c) at eval.c:1037
> #55 0x0045f51f in Fprogn (body=0x1a4cabac) at prog.c:248
> #56 0x0041ebbb in eval (form=0x1a4d1f9c) at eval.c:1037
> #57 0x00414e57 in Funwind_protect (args=0x1a4c8588) at catch.c:120
> #58 0x0041ebbb in eval (form=0x1a4d1fa8) at eval.c:1037
> #59 0x0045f51f in Fprogn (body=0x1a4c8528) at prog.c:248
> #60 0x0043ca55 in Flet (form=0x1a4d1fb4) at let.c:82
> ---Type <return> to continue, or q <return> to quit---
> #61 0x0041ebbb in eval (form=0x1a4d3048) at eval.c:1037
> #62 0x0041d620 in funcall (fun=0x1a7b28e0) at eval.c:327
> #63 0x0041d8bb in funcall_no_event (fun=0x1a4c8360) at eval.c:381
> #64 0x0041ee33 in eval (form=0x6d6ab0) at eval.c:1092
> #65 0x00419c1e in Fwhen (form=0x1a4c7474) at conditional.c:149
> #66 0x0041ebbb in eval (form=0x1a4c7714) at eval.c:1037
> #67 0x0045e936 in Ftagbody (body=0x1a4c7438) at prog.c:95
> #68 0x0043bd86 in Fdolist (arg=0x1a4c7720) at iteration.c:357
> #69 0x0041ebbb in eval (form=0x1a4c775c) at eval.c:1037
> #70 0x00419433 in Fif (form=0x1a4c7768) at conditional.c:54
> #71 0x0041ebbb in eval (form=0x1a4c778c) at eval.c:1037
> #72 0x0045f51f in Fprogn (body=0x1aa0ac9c) at prog.c:248
> #73 0x0041ebbb in eval (form=0x1aa0ac84) at eval.c:1037
> #74 0x0041d620 in funcall (fun=0x1a7b2928) at eval.c:327
> #75 0x0041d8bb in funcall_no_event (fun=0x1a4c7300) at eval.c:381
> #76 0x0041ee33 in eval (form=0x6d6ab0) at eval.c:1092
> #77 0x00419aad in Fcase (arg=0x1a4cabc4) at conditional.c:135
> #78 0x0041ebbb in eval (form=0x1a4cad74) at eval.c:1037
> #79 0x0041e72c in Ieval (form=0x1a4cad74) at eval.c:928
> #80 0x0040d143 in Fsetq (form=0x1a4cad80) at assignment.c:100
> #81 0x0041ebbb in eval (form=0x1a4cad8c) at eval.c:1037
> #82 0x0045f51f in Fprogn (body=0x1a4cabac) at prog.c:248
> #83 0x0041ebbb in eval (form=0x1a4d1f9c) at eval.c:1037
> ---Type <return> to continue, or q <return> to quit---
> #84 0x00414e57 in Funwind_protect (args=0x1a4c8588) at catch.c:120
> #85 0x0041ebbb in eval (form=0x1a4d1fa8) at eval.c:1037
> #86 0x0045f51f in Fprogn (body=0x1a4c8528) at prog.c:248
> #87 0x0043ca55 in Flet (form=0x1a4d1fb4) at let.c:82
> #88 0x0041ebbb in eval (form=0x1a4d3048) at eval.c:1037
> #89 0x0041d620 in funcall (fun=0x1a7b2938) at eval.c:327
> #90 0x0041d8bb in funcall_no_event (fun=0x1a4c8360) at eval.c:381
> #91 0x0041ee33 in eval (form=0x6d6ab0) at eval.c:1092
> #92 0x00419c1e in Fwhen (form=0x1a4c7474) at conditional.c:149
> #93 0x0041ebbb in eval (form=0x1a4c7714) at eval.c:1037
> #94 0x0045e936 in Ftagbody (body=0x1a4c7438) at prog.c:95
> #95 0x0043bd86 in Fdolist (arg=0x1a4c7720) at iteration.c:357
> #96 0x0041ebbb in eval (form=0x1a4c775c) at eval.c:1037
> #97 0x00419433 in Fif (form=0x1a4c7768) at conditional.c:54
> #98 0x0041ebbb in eval (form=0x1a4c778c) at eval.c:1037
> #99 0x0045f51f in Fprogn (body=0x1a747fa8) at prog.c:248
> #100 0x0041ebbb in eval (form=0x1a747f90) at eval.c:1037
> #101 0x0041d620 in funcall (fun=0x1a43c918) at eval.c:327
> #102 0x0041d8bb in funcall_no_event (fun=0x1a4c7300) at eval.c:381
> #103 0x0041ee33 in eval (form=0x6d6ab0) at eval.c:1092
> #104 0x00419aad in Fcase (arg=0x1a4cabc4) at conditional.c:135
> #105 0x0041ebbb in eval (form=0x1a4cad74) at eval.c:1037
> #106 0x0041e72c in Ieval (form=0x1a4cad74) at eval.c:928
> ---Type <return> to continue, or q <return> to quit---q
> Quit (expect signal SIGINT when the program is resumed)
> (gdb)
> 
> (gdb) p sup
> $3 = (object *) 0x746834
> (gdb) p vs_top
> $4 = (object *) 0x746834
> (gdb) p V166
> $5 = 0x1a88f070
> (gdb) p (long)((V166))->fixa
> $6 = 12
> (gdb) p (long)((V166))->fixa.fixa_self
> $7 = 504243640
> (gdb) p (object)((V166))->fixa.fixa_self
> $8 = (union lispunion *) 0x1e0e25b8
> (gdb) p (object)((V166))->fixa.fixa_self[(long)0]
> $9 = (union lispunion *) 0x1
> (gdb) p (object)((V166))->fixa
> $10 = (union lispunion *) 0xc
> (gdb) p (object)((V166))
> $11 = 0x1a88f070
> (gdb) p (object)((V166))->d.t
> $12 = (union lispunion *) 0xc
> (gdb) p (long)((V166))->d.t
> $13 = 12
> (gdb) p (enum type)((V166))->d.t
> $14 = t_vector
> (gdb) p (long)((V166))->fixa.fixa_self[(long)0]
> $15 = 1
> (gdb) p sup->d.t
> $16 = 7 '\a'
> (gdb) p sup->d
> $17 = {t = 7 '\a', flag = 0 '\0', s = 0 '\0', m = 0 '\0'}
> (gdb) p (enum type) sup->d.t
> $18 = t_character
> (gdb) p (long)((V166))->fixa.fixa_self[(long)1]
> $19 = 0
> ============== ASET-BY-CURSOR C CODE ===================
> 
> /*    function definition for ASET-BY-CURSOR  */
> 
> static void L44()
> {register object *base=vs_base;
>       register object *sup=base+VM44; VC44
>       vs_check;
>       {register object V164;
>       register object V165;
>       V164=(base[0]);
>       V165=(base[1]);
>       vs_top=sup;
>       goto TTL;
> TTL:;
>       {register object V166;
>       V166= (VV[46]->s.s_dbind);
>       base[2]= Ct;
>       base[3]= VV[52];
>       base[4]= (V166);
>       base[5]= (V165);
>       base[6]= (V164);
>       vs_top=(vs_base=base+2)+5;
>       Lformat();
>       vs_top=sup;
>       base[2]= Ct;
>       base[3]= VV[53];
>       base[4]= CMPmake_fixnum((long)((V166))->fixa.fixa_self[(long)0]);
>       vs_top=(vs_base=base+2)+3;
>       Lformat();
>       vs_top=sup;
>       base[2]= Ct;
>       base[3]= VV[54];
>       base[4]= CMPmake_fixnum((long)((V166))->fixa.fixa_self[(long)1]);
>       vs_top=(vs_base=base+2)+3;
>       Lformat();
>       vs_top=sup;
>       base[2]= Ct;
>       base[3]= VV[55];
>       base[4]= aref1((V164),fix(small_fixnum(0)));
>       vs_top=(vs_base=base+2)+3;
>       Lformat();
>       vs_top=sup;
>       base[2]= Ct;
>       base[3]= VV[56];
>       base[4]= aref1((V164),fix(small_fixnum(1)));
>       vs_top=(vs_base=base+2)+3;
>       Lformat();
>       vs_top=sup;
>       (void)(aset1((V164),fix(small_fixnum(0)),VV[57]));
>       base[2]= Ct;
>       base[3]= VV[58];
>       base[4]= (V164);
>       vs_top=(vs_base=base+2)+3;
>       Lformat();
>       vs_top=sup;
>       V167 = CMPmake_fixnum((long)((V166))->fixa.fixa_self[(long)1]);
>       (void)(aset1((V164),fix(V167),(V165)));
>       base[2]= Ct;
>       base[3]= VV[59];
>       base[4]= (V164);
>       vs_top=(vs_base=base+2)+3;
>       Lformat();
>       vs_top=sup;switch((long)((V166))->fixa.fixa_self[(long)0]){
>       case 1:
>       goto T579;
> T579:;
>       V168 = CMPmake_fixnum((long)((V166))->fixa.fixa_self[(long)1]);
>       (void)(aset1((V164),fix(V168),(V165)));
>       goto T577;
>       case 2:
>       goto T580;
> T580:;
>       V169 = CMPmake_fixnum((long)((V166))->fixa.fixa_self[(long)1]);
>       V170 = CMPmake_fixnum((long)((V166))->fixa.fixa_self[(long)2]);
>       (void)(aset((V164),fix(V169)*((V164))->a.a_dims[1]+fix(V170),(V165)));
>       goto T577;
>       case 3:
>       goto T581;
> T581:;
>       base[2]= (V164);
>       base[3]= CMPmake_fixnum((long)((V166))->fixa.fixa_self[(long)1]);
>       base[4]= CMPmake_fixnum((long)((V166))->fixa.fixa_self[(long)2]);
>       base[5]= CMPmake_fixnum((long)((V166))->fixa.fixa_self[(long)3]);
>       base[6]= (V165);
>       vs_top=(vs_base=base+2)+5;
>       siLaset();
>       vs_top=sup;
>       goto T577;
>       case 4:
>       goto T582;
> T582:;
>       base[2]= (V164);
>       base[3]= CMPmake_fixnum((long)((V166))->fixa.fixa_self[(long)1]);
>       base[4]= CMPmake_fixnum((long)((V166))->fixa.fixa_self[(long)2]);
>       base[5]= CMPmake_fixnum((long)((V166))->fixa.fixa_self[(long)3]);
>       base[6]= CMPmake_fixnum((long)((V166))->fixa.fixa_self[(long)4]);
>       base[7]= (V165);
>       vs_top=(vs_base=base+2)+6;
>       siLaset();
>       vs_top=sup;
>       goto T577;
>       case 5:
>       goto T583;
> T583:;
>       base[2]= (V164);
>       base[3]= CMPmake_fixnum((long)((V166))->fixa.fixa_self[(long)1]);
>       base[4]= CMPmake_fixnum((long)((V166))->fixa.fixa_self[(long)2]);
>       base[5]= CMPmake_fixnum((long)((V166))->fixa.fixa_self[(long)3]);
>       base[6]= CMPmake_fixnum((long)((V166))->fixa.fixa_self[(long)4]);
>       base[7]= CMPmake_fixnum((long)((V166))->fixa.fixa_self[(long)5]);
>       base[8]= (V165);
>       vs_top=(vs_base=base+2)+7;
>       siLaset();
>       vs_top=sup;
>       goto T577;
>       default:
>       goto T584;
> T584:;
>       base[2]= VV[60];
>       base[3]= CMPmake_fixnum((long)((V166))->fixa.fixa_self[(long)0]);
>       base[4]= VV[61];
>       vs_top=(vs_base=base+2)+3;
>       Lerror();
>       vs_top=sup;
>       goto T577;}
>       goto T577;
> T577:;
>       base[2]= Ct;
>       base[3]= VV[62];
>       base[4]= (V164);
>       vs_top=(vs_base=base+2)+3;
>       Lformat();
>       vs_top=sup;
>       {register long V171;
>       {object V172;
>       V172= CMPmake_fixnum((long)((V166))->fixa.fixa_self[(long)0]);{object 
> V173;
>       V173= (type_of((V172))==t_fixnum?Ct:Cnil);
>       if(V173==Cnil)goto T614;
>       goto T613;
>       goto T614;
> T614:;}
>       vs_base=vs_top;
>       (void) (*Lnk83)();
>       vs_top=sup;
>       goto T613;
> T613:;
>       V171= fix((V172));}
>       goto T617;
> T617:;
>       {long V174= (long)((V166))->fixa.fixa_self[V171];
>       V175 = CMPmake_fixnum(V171);
>       V176= number_plus(small_fixnum(5),V175);
>       {long V177= fix(aref1((V166),fix(/* INLINE-ARGS */V176)));
>       if(!((/* INLINE-ARGS */V174)<(/* INLINE-ARGS */V177))){
>       goto T620;}}}
>       (void)(((V166))->fixa.fixa_self[V171]=
> ((long)((long)((V166))->fixa.fixa_self[V171])+((long)1)));
>       base[2]= Ct;
>       vs_top=(vs_base=base+2)+1;
>       return;
>       goto T620;
> T620:;
>       (void)(((V166))->fixa.fixa_self[V171]= ((long)0));
>       if(!((V171)==((long)0))){
>       goto T623;}
>       base[2]= Cnil;
>       vs_top=(vs_base=base+2)+1;
>       return;
>       goto T623;
> T623:;
>       if(!((V171)>((long)-2147483647))){
>       goto T627;}
>       goto T626;
>       goto T627;
> T627:;
>       vs_base=vs_top;
>       (void) (*Lnk83)();
>       vs_top=sup;
>       goto T626;
> T626:;
>       V171= (long)(V171)-((long)1);
>       goto T617;
>       base[2]= Cnil;
>       vs_top=(vs_base=base+2)+1;
>       return;
>       base[2]= Cnil;
>       vs_top=(vs_base=base+2)+1;
>       return;}}
>       }
> }
> ==================================================================
> 
> Cheers
> 
> Mike Thomas
> 
> 
> 
> ====================PCL EVAL-WHEN PROBLEM===============================
> ....
> Compiling PCL_GENERIC_FUNCTIONS...
> Compiling c:/cvs/head/gcl/unixport/../pcl/pcl_generic_functions.lisp.
> 
> Error: The function LEGAL-LAMBDA-LIST-P is undefined.
> Fast links are on: do (si::use-fast-links nil) for debugging
> Error signalled by FUNCTION.
> Backtrace: compiler::t1expr > system:error-set > eval > eval > FUNCTION
> ; #'LEGAL-LAMBDA-LIST-P is being compiled.
> ;;; The form #'LEGAL-LAMBDA-LIST-P was not evaluated successfully.
> ;;; You are recommended to compile again.
> 
> Error: The function SHORT-METHOD-COMBINATION-P is undefined.
> Fast links are on: do (si::use-fast-links nil) for debugging
> Error signalled by FUNCTION.
> Backtrace: compiler::t1expr > system:error-set > eval > eval > FUNCTION
> ; #'SHORT-METHOD-COMBINATION-P is being compiled.
> ;;; The form #'SHORT-METHOD-COMBINATION-P was not evaluated successfully.
> ;;; You are recommended to compile again.
> 
> ....
> 
> ========================================================================
> 
> Large numbers of similar messages then follow.
> 
> 
> 
> 
> 

-- 
Camm Maguire                                            address@hidden
==========================================================================
"The earth is but one country, and mankind its citizens."  --  Baha'u'llah