RE: [Gcl-devel] Windows - Instability in universe.lsp

[Mike Thomas]

Hi again.

| Yep, this is bad.  Please do
| 
| p ip
| p *ip
| p l
| p l->d
| p l->c
| p st->st
| p p->p

0x00452c1a in intern (st=0x103fca80, p=0x651a90) at package.d:401
401             for (l = *ip;  type_of(l) == t_cons;  l = l->c.c_cdr)
(gdb) p ip
$1 = (object *) 0x651a90
(gdb) p *ip
$2 = 0x8
(gdb) p l
$3 = 0x8
(gdb) p l->id
There is no member named id.
(gdb) p l->d
Cannot access memory at address 0x8
(gdb) p l->c
Cannot access memory at address 0x8
(gdb) p st->st
$4 = {t = 13 '\r', flag = 0 '\0', s = 0 '\0', m = 0 '\0',
  st_displaced = 0x651a90, st_hasfillp = 0, st_adjustable = 0,
  st_self = 0x13847f34 "a", st_fillp = 1, st_dim = 1}
(gdb) p p->p
$5 = {t = 8 '\b', flag = 0 '\0', s = 0 '\0', m = 0 '\0', p_name = 0x651a90,
  p_nicknames = 0x651a90, p_shadowings = 0x6253c8, p_uselist = 0x3,
  p_usedbylist = 0x0, p_internal = 0x651a90, p_external = 0x10103fa4,
  p_internal_size = 1, p_external_size = 0, p_internal_fp = 0,
  p_external_fp = 0, p_link = 0x101062ac}
(gdb) bt
#0  0x00452c1a in intern (st=0x103fca80, p=0x651a90) at package.d:401
#1  0x00454608 in Lintern () at package.d:870
#2  0x0041f487 in eval (form=0x651a90) at eval.c:1090
#3  0x0041f40a in eval (form=0x102e26a8) at eval.c:1077
#4  0x0041ed84 in Ieval (form=0x102e269c) at eval.c:928
#5  0x0040d506 in Fsetq (form=0x102e2570) at assignment.c:100
#6  0x0041f217 in eval (form=0x102e257c) at eval.c:1037
#7  0x0046175a in Fprogn (body=0x102e251c) at prog.c:248
#8  0x0041f217 in eval (form=0x102e2534) at eval.c:1037
#9  0x0041f981 in fLeval (x0=0x102e315c) at eval.c:1178
#10 0x00431dc6 in c_apply_n (fn=0x41f925 <fLeval>, n=1, x=0x6c1488)
    at funlink.c:363
#11 0x0044aa7b in IapplyVector (fun=0x10107e24, nargs=1, base=0x6c1488)
    at nfunlink.c:229
#12 0x0041d5b7 in funcall (fun=0x10107e24) at eval.c:190
#13 0x0041e57f in symlispcall (sym=0x10109ad4, base=0x6c1484, narg=1)
    at eval.c:507
#14 0x0060ef1a in LI1 () at gcl_top.c:140
#15 0x0041ca1c in quick_call_sfun (fun=0x10131fdc) at eval.c:117
#16 0x0041d533 in funcall (fun=0x10131fdc) at eval.c:178
#17 0x0044abbc in IapplyVector (fun=0x10131fdc, nargs=0, base=0x6c145c)
    at nfunlink.c:239
#18 0x0041f703 in fLfuncall (fun=0x10131fdc) at eval.c:1140
---Type <return> to continue, or q <return> to quit---

Cheers

Mike Thomas.