[isidorus-cvs] r14 - trunk/src/rest_interface

[Christoph Ludwig]

Author: cludwig
Date: Sun Feb  1 23:22:25 2009
New Revision: 14

Log:
fix the computation of the most recent already imported snapshot

Modified:
   trunk/src/rest_interface/read.lisp

Modified: trunk/src/rest_interface/read.lisp
==============================================================================
--- trunk/src/rest_interface/read.lisp	(original)
+++ trunk/src/rest_interface/read.lisp	Sun Feb  1 23:22:25 2009
@@ -101,7 +101,7 @@
  (let*
       ((feed (read-snapshots-feed snapshot-feed-url))
        (all-entries (slot-value feed 'atom:entries))
-       (most-recent-imported-entry all-entries))
+       (most-recent-imported-entry (most-recent-entry all-entries)))
    (if most-recent-imported-entry
        most-recent-imported-entry
        (let*