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

[Frode Vatvedt Fjeld]

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

Modified Files:
	image.lisp 
Log Message:
Added muerte:*build-number* magic variable that gets initialized to
the build number, aka. bootblock ID.

Date: Wed Mar 24 13:39:42 2004
Author: ffjeld

Index: movitz/image.lisp
diff -u movitz/image.lisp:1.18 movitz/image.lisp:1.19
--- movitz/image.lisp:1.18	Wed Mar 24 08:20:24 2004
+++ movitz/image.lisp	Wed Mar 24 13:39:42 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.18 2004/03/24 13:20:24 ffjeld Exp $
+;;;; $Id: image.lisp,v 1.19 2004/03/24 18:39:42 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -718,6 +718,8 @@
     (format t "~&;; Doing initiating dump..")
     (dump-image :path path :multiboot-p multiboot-p :ignore-dump-count t)
     (assert (plusp (dump-count *image*))))
+  (setf (movitz-symbol-value (movitz-read 'muerte:*build-number*))
+    (1+ *bootblock-build*))
   (let ((load-address (image-start-address *image*)))
     (setf (image-cons-pointer *image*) (- load-address
 					  (image-ds-segment-base *image*))