Greetings! I'm away from home for another week, but I just wanted t add this quickly -- I think the error handler was called recursively from your output. Please make sure you are looking at the topmost call to the error handler. Also -- if remote access to this machine can be arranged, I'd be happy to take a look if you'd like.
Take care, Jerry James <[email protected]> writes: > With the PLT patch I sent recently, the build for Fedora Linux on > Sparc gets off the ground. However, it doesn't complete. Here is the > last (relevant) bit of the build log: > > ------------------------------------------------------------------------------ > /builddir/build/BUILD/gcl-2.6.8/unixport/raw_pre_gcl > /builddir/build/BUILD/gcl-2.6.8/unixport/ -libdir > /builddir/build/BUILD/gcl-2.6.8/ < foo > GCL (GNU Common Lisp) April 1994 131072 pages > Building symbol table for > /builddir/build/BUILD/gcl-2.6.8/unixport/raw_pre_gcl .. > loading /builddir/build/BUILD/gcl-2.6.8/unixport/../lsp/gcl_export.lsp > loading /builddir/build/BUILD/gcl-2.6.8/unixport/../lsp/gcl_defmacro.lsp > loading /builddir/build/BUILD/gcl-2.6.8/unixport/../lsp/gcl_evalmacros.lsp > loading /builddir/build/BUILD/gcl-2.6.8/unixport/../lsp/gcl_top.lsp > loading /builddir/build/BUILD/gcl-2.6.8/unixport/../lsp/gcl_module.lsp > loading /builddir/build/BUILD/gcl-2.6.8/unixport/../lsp/gcl_autoload.lsp >> > #<"COMPILER" package> >> > #<"SLOOP" package> >> > #<"SERROR" package> >> > #<"ANSI-LOOP" package> >> > #<"DEFPACKAGE" package> >> > #<"TK" package> >> > #<"SYSTEM" package> > SYSTEM> > *COMMAND-ARGS* > SYSTEM>loading /builddir/build/BUILD/gcl-2.6.8/unixport/../lsp/gcl_listlib.lsp > Warning: NTHCDR is being redefined. > Warning: NTH is being redefined. > Warning: FIRST is being redefined. > Warning: SECOND is being redefined. > Warning: THIRD is being redefined. > Warning: FOURTH is being redefined. > Warning: FIFTH is being redefined. > Warning: SIXTH is being redefined. > Warning: SEVENTH is being redefined. > Warning: EIGHTH is being redefined. > Warning: NINTH is being redefined. > Warning: TENTH is being redefined.loading > /builddir/build/BUILD/gcl-2.6.8/unixport/../lsp/gcl_predlib.lsp > loading /builddir/build/BUILD/gcl-2.6.8/unixport/../lsp/gcl_setf.lsp > loading /builddir/build/BUILD/gcl-2.6.8/unixport/../lsp/gcl_arraylib.lsp > loading /builddir/build/BUILD/gcl-2.6.8/unixport/../lsp/gcl_assert.lsp > loading /builddir/build/BUILD/gcl-2.6.8/unixport/../lsp/gcl_defstruct.lsp > loading /builddir/build/BUILD/gcl-2.6.8/unixport/../lsp/gcl_describe.lsp > loading /builddir/build/BUILD/gcl-2.6.8/unixport/../lsp/gcl_iolib.lsp > Warning: WRITE-BYTE is being redefined. > Warning: READ-BYTE is being redefined.loading > /builddir/build/BUILD/gcl-2.6.8/unixport/../lsp/gcl_mislib.lsp > Warning: LISP-IMPLEMENTATION-VERSION is being redefined.loading > /builddir/build/BUILD/gcl-2.6.8/unixport/../lsp/gcl_numlib.lsp > loading /builddir/build/BUILD/gcl-2.6.8/unixport/../lsp/gcl_packlib.lsp > loading /builddir/build/BUILD/gcl-2.6.8/unixport/../lsp/gcl_seq.lsp > loading /builddir/build/BUILD/gcl-2.6.8/unixport/../lsp/gcl_seqlib.lsp > loading /builddir/build/BUILD/gcl-2.6.8/unixport/../lsp/gcl_trace.lsp > loading /builddir/build/BUILD/gcl-2.6.8/unixport/../lsp/gcl_sloop.lsp > loading /builddir/build/BUILD/gcl-2.6.8/unixport/../lsp/gcl_serror.lsp > loading > /builddir/build/BUILD/gcl-2.6.8/unixport/../lsp/gcl_destructuring_bind.lsp > loading /builddir/build/BUILD/gcl-2.6.8/unixport/../lsp/gcl_loop.lsp > Error handler called recursively (:ERROR > > NIL > > SERROR::MAKE-ERROR-CONDITION > > "" > > "Bad make_structure args for type ~a" > > SERROR::ERROR-CONDITION) > Error: Bad make_structure args for type ERROR-CONDITION > Error signalled by SERROR::MAKE-ERROR-CONDITION. > Broken at COND. Type :H for Help. > ANSI-LOOP>> > #<"USER" package> > ------------------------------------------------------------------------------ > > I ran it in GDB, with a breakpoint set on FEerror. The backtrace is > 51 frames long. I'll just give the last half: > > ------------------------------------------------------------------------------ > #0 FEerror (s=0x206e28 "Bad make_structure args for type ~a", num=1) > at error.c:268 > #1 0x000000000012fc78 in siLmake_structure () at structure.c:194 > #2 0x00000000001586b4 in eval (form=<value optimized out>) at eval.c:1090 > #3 0x0000000000155e14 in funcall (fun=<value optimized out>) at eval.c:327 > #4 0x0000000000158614 in eval (form=<value optimized out>) at eval.c:1092 > #5 0x000000000011b5e0 in Fprogn (body=0xfb1ea8) at prog.c:248 > #6 0x000000000017cf38 in Fflet (args=0x774808) at let.c:234 > #7 0x00000000001581fc in eval (form=0xfaec60) at eval.c:1037 > #8 0x0000000000155e60 in funcall (fun=<value optimized out>) at eval.c:327 > #9 0x0000000000158614 in eval (form=<value optimized out>) at eval.c:1092 > #10 0x0000000000149484 in let_bind (body=<value optimized out>, > start=0x7904a8, end=0x7904c8) at bind.c:679 > #11 0x000000000017dacc in Flet (form=0x1042a98) at let.c:78 > #12 0x00000000001581fc in eval (form=0x1041080) at eval.c:1037 > #13 0x0000000000155e14 in funcall (fun=<value optimized out>) at eval.c:327 > #14 0x0000000000158614 in eval (form=<value optimized out>) at eval.c:1092 > #15 0x000000000015896c in Ieval (form=0x1045c68) at eval.c:928 > #16 0x00000000001469b4 in Fsetq (form=0x10459e0) at assignment.c:100 > #17 0x00000000001581fc in eval (form=0x10459c8) at eval.c:1037 > #18 0x000000000011b5e0 in Fprogn (body=0x1045968) at prog.c:248 > #19 0x00000000001581fc in eval (form=0x1045938) at eval.c:1037 > #20 0x000000000015875c in ieval (x=0x1045cb0) at eval.c:1278 > #21 0x0000000000161438 in load (s=<value optimized out>) at file.d:1517 > #22 0x0000000000138e8c in gcl_init_system (no_init=0xbbdd88) > at sys_pre_gcl.c:102 > #23 0x0000000000104e3c in siLinit_system () at main.c:845 > ------------------------------------------------------------------------------ > > The code in frame #1 called FEerror here: > > ------------------------------------------------------------------------------ > if (type_of(name)!=t_structure || > (def=S_DATA(name))->length != --narg) > FEerror("Bad make_structure args for type ~a",1, > base[0]); > ------------------------------------------------------------------------------ > > At this point, type_of(name) == t_structure. However, narg is 9, but > S_DATA(name)->length is 0. > > I don't know this code well enough to know how to track down the > problem. Can anyone give me some tips on what I should look for? > Thanks, > -- > Jerry James > http://www.jamezone.org/ > > > _______________________________________________ > Gcl-devel mailing list > [email protected] > http://lists.gnu.org/mailman/listinfo/gcl-devel > > > > -- Camm Maguire [email protected] ========================================================================== "The earth is but one country, and mankind its citizens." -- Baha'u'llah _______________________________________________ Gcl-devel mailing list [email protected] http://lists.gnu.org/mailman/listinfo/gcl-devel
