ViewVC logotype

Diff of /meta-cvs/F-BE2DE9340254D8E8E6E2649A55D3A742

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

revision 1.6 by kaz, Fri Sep 6 02:17:27 2002 UTC revision by kaz, Tue Dec 3 08:04:58 2002 UTC
# Line 26  happens, and NIL is returned. If either Line 26  happens, and NIL is returned. If either
26          ((or (directory-p left) (directory-p right))          ((or (directory-p left) (directory-p right))
27            :dir)            :dir)
28          ((not right)          ((not right)
29            (ensure-directories-exist right-file)            (honor-dry-run (left-file right-file)
30            (link left-file right-file)              (ensure-directories-exist right-file)
31            (exec-check left-file)              (link left-file right-file)
32                (exec-check left))
33            :left)            :left)
34          ((not left)          ((not left)
35            (ensure-directories-exist left-file)            (honor-dry-run (left-file right-file)
36            (link right-file left-file)              (ensure-directories-exist left-file)
37            (exec-check right-file)              (link right-file left-file)
38                (exec-check right))
39            :right)            :right)
40          ((same-file-p right left)          ((same-file-p right left)
41            (exec-check right-file)            (honor-dry-run (right-file)
42                (exec-check right))
43            :same)            :same)
44          ((older-p left right)          ((older-p left right)
45            (unlink left-file)            (honor-dry-run (left-file right-file)
46            (link right-file left-file)              (unlink left-file)
47            (exec-check right-file)              (link right-file left-file)
48                (exec-check right))
49            :right)            :right)
50          ((older-p right left)          ((older-p right left)
51            (unlink right-file)            (honor-dry-run (left-file right-file)
52            (link left-file right-file)              (unlink right-file)
53            (exec-check left-file)              (link left-file right-file)
54                (exec-check left))
55            :left)            :left)
56          (t          (t
57            (restart-case            (restart-case
# Line 55  happens, and NIL is returned. If either Line 60  happens, and NIL is returned. If either
60              (:choose-left () :report (lambda (s)              (:choose-left () :report (lambda (s)
61                                         (format s "take ~a; clobber ~a."                                         (format s "take ~a; clobber ~a."
62                                                 left-file right-file))                                                 left-file right-file))
63                (unlink right-file)                (honor-dry-run (left-file right-file)
64                (link left-file right-file)                  (unlink right-file)
65                (exec-check left-file)                  (link left-file right-file)
66                    (exec-check left))
67                :left)                :left)
68              (:choose-right () :report (lambda (s)              (:choose-right () :report (lambda (s)
69                                          (format s "take ~a; clobber ~a."                                          (format s "take ~a; clobber ~a."
70                                                  right-file left-file))                                                  right-file left-file))
71                (unlink left-file)                (honor-dry-run (left-file right-file)
72                (link right-file left-file)                  (unlink left-file)
73                (exec-check right-file)                  (link right-file left-file)
74                    (exec-check right))
75                :right)))))))                :right)))))))

Removed from v.1.6  
changed lines
  Added in v.

  ViewVC Help
Powered by ViewVC 1.1.5