Changeset 7279


Ignore:
Timestamp:
Sep 23, 2007, 2:28:25 PM (12 years ago)
Author:
gb
Message:

Handle saving svn revision as string or fixnum.

File:
1 edited

Legend:

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

    r7274 r7279  
    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*))
     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*))))
    10681072                             
    10691073    (when *xload-show-cold-load-functions*
Note: See TracChangeset for help on using the changeset viewer.