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

[Mike Thomas]

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.