Update of /project/movitz/cvsroot/movitz/losp/muerte In directory clnet:/tmp/cvs-serv10601

Modified Files: error.lisp Log Message: Implement *backtrace-on-error*.

--- /project/movitz/cvsroot/movitz/losp/muerte/error.lisp 2005/04/26 23:44:36 1.4 +++ /project/movitz/cvsroot/movitz/losp/muerte/error.lisp 2007/02/06 20:02:01 1.5 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Sat Sep 1 00:49:11 2001 ;;;; -;;;; $Id: error.lisp,v 1.4 2005/04/26 23:44:36 ffjeld Exp $ +;;;; $Id: error.lisp,v 1.5 2007/02/06 20:02:01 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -44,6 +44,8 @@ ((not *ignore-errors*) (let (#+ignore (*ignore-errors* t)) (let ((condition (signal-simple 'simple-error datum args))) + (when *backtrace-on-error* + (backtrace)) (if condition (invoke-debugger condition) (apply 'invoke-debugger-on-designator 'simple-error datum args)))))