[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-serv5291

Modified Files:
	more-macros.lisp 
Log Message:
Remove with-bochs-tracing.

Date: Thu May  5 20:08:20 2005
Author: ffjeld

Index: movitz/losp/muerte/more-macros.lisp
diff -u movitz/losp/muerte/more-macros.lisp:1.25 movitz/losp/muerte/more-macros.lisp:1.26
--- movitz/losp/muerte/more-macros.lisp:1.25	Tue May  3 22:09:50 2005
+++ movitz/losp/muerte/more-macros.lisp	Thu May  5 20:08:20 2005
@@ -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.25 2005/05/03 20:09:50 ffjeld Exp $
+;;;; $Id: more-macros.lisp,v 1.26 2005/05/05 18:08:20 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -225,17 +225,6 @@
   `(if ,eof-errorp
        (error 'end-of-file :stream ,stream)
        ,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))))
-
 
 (defmacro handler-bind (bindings &body forms)
   (if (null bindings)