Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv31319

Modified Files: interrupt.lisp Log Message: sync

Date: Fri Sep 2 00:53:53 2005 Author: ffjeld

Index: movitz/losp/muerte/interrupt.lisp diff -u movitz/losp/muerte/interrupt.lisp:1.48 movitz/losp/muerte/interrupt.lisp:1.49 --- movitz/losp/muerte/interrupt.lisp:1.48 Fri Aug 26 21:40:32 2005 +++ movitz/losp/muerte/interrupt.lisp Fri Sep 2 00:53:53 2005 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Wed Apr 7 01:50:03 2004 ;;;; -;;;; $Id: interrupt.lisp,v 1.48 2005/08/26 19:40:32 ffjeld Exp $ +;;;; $Id: interrupt.lisp,v 1.49 2005/09/01 22:53:53 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -348,7 +348,7 @@ (princ "Halting CPU due to stack exhaustion.") (halt-cpu)) ((<= stack-left 1024) - (backtrace :print-frames t) + #+ignore (backtrace :print-frames t) (halt-cpu) #+ignore (format *debug-io* @@ -363,6 +363,7 @@ (format *debug-io* "~&Stack-warning: Bumped stack-bottom by ~D to #x~X. Reset ES.~%" (- old-bottom new-bottom) new-bottom) + (backtrace :length 5 :spartan t) (break "Stack overload exception ~D at EIP=~@Z, ESP=~@Z, bottom=#x~X, ENV=#x~X." vector $eip (dit-frame-esp nil dit-frame)