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

Modified Files:
	los0.lisp 
Log Message:
*** empty log message ***
Date: Wed Dec 15 14:58:27 2004
Author: ffjeld

Index: movitz/losp/los0.lisp
diff -u movitz/losp/los0.lisp:1.34 movitz/losp/los0.lisp:1.35
--- movitz/losp/los0.lisp:1.34	Mon Dec 13 12:27:58 2004
+++ movitz/losp/los0.lisp	Wed Dec 15 14:58:26 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.34 2004/12/13 11:27:58 ffjeld Exp $
+;;;; $Id: los0.lisp,v 1.35 2004/12/15 13:58:26 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -1187,6 +1187,8 @@
 ;;;		 (vector-push code-vector ts))))
       ;; (muerte::cli)
       (pic8259-end-of-interrupt 0)
+      (when (eql #\esc (muerte.x86-pc.keyboard:poll-char))
+	(break "Test-timer keyboard break."))
       (with-inline-assembly (:returns :nothing)
 	(:compile-form (:result-mode :ecx) muerte.x86-pc::*screen*)
 	(:shrl 2 :ecx)