[movitz-cvs] CVS update: movitz/losp/los0.lisp

[Frode Vatvedt Fjeld]

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

Modified Files:
	los0.lisp 
Log Message:
*** empty log message ***
Date: Thu May  5 20:09:28 2005
Author: ffjeld

Index: movitz/losp/los0.lisp
diff -u movitz/losp/los0.lisp:1.42 movitz/losp/los0.lisp:1.43
--- movitz/losp/los0.lisp:1.42	Thu May  5 17:16:54 2005
+++ movitz/losp/los0.lisp	Thu May  5 20:09:28 2005
@@ -9,7 +9,7 @@
 ;;;; Created at:    Fri Dec  1 18:08:32 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: los0.lisp,v 1.42 2005/05/05 15:16:54 ffjeld Exp $
+;;;; $Id: los0.lisp,v 1.43 2005/05/05 18:09:28 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -1077,9 +1077,9 @@
    (t (describe x)))
   (values))
 
-(muerte.toplevel:define-toplevel-command :bochs-trace (form)
-  (muerte::with-bochs-tracing ()
-    (eval form)))
+;;;(muerte.toplevel:define-toplevel-command :bochs-trace (form)
+;;;  (muerte::with-bochs-tracing ()
+;;;    (eval form)))
 
 (muerte.toplevel:define-toplevel-command :mapkey (code-char-form)
   (let* ((code-char (eval code-char-form))