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

[Frode Vatvedt Fjeld]

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

Modified Files:
	image.lisp 
Log Message:
Fixed warning about multiboot header too far away.

Date: Fri Apr 16 04:57:29 2004
Author: ffjeld

Index: movitz/image.lisp
diff -u movitz/image.lisp:1.23 movitz/image.lisp:1.24
--- movitz/image.lisp:1.23	Thu Apr 15 09:04:51 2004
+++ movitz/image.lisp	Fri Apr 16 04:57:29 2004
@@ -9,7 +9,7 @@
 ;;;; Created at:    Sun Oct 22 00:22:43 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: image.lisp,v 1.23 2004/04/15 13:04:51 ffjeld Exp $
+;;;; $Id: image.lisp,v 1.24 2004/04/16 08:57:29 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -890,7 +890,9 @@
 			(warn "Multiboot load-address #x~x is below the 1MB mark."
 			      load-address))
 		      (when (> (+ mb-file-position (sizeof mb)) 8192)
-			(warn "Multiboot header at position ~D is above the 8KB mark."))
+			(warn "Multiboot header at position ~D is above the 8KB mark, ~
+this image will not be Multiboot compatible."
+			      (+ mb-file-position (sizeof mb))))
 		      (assert (file-position stream mb-file-position) ()
 			"Couldn't set file-position for ~W to ~W."
 			(pathname stream)