Changeset 9689


Ignore:
Timestamp:
Jun 6, 2008, 10:21:57 PM (11 years ago)
Author:
mikel
Message:

debugged some svn info functions

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/cocoa-ide/ide-self-update.lisp

    r9688 r9689  
    233233    (if (valid-directory-for-svn-update? ccl-dir)
    234234        ;; compare revision number of working copy with repo
    235         (let* ((repo (svn-repository))
    236                (local-revision (read-from-string (svn-revision ccl-dir)))
    237                (repo-revision (read-from-string (svn-revision repo))))
     235        (let* ((local-revision (read-from-string (svn-revision)))
     236               (repo (svn-repository))
     237               (repo-info (parse-svn-info (svn-info repo)))
     238               (repo-revision-entry (assoc "Revision:" repo-info :test #'string=))
     239               (repo-revision (or (and repo-revision-entry
     240                                       (read-from-string (second repo-revision-entry)))
     241                                  0)))
    238242          (< local-revision repo-revision))
    239243        nil)))
Note: See TracChangeset for help on using the changeset viewer.