Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv25153
Modified Files: interrupt.lisp Log Message: Minor edit.
Date: Thu Oct 7 14:42:38 2004 Author: ffjeld
Index: movitz/losp/muerte/interrupt.lisp diff -u movitz/losp/muerte/interrupt.lisp:1.27 movitz/losp/muerte/interrupt.lisp:1.28 --- movitz/losp/muerte/interrupt.lisp:1.27 Sat Sep 25 17:51:20 2004 +++ movitz/losp/muerte/interrupt.lisp Thu Oct 7 14:42:38 2004 @@ -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.27 2004/09/25 15:51:20 ffjeld Exp $ +;;;; $Id: interrupt.lisp,v 1.28 2004/10/07 12:42:38 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -261,7 +261,6 @@
(defun interrupt-default-handler (vector dit-frame) (declare (without-check-stack-limit)) - (cli) (macrolet ((dereference (fixnum-address &optional (type :lisp)) "Dereference the fixnum-address." `(memref ,fixnum-address 0 0 ,type))) @@ -332,7 +331,7 @@ new-bottom) (break "Stack overload exception ~D at EIP=~@Z, ESP=~@Z, bottom=#x~X, ENV=#x~X." vector $eip - (dit-frame-esp dit-frame) + (dit-frame-esp nil dit-frame) old-bottom old-dynamic-env)) (format *debug-io* "~&Stack-warning: Resetting stack-bottom to #x~X.~%"