/[meta-cvs]/meta-cvs/F-FFF16CA4956A36F19290AC9E1EBAFFD8
ViewVC logotype

Diff of /meta-cvs/F-FFF16CA4956A36F19290AC9E1EBAFFD8

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.38 by kaz, Mon Jul 8 05:11:10 2002 UTC revision 1.39 by kaz, Mon Jul 8 05:20:42 2002 UTC
# Line 240  to ensure that the newly incorporated ch Line 240  to ensure that the newly incorporated ch
240  - a mapping containing only elements removed by new-mapping; and  - a mapping containing only elements removed by new-mapping; and
241  - a list of moved items, which contains pairs of elements from both, whose  - a list of moved items, which contains pairs of elements from both, whose
242    object name matches, but path differs."    object name matches, but path differs."
243    (multiple-value-bind (matching-pairs added-items removed-items)    (multiple-value-bind (moved-pairs added-items removed-items)
244                         (intersection-difference                         (intersection-difference
245                           new-mapping old-mapping                           new-mapping old-mapping
246                           :key #'first :test #'equal                           :key #'first :test #'equal
247                           :combine #'(lambda (new old)                           :combine #'(lambda (new old)
248                                        (unless (string= (second new)                                        (unless (string= (second new)
249                                                         (second old))                                                         (second old))
250                                          (list old new))))                                          (list old new)))
251      (let ((moved-pairs (remove-if #'null matching-pairs)))                           :squash-nil t)
252        (values added-items removed-items moved-pairs))))      (values added-items removed-items moved-pairs)))
253    
254  (defun mapping-update (&key no-delete-removed)  (defun mapping-update (&key no-delete-removed)
255  #.(format nil  #.(format nil

Legend:
Removed from v.1.38  
changed lines
  Added in v.1.39

  ViewVC Help
Powered by ViewVC 1.1.5