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