[movitz-cvs] CVS update: movitz/losp/x86-pc/vga.lisp

[Frode Vatvedt Fjeld]

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