[movitz-cvs] CVS update: movitz/losp/los0.lisp - movitz-cvs@common-lisp.net - mailman3.common-lisp.net

25 Mar 2004

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.")

    