Update of /project/movitz/cvsroot/movitz/losp/x86-pc In directory common-lisp.net:/tmp/cvs-serv11495
Modified Files: textmode.lisp Log Message: *** empty log message *** Date: Thu Sep 23 13:05:51 2004 Author: ffjeld
Index: movitz/losp/x86-pc/textmode.lisp diff -u movitz/losp/x86-pc/textmode.lisp:1.11 movitz/losp/x86-pc/textmode.lisp:1.12 --- movitz/losp/x86-pc/textmode.lisp:1.11 Thu Aug 12 18:54:51 2004 +++ movitz/losp/x86-pc/textmode.lisp Thu Sep 23 13:05:51 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Thu Nov 9 15:38:56 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: textmode.lisp,v 1.11 2004/08/12 16:54:51 ffjeld Exp $ +;;;; $Id: textmode.lisp,v 1.12 2004/09/23 11:05:51 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -244,6 +244,9 @@
(defun set-textmode (mode-state) + (unless (= #xb8000 (vga-memory-map)) + (break "This is only likely to work on VGA based at #xb8000, yours is at ~S." + (vga-memory-map))) (setf (vga-state) mode-state) (ecase (vga-character-height) (8 (write-font +vga-font-8x8+ 8))