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

[Frode Vatvedt Fjeld]

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 at 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)
+	   , at body)
+       (setf (muerte::%run-time-context-slot 'bochs-flags) old-flags))))