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))