/[meta-cvs]/meta-cvs/F-26D2A2DCE1CF180F943606C59DC63A51.lisp
ViewVC logotype

Diff of /meta-cvs/F-26D2A2DCE1CF180F943606C59DC63A51.lisp

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

revision 1.17 by kaz, Mon Sep 2 19:25:47 2002 UTC revision 1.18 by kaz, Sun Sep 8 01:34:53 2002 UTC
# Line 242  Line 242 
242                                               (with-slots (id path) entry                                               (with-slots (id path) entry
243                                                 (list path nil id)))                                                 (list path nil id)))
244                                           removed-files)))                                           removed-files)))
245            (t (chatter-terse "Analyzing ~a added files.~%" (length added-files))            (t (chatter-terse "Analyzing ~a added file~:p.~%" (length added-files))
246               (setf added-files (mapcar #'(lambda (name)               (setf added-files (mapcar #'(lambda (name)
247                                          (list name (word-hash-file name)))                                          (list name (word-hash-file name)))
248                                      added-files))                                      added-files))
249    
250               (chatter-terse "Analyzing ~a removed files.~%" (length removed-files))               (chatter-terse "Analyzing ~a removed file~:p.~%" (length removed-files))
251               (setf removed-files (mapcar #'(lambda (entry)               (setf removed-files (mapcar #'(lambda (entry)
252                                               (with-slots (id path) entry                                               (with-slots (id path) entry
253                                                 (list path                                                 (list path
# Line 268  Line 268 
268                                 (determine-moved-files added-files                                 (determine-moved-files added-files
269                                                        removed-files))                                                        removed-files))
270            (when added-symlinks            (when added-symlinks
271              (chatter-terse "Reading ~a added symbolic links.~%"              (chatter-terse "Reading ~a added symbolic link~:p.~%"
272                             (length added-symlinks))                             (length added-symlinks))
273              (setf added-symlinks (mapcar #'(lambda (path)              (setf added-symlinks (mapcar #'(lambda (path)
274                                               (list path (readlink path)))                                               (list path (readlink path)))

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18

  ViewVC Help
Powered by ViewVC 1.1.5