/[meta-cvs]/meta-cvs/F-73871F8E513E48E095DE0FEFB1CFC48B
ViewVC logotype

Diff of /meta-cvs/F-73871F8E513E48E095DE0FEFB1CFC48B

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

revision 1.27 by kaz, Sun Oct 6 05:32:58 2002 UTC revision 1.28 by kaz, Sun Oct 6 07:28:30 2002 UTC
# Line 23  Line 23 
23    
24        (dolist (file files)        (dolist (file files)
25          (let (expanded-paths)          (let (expanded-paths)
26            (if recursivep            (can-restart-here ("Continue processing arguments after ~a." file)
27              (for-each-path (full-name (sandbox-translate-path file))              (if recursivep
28                (push (canonicalize-path full-name) expanded-paths))                (for-each-path (full-name (sandbox-translate-path file))
29              (push (sandbox-translate-path file) expanded-paths))                  (push (canonicalize-path full-name) expanded-paths))
30                  (push (sandbox-translate-path file) expanded-paths)))
31            (nreverse expanded-paths)            (nreverse expanded-paths)
32    
33            (dolist (full-name expanded-paths)            (dolist (full-name expanded-paths)
34              (can-restart-here ("Continue adding files.")              (can-restart-here ("Continue mapping files.")
35                (let ((abs-name (real-to-abstract-path full-name))                (let ((abs-name (real-to-abstract-path full-name))
36                      (file-info (stat full-name)))                      (file-info (stat full-name)))
37                  (cond                  (cond

Legend:
Removed from v.1.27  
changed lines
  Added in v.1.28

  ViewVC Help
Powered by ViewVC 1.1.5