[movitz-cvs] CVS update: movitz/losp/los0.lisp

[Frode Vatvedt Fjeld]

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

Modified Files:
	los0.lisp 
Log Message:
Add notification about *build-number* in genesis.

Date: Thu Mar 25 04:24:01 2004
Author: ffjeld

Index: movitz/losp/los0.lisp
diff -u movitz/losp/los0.lisp:1.5 movitz/losp/los0.lisp:1.6
--- movitz/losp/los0.lisp:1.5	Wed Mar 24 08:25:13 2004
+++ movitz/losp/los0.lisp	Thu Mar 25 04:24:00 2004
@@ -9,7 +9,7 @@
 ;;;; Created at:    Fri Dec  1 18:08:32 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: los0.lisp,v 1.5 2004/03/24 13:25:13 ffjeld Exp $
+;;;; $Id: los0.lisp,v 1.6 2004/03/25 09:24:00 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -595,9 +595,6 @@
 	(memref-int #x1000004 0 0 :unsigned-byte8)))
 
 
-
-
-
 ;;;;;
 
 ;;;;;;;;;;;;;;; CL
@@ -863,6 +860,7 @@
     (let ((* nil) (** nil) (*** nil)
 	  (/ nil) (// nil) (/// nil)
 	  (+ nil) (++ nil) (+++ nil))
+      (format t "~&Movitz image Los0 build ~D." *build-number*)
       (loop
 	(catch :top-level-repl		; If restarts don't work, you can throw this..
 	  (with-simple-restart (abort "Abort to the top command level.")