Hi,
I forgot to provide the relevant information:
"Antonio Leitao" <[EMAIL PROTECTED]> writes:
> - While testing the debugger limits, I tried to generate a stack
> overflow. Unfortunately, the cmucl process dies.
>
> I tried to use the safe-core and mutual recursion instead of self
> recursion and even a (declare (optimize (debug 3) (safety 3))) on all
> functions but the stack overflow always kills the process.
Here is the drible:
Starting /usr/bin/lisp -core /usr/lib/cmucl/lisp-safe.core ...
; Loading #p"/home/aml/.cmucl-init.lisp".
;;; Loading system definition from /usr/share/common-lisp/systems/port.asd into #<The
ASDF1020 package, 0/9 internal, 0/9 external>
;; Loading #p"/usr/share/common-lisp/source/port/port.asd".
Registering #<SYSTEM PORT {48034F25}> as PORT
;; Loading #p"/usr/lib/common-lisp/cmucl-safe/port/ext.x86f".
;; Loading #p"/usr/lib/common-lisp/cmucl-safe/port/path.x86f".
;; Loading #p"/usr/lib/common-lisp/cmucl-safe/port/sys.x86f".
;; Loading #p"/usr/lib/common-lisp/cmucl-safe/port/gray.x86f".
;;; Loading #p"/usr/share/common-lisp/systems/cmucl-graystream.system".
;; Loading #p"/usr/lib/common-lisp/cmucl-safe/port/net.x86f".
;; Loading #p"/usr/lib/common-lisp/cmucl-safe/port/proc.x86f".
;; Loading #p"/usr/lib/common-lisp/cmucl-safe/port/shell.x86f".
;; Loading #p"/usr/share/common-lisp/systems/cmucl-clx.system".
CMU Common Lisp release x86-linux 3.1.2 18d+ 24 September 2002 build 4293, running on
aleph
For support see http://www.cons.org/cmucl/support.html Send bug reports to the debian
BTS.
or to [EMAIL PROTECTED]
type (help) for help, (quit) to exit, and (demo) to see the demos
Loaded subsystems:
Python 1.0, target Intel x86
CLOS based on PCL version: September 16 92 PCL (f)
Gray Streams Protocol Support
CLX X Library MIT R5.02
*
* (load "/tmp/recur")
; Loading #p"/tmp/recur.x86f".
T
* (recur1 1)
After a few seconds, the cmucl process dies.
Here is the contents of the file /tmp/recur.lisp
;;;;;;;;;;;;;;;;;;;;;;;;
(defun recur1 (n)
(declare (optimize (debug 3) (safety 3)))
(1+ (recur2 (1+ n))))
(defun recur2 (n)
(declare (optimize (debug 3) (safety 3)))
(1+ (recur1 n)))
;;;;;;;;;;;;;;;;;;;;;;;;
Thanks in advance,
Ant�nio Leit�o.
