Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv961
Modified Files: multiboot.lisp Log Message: Re-arranged storage for multi-boot header so that it doesn't mess up (GC) scanning.
Date: Wed Mar 24 08:20:50 2004 Author: ffjeld
Index: movitz/multiboot.lisp diff -u movitz/multiboot.lisp:1.2 movitz/multiboot.lisp:1.3 --- movitz/multiboot.lisp:1.2 Mon Jan 19 06:23:41 2004 +++ movitz/multiboot.lisp Wed Mar 24 08:20:49 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.2 2004/01/19 11:23:41 ffjeld Exp $ +;;;; $Id: multiboot.lisp,v 1.3 2004/03/24 13:20:49 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -36,7 +36,16 @@ (defconstant +multiboot-header-magic-value+ #x1BADB002)
(define-binary-class multiboot-header (movitz-heap-object) - ((magic + ((scan-skip-header + :binary-type word + :initform +scan-skip-word+) + (scan-skip-length + :binary-type word + :initform 0 + :map-binary-write (lambda (x type) + (declare (ignore x y)) + (- (sizeof 'multiboot-header) 8))) + (magic :accessor magic :initform +multiboot-header-magic-value+ :initarg :magic