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

Modified Files: vga.lisp Log Message: Changed the signature of memref-int.

Date: Sun Nov 14 23:58:33 2004 Author: ffjeld

Index: movitz/losp/x86-pc/vga.lisp diff -u movitz/losp/x86-pc/vga.lisp:1.5 movitz/losp/x86-pc/vga.lisp:1.6 --- movitz/losp/x86-pc/vga.lisp:1.5 Wed Apr 21 18:24:16 2004 +++ movitz/losp/x86-pc/vga.lisp Sun Nov 14 23:58:33 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Tue Sep 25 14:08:20 2001 ;;;; -;;;; $Id: vga.lisp,v 1.5 2004/04/21 16:24:16 ffjeld Exp $ +;;;; $Id: vga.lisp,v 1.6 2004/11/14 22:58:33 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -314,7 +314,7 @@

(defun vmemwr (dst-off src start end) (loop for i from start below end as dst upfrom dst-off - do (setf (memref-int (vga-memory-map) 0 dst :unsigned-byte8 t) + do (setf (memref-int (vga-memory-map) :index dst :type :unsigned-byte8) (aref src i))) (values))