[movitz-cvs] CVS update: movitz/multiboot.lisp

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz
In directory common-lisp.net:/tmp/cvs-serv10882

Modified Files:
	multiboot.lisp 
Log Message:
Changed type word to lu32.

Date: Thu Mar 25 20:42:45 2004
Author: ffjeld

Index: movitz/multiboot.lisp
diff -u movitz/multiboot.lisp:1.3 movitz/multiboot.lisp:1.4
--- movitz/multiboot.lisp:1.3	Wed Mar 24 08:20:49 2004
+++ movitz/multiboot.lisp	Thu Mar 25 20:42:45 2004
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Wed Jun 12 12:14:12 2002
 ;;;;                
-;;;; $Id: multiboot.lisp,v 1.3 2004/03/24 13:20:49 ffjeld Exp $
+;;;; $Id: multiboot.lisp,v 1.4 2004/03/26 01:42:45 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -37,10 +37,10 @@
 
 (define-binary-class multiboot-header (movitz-heap-object)
   ((scan-skip-header
-    :binary-type word
+    :binary-type lu32
     :initform +scan-skip-word+)
    (scan-skip-length
-    :binary-type word
+    :binary-type lu32
     :initform 0
     :map-binary-write (lambda (x type)
 			(declare (ignore x y))