Changeset 9006


Ignore:
Timestamp:
Apr 4, 2008, 6:02:18 AM (11 years ago)
Author:
gb
Message:

Incorporate SVN-TREE output into *OPENMCL-SVN-REVISION*.

File:
1 edited

Legend:

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

    r8432 r9006  
    10681068          (xload-save-list (setq *xload-cold-load-functions*
    10691069                                 (nreverse *xload-cold-load-functions*))))
    1070     (let* ((svnrev (local-svn-revision)))
     1070    (let* ((svnrev (local-svn-revision))
     1071           (tree (svn-tree)))
    10711072      (setf (xload-symbol-value (xload-copy-symbol '*openmcl-svn-revision*))
    10721073            (typecase svnrev
    10731074              (fixnum (ash svnrev *xload-target-fixnumshift*))
    1074               (string (xload-save-string svnrev))
     1075              (string (xload-save-string (if tree (format nil "~a-~a" svnrev tree) svnrev)))
    10751076              (t *xload-target-nil*))))
    10761077    (let* ((experimental-features *build-time-optional-features*))
Note: See TracChangeset for help on using the changeset viewer.