[Ecls-list] local-gmp

Mon Jun 7 07:42:08 UTC 2004

Julian Stecklina <der_julian at web.de> writes:

> Juan Jose Garcia Ripoll <jlr at mpq.mpg.de> writes:
>
>> Hmm, I did not update GMP, and in my SuSE box I always compile with
>> --enable-local-gmp. Maybe you have a newer version in your system? Or
>> too old? We make more intense use of  GMP 4.1's facilities right now,
>> for things like logical operations, bit fiddling, etc. Maybe you have
>> discovered a bug?
>
> I will try to determine this tonight. My version of GMP is 4.1.2 on
> FreeBSD 5.2-CURRENT.

(gdb) r 
;*** Lisp core booted ****
ECLS (Embeddable Common Lisp)  16384 pages

> (load "compile.lsp" :verbose nil)

Breakpoint 9, error (s=0x80b52ef "\nLisp initialization error.\n")
    at /usr/home/blitz/src/ecls/src/c/error.d:40
40              printf("\nUnrecoverable error: %s\n", s);
(gdb) bt
#0  error (s=0x80b52ef "\nLisp initialization error.\n")
    at /usr/home/blitz/src/ecls/src/c/error.d:40
#1  0x0806da1f in universal_error_handler ()
    at /usr/home/blitz/src/ecls/src/c/error.d:218
#2  0x08089617 in APPLY (n=134959855, fn=0x4, x=0x80c9534)
    at /usr/home/blitz/src/ecls/src/c/apply.d:26
#3  0x0806d6cb in FEreader_error (
    s=0x80b4680 "~S is an illegal character name.", stream=0x8169080, narg=1)
    at /usr/home/blitz/src/ecls/src/c/error.d:118
#4  0x08064af4 in sharp_backslash_reader (in=0x8169080, c=0x8114978, 
    d=0x80be500) at /usr/home/blitz/src/ecls/src/c/read.d:693
#5  0x080952a0 in APPLY_fixed (n=134959855, fn=0x4, x=0x80c9534)
    at /usr/home/blitz/src/ecls/src/c/apply.d:676
#6  0x0806460c in dispatch_reader_fun (in=0x8169080, dc=0x8e)
    at /usr/home/blitz/src/ecls/src/c/read.d:591
#7  0x08095273 in APPLY_fixed (n=134959855, fn=0x4, x=0x80c9534)
    at /usr/home/blitz/src/ecls/src/c/apply.d:675
#8  0x080631fb in read_object_with_delimiter (in=0x8169080, delimiter=41)
    at /usr/home/blitz/src/ecls/src/c/read.d:84
#9  0x080641e3 in left_parenthesis_reader (in=0x8169080, character=0xa2)
    at /usr/home/blitz/src/ecls/src/c/read.d:486
#10 0x08095273 in APPLY_fixed (n=134959855, fn=0x4, x=0x80c9534)
    at /usr/home/blitz/src/ecls/src/c/apply.d:675
#11 0x080631fb in read_object_with_delimiter (in=0x8169080, delimiter=41)
    at /usr/home/blitz/src/ecls/src/c/read.d:84
#12 0x080641e3 in left_parenthesis_reader (in=0x8169080, character=0xa2)
    at /usr/home/blitz/src/ecls/src/c/read.d:486
#13 0x08095273 in APPLY_fixed (n=134959855, fn=0x4, x=0x80c9534)
    at /usr/home/blitz/src/ecls/src/c/apply.d:675
#14 0x080631fb in read_object_with_delimiter (in=0x8169080, delimiter=41)
    at /usr/home/blitz/src/ecls/src/c/read.d:84
#15 0x080641e3 in left_parenthesis_reader (in=0x8169080, character=0xa2)
    at /usr/home/blitz/src/ecls/src/c/read.d:486
#16 0x08095273 in APPLY_fixed (n=134959855, fn=0x4, x=0x80c9534)
    at /usr/home/blitz/src/ecls/src/c/apply.d:675
#17 0x080631fb in read_object_with_delimiter (in=0x8169080, delimiter=41)
    at /usr/home/blitz/src/ecls/src/c/read.d:84
#18 0x080641e3 in left_parenthesis_reader (in=0x8169080, character=0xa2)
    at /usr/home/blitz/src/ecls/src/c/read.d:486
#19 0x08095273 in APPLY_fixed (n=134959855, fn=0x4, x=0x80c9534)
    at /usr/home/blitz/src/ecls/src/c/apply.d:675
#20 0x080631fb in read_object_with_delimiter (in=0x8169080, delimiter=41)
    at /usr/home/blitz/src/ecls/src/c/read.d:84
#21 0x080641e3 in left_parenthesis_reader (in=0x8169080, character=0xa2)
    at /usr/home/blitz/src/ecls/src/c/read.d:486
#22 0x08095273 in APPLY_fixed (n=134959855, fn=0x4, x=0x80c9534)
    at /usr/home/blitz/src/ecls/src/c/apply.d:675
#23 0x080631fb in read_object_with_delimiter (in=0x8169080, delimiter=41)
    at /usr/home/blitz/src/ecls/src/c/read.d:84
#24 0x080641e3 in left_parenthesis_reader (in=0x8169080, character=0xa2)
    at /usr/home/blitz/src/ecls/src/c/read.d:486
#25 0x08095273 in APPLY_fixed (n=134959855, fn=0x4, x=0x80c9534)
    at /usr/home/blitz/src/ecls/src/c/apply.d:675
#26 0x080631fb in read_object_with_delimiter (in=0x8169080, delimiter=41)
    at /usr/home/blitz/src/ecls/src/c/read.d:84
#27 0x080641e3 in left_parenthesis_reader (in=0x8169080, character=0xa2)
    at /usr/home/blitz/src/ecls/src/c/read.d:486
#28 0x08095273 in APPLY_fixed (n=134959855, fn=0x4, x=0x80c9534)
    at /usr/home/blitz/src/ecls/src/c/apply.d:675
#29 0x080631fb in read_object_with_delimiter (in=0x8169080, delimiter=-1)
    at /usr/home/blitz/src/ecls/src/c/read.d:84
#30 0x08063857 in read_object (in=0x8169080)
    at /usr/home/blitz/src/ecls/src/c/read.d:223
#31 0x080630ce in read_object_non_recursive (in=0x8169080)
    at /usr/home/blitz/src/ecls/src/c/read.d:54
#32 0x0806651a in cl_read (narg=3)
    at /usr/home/blitz/src/ecls/src/c/read.d:1257
#33 0x080851a6 in si_load_source (source=0x816d1f8, verbose=0x80be500, 
    print=0x80be500) at /usr/home/blitz/src/ecls/src/c/load.d:186

[... continues to #60 ]

I inserted some write-lines to see how far ecl_min goes and I could
trace the error to this form in bare.lsp:

(if (or (member "ECL-MIN" *features* :test #'string-equal)
        (member "CROSS" *features* :test #'string-equal))
  (load "lsp/load.lsp" :verbose nil))

And it is highly likely that the error is happening when trying to
load these files:

(if (not (member "CROSS" *features* :test #'string-equal))
  (progn
    (load "src:lsp;export.lsp" :verbose nil)
    (load "src:lsp;defmacro.lsp" :verbose nil)
    (load "src:lsp;helpfile.lsp" :verbose nil)
    (load "src:lsp;evalmacros.lsp" :verbose nil)
    (load "src:lsp;cmuutil.lsp" :verbose nil)))

Regards,
-- 
Julian Stecklina 

Signed and encrypted mail welcome.
Key-Server: pgp.mit.edu         Key-ID: 0xD65B2AB5
FA38 DCD3 00EC 97B8 6DD8  D7CC 35D8 8D0E D65B 2AB5

Any sufficiently complicated C or Fortran program
contains an ad hoc informally-specified bug-ridden
slow implementation of half of Common Lisp.
 - Greenspun's Tenth Rule of Programming