[movitz-cvs] CVS movitz/losp/muerte - movitz-cvs@common-lisp.net - mailman3.common-lisp.net

9 Apr 2008

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory clnet:/tmp/cvs-serv8133
Modified Files:
    interrupt.lisp 
Log Message:
Error rather than break upon stack-exhaustion.

--- /project/movitz/cvsroot/movitz/losp/muerte/interrupt.lisp	2008/02/18 22:31:13	1.57
+++ /project/movitz/cvsroot/movitz/losp/muerte/interrupt.lisp	2008/04/09 18:02:04	1.58
@@ -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.57 2008/02/18 22:31:13 ffjeld Exp $
+;;;; $Id: interrupt.lisp,v 1.58 2008/04/09 18:02:04 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
@@ -381,7 +381,7 @@
    		   (- 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."
+		   (error "Stack overload exception ~D at EIP=~@Z, ESP=~@Z, bottom=#x~X, ENV=#x~X."
    		  vector $eip
    		  (dit-frame-esp nil dit-frame)
    		  old-bottom

    