Changeset 7297


Ignore:
Timestamp:
Sep 26, 2007, 2:57:48 AM (12 years ago)
Author:
gb
Message:

Yet another version-tracking change, merged from trunk.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0709/ccl/xdump/xfasload.lisp

    r6212 r7297  
    10641064          (xload-save-list (setq *xload-cold-load-functions*
    10651065                                 (nreverse *xload-cold-load-functions*))))
     1066    (let* ((svnrev (local-svn-revision)))
     1067      (setf (xload-symbol-value (xload-copy-symbol '*openmcl-svn-revision*))
     1068            (typecase svnrev
     1069              (fixnum (ash svnrev *xload-target-fixnumshift*))
     1070              (string (xload-save-string svnrev))
     1071              (t *xload-target-nil*))))
     1072                             
    10661073    (when *xload-show-cold-load-functions*
    10671074      (format t "~&cold-load-functions list:")
Note: See TracChangeset for help on using the changeset viewer.