[Openmcl-cvs-notifications] r9006 - /trunk/source/xdump/xfasload.lisp

[gb at clozure.com]

Author: gb
Date: Fri Apr  4 02:02:18 2008
New Revision: 9006

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

Modified:
    trunk/source/xdump/xfasload.lisp

Modified: trunk/source/xdump/xfasload.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/xdump/xfasload.lisp (original)
+++ trunk/source/xdump/xfasload.lisp Fri Apr  4 02:02:18 2008
@@ -1067,11 +1067,12 @@
     (setf (xload-symbol-value (xload-copy-symbol '*xload-cold-load-functio=
ns*))
           (xload-save-list (setq *xload-cold-load-functions*
                                  (nreverse *xload-cold-load-functions*))))
-    (let* ((svnrev (local-svn-revision)))
+    (let* ((svnrev (local-svn-revision))
+           (tree (svn-tree)))
       (setf (xload-symbol-value (xload-copy-symbol '*openmcl-svn-revision*=
))
             (typecase svnrev
               (fixnum (ash svnrev *xload-target-fixnumshift*))
-              (string (xload-save-string svnrev))
+              (string (xload-save-string (if tree (format nil "~a-~a" svnr=
ev tree) svnrev)))
               (t *xload-target-nil*))))
     (let* ((experimental-features *build-time-optional-features*))
       (setf (xload-symbol-value (xload-copy-symbol '*optional-features*))