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

[Frode Vatvedt Fjeld]

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

Modified Files:
	multiboot.lisp 
Log Message:
Patch from Eric Marsden.

Date: Wed Jul 28 07:23:37 2004
Author: ffjeld

Index: movitz/multiboot.lisp
diff -u movitz/multiboot.lisp:1.4 movitz/multiboot.lisp:1.5
--- movitz/multiboot.lisp:1.4	Thu Mar 25 17:42:45 2004
+++ movitz/multiboot.lisp	Wed Jul 28 07:23:37 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.4 2004/03/26 01:42:45 ffjeld Exp $
+;;;; $Id: multiboot.lisp,v 1.5 2004/07/28 14:23:37 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -43,7 +43,7 @@
     :binary-type lu32
     :initform 0
     :map-binary-write (lambda (x type)
-			(declare (ignore x y))
+			(declare (ignore x type))
 			(- (sizeof 'multiboot-header) 8)))
    (magic
     :accessor magic