[clisp-list] Re: Lisp stack overflow; RESET / closing *trace-output*

[Pascal J.B. <pj...@in...>]

Sam Steingold writes:
> > * Pascal J.Bourguignon <cwo@vasbezngvzntb.pbz> [2004-12-12 05:03:17 +0100]:
> >
> > Pascal J.Bourguignon writes:
> >> 
> >> I have been working for two weeks with 64-bit integers (ie. bignums),
> >> and suddenly, nothing works any more: I only get:
> >>  *** - Lisp stack overflow. RESET
> >
> > Any advice on how to debug lisp.run with gdb?
> 
> $ ./configure --with-debug --build build-g
> $ cd build-g
> $ gdb lisp.run
> (gdb) base
Thanks.


A more minimum sexp leading to this Lisp stack overflow is:


[pjb@thalassa src]$ /usr/local/bin/clisp -a -norc
CLISP: -a is deprecated, use -ansi
        i
. . i i I i i i i     ooooo    o        ooooooo   ooooo   ooooo
I I I I I I I I I    8     8   8           8     8     o  8    8
I I  \ `+' /  I I    8         8           8     8        8    8
I  \  `-+-'  /  I    8         8           8      ooooo   8oooo
 \  `-__|__-'  /     8         8           8           8  8
  `--___|___--'      8     o   8           8     o     8  8
        |             ooooo    8oooooo  ooo8ooo   ooooo   8
--------+--------

Copyright (c) Bruno Haible, Michael Stoll 1992, 1993
Copyright (c) Bruno Haible, Marcus Daniels 1994-1997
Copyright (c) Bruno Haible, Pierpaolo Bernardi, Sam Steingold 1998
Copyright (c) Bruno Haible, Sam Steingold 1999-2000
Copyright (c) Sam Steingold, Bruno Haible 2001-2004


[1]> (with-open-stream (*standard-output* *trace-output*) (print :toto))

:TOTO 
*** - Lisp stack overflow. RESET
*** - Lisp stack overflow. RESET
[3]> (quit)
Bye.

*** - The value of *ERROR-OUTPUT* was not an appropriate stream: #<UNBOUND>. It has been changed to #<IO SYNONYM-STREAM *TERMINAL-IO*>.
*** - The value of *DEBUG-IO* was not an appropriate stream: #<CLOSED IO SYNONYM-STREAM *TERMINAL-IO*>. It has been changed to #<IO SYNONYM-STREAM *TERMINAL-IO*>.
Break 2 [5]> (quit)
[pjb@thalassa src]$ 


Ok, WITH-OPEN-STREAM closes the stream (ie. *TRACE-OUTPUT*).
Should clisp loop when *TRACE-OUTPUT*/*ERROR-OUTPUT*/*DEBUG-IO* is closed?


[1]> (close *trace-output*)

*** - Lisp stack overflow. RESET
*** - Lisp stack overflow. RESET
[3]> 


-- 
__Pascal Bourguignon__                     http://www.informatimago.com/
The world will now reboot; don't bother saving your artefacts.