Changeset 7274


Ignore:
Timestamp:
Sep 23, 2007, 4:51:04 AM (12 years ago)
Author:
gb
Message:

Set *openmcl-svn-revision* to the value of (LOCAL-SVN-REVISION) when writing
the bootstrapping image; this will show up in the Welcome banner and
LISP-IMPLEMENTATION-VERSION. May want to tweak this some more, but it
may make it easier to determine what you're running relative to what's
in SVN/CVS.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/xdump/xfasload.lisp

    r6212 r7274  
    10641064          (xload-save-list (setq *xload-cold-load-functions*
    10651065                                 (nreverse *xload-cold-load-functions*))))
     1066    (setf (xload-symbol-value (xload-copy-symbol '*openmcl-svn-revision*))
     1067          (ash (local-svn-revision) *xload-target-fixnumshift*))
     1068                             
    10661069    (when *xload-show-cold-load-functions*
    10671070      (format t "~&cold-load-functions list:")
Note: See TracChangeset for help on using the changeset viewer.