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

Modified Files: more-macros.lisp Log Message: With-bochs-tracing is a new debugging tool for use under modified bochs.

Date: Thu Mar 25 20:50:32 2004 Author: ffjeld

Index: movitz/losp/muerte/more-macros.lisp diff -u movitz/losp/muerte/more-macros.lisp:1.3 movitz/losp/muerte/more-macros.lisp:1.4 --- movitz/losp/muerte/more-macros.lisp:1.3 Fri Feb 20 10:38:28 2004 +++ movitz/losp/muerte/more-macros.lisp Thu Mar 25 20:50:32 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Fri Jun 7 15:05:57 2002 ;;;; -;;;; $Id: more-macros.lisp,v 1.3 2004/02/20 15:38:28 ffjeld Exp $ +;;;; $Id: more-macros.lisp,v 1.4 2004/03/26 01:50:32 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -205,7 +205,14 @@ ,eof-value))

- +(defmacro with-bochs-tracing ((&optional (value 1)) &body body) + "Bochs magic." + `(let ((old-flags (muerte::%run-time-context-slot 'bochs-flags))) + (unwind-protect + (progn + (setf (muerte::%run-time-context-slot 'bochs-flags) ,value) + ,@body) + (setf (muerte::%run-time-context-slot 'bochs-flags) old-flags))))