[movitz-cvs] CVS update: movitz/losp/muerte/interrupt.lisp

[Frode Vatvedt Fjeld]

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 at 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)