[movitz-cvs] CVS update: movitz/losp/los0.lisp - movitz-cvs@common-lisp.net - mailman3.common-lisp.net

26 Mar 2004

Update of /project/movitz/cvsroot/movitz/losp
In directory common-lisp.net:/tmp/cvs-serv30336
Modified Files:
    los0.lisp 
Log Message:
Top-level command :Bochs-trace provides interactive access to the
with-bochs-tracing macro.
Date: Thu Mar 25 20:53:53 2004
Author: ffjeld
Index: movitz/losp/los0.lisp
diff -u movitz/losp/los0.lisp:1.6 movitz/losp/los0.lisp:1.7

--- movitz/losp/los0.lisp:1.6	Thu Mar 25 04:24:00 2004
+++ movitz/losp/los0.lisp	Thu Mar 25 20:53:53 2004
@@ -9,7 +9,7 @@
 ;;;; Created at:    Fri Dec  1 18:08:32 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: los0.lisp,v 1.6 2004/03/25 09:24:00 ffjeld Exp $
+;;;; $Id: los0.lisp,v 1.7 2004/03/26 01:53:53 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
@@ -789,6 +789,10 @@
     (describe (gethash x *toplevel-commands*)))
    (t (describe x)))
   (values))
+
+(muerte.toplevel:define-toplevel-command :bochs-trace (form)
+  (muerte::with-bochs-tracing ()
+    (eval form)))
(muerte.toplevel:define-toplevel-command :mapkey (code-char)
   (let ((char (etypecase code-char

    