/[meta-cvs]/meta-cvs/F-FA1826D235E55390A70DEBE51DC3234B.lisp
ViewVC logotype

Diff of /meta-cvs/F-FA1826D235E55390A70DEBE51DC3234B.lisp

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

revision 1.12 by kaz, Tue Nov 28 04:12:08 2006 UTC revision 1.13 by kaz, Tue Nov 28 07:47:22 2006 UTC
# Line 6  Line 6 
6    
7  (defun remap ()  (defun remap ()
8    (in-sandbox-root-dir    (in-sandbox-root-dir
9      (let* ((old-mapping (mapping-read *mcvs-map-local*))      (let* ((old-mapping (mapping-read *map-local-path*))
10             (cvs-mapping (mapping-read *mcvs-map*))             (cvs-mapping (mapping-read *map-path*))
11             (inode-hash (make-hash-table :test #'eql))             (inode-hash (make-hash-table :test #'eql))
12             (new-mapping (remove-if #'(lambda (entry)             (new-mapping (remove-if #'(lambda (entry)
13                                         (with-slots (path kind) entry                                         (with-slots (path kind) entry
# Line 44  Line 44 
44              ((symlink-p fi)              ((symlink-p fi)
45                (chatter-info "skipping symbolic link ~a.~%" path))                (chatter-info "skipping symbolic link ~a.~%" path))
46              ((directory-p fi)              ((directory-p fi)
47                (when (path-equal path *mcvs-dir*)                (when (path-equal path *admin-dir*)
48                  (skip))))))                  (skip))))))
49        (mapping-write new-mapping *mcvs-map-local* :sort-map t)        (mapping-write new-mapping *map-local-path* :sort-map t)
50        (mapping-write new-mapping *mcvs-map* :sort-map t))))        (mapping-write new-mapping *map-path* :sort-map t))))
51    
52  (defun remap-wrapper (global-options command-options args)  (defun remap-wrapper (global-options command-options args)
53    (declare (ignore global-options command-options))    (declare (ignore global-options command-options))

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

  ViewVC Help
Powered by ViewVC 1.1.5