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