/[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.11 by kaz, Fri Nov 24 04:53:50 2006 UTC revision 1.12 by kaz, Tue Nov 28 04:12:08 2006 UTC
# Line 4  Line 4 
4    
5  (in-package :meta-cvs)  (in-package :meta-cvs)
6    
7  (defun mcvs-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 *mcvs-map-local*))
10             (cvs-mapping (mapping-read *mcvs-map*))             (cvs-mapping (mapping-read *mcvs-map*))
# Line 49  Line 49 
49        (mapping-write new-mapping *mcvs-map-local* :sort-map t)        (mapping-write new-mapping *mcvs-map-local* :sort-map t)
50        (mapping-write new-mapping *mcvs-map* :sort-map t))))        (mapping-write new-mapping *mcvs-map* :sort-map t))))
51    
52  (defun mcvs-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))
54    (when args    (when args
55      (error "command takes no arguments."))      (error "command takes no arguments."))
56    (mcvs-remap))    (remap))

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

  ViewVC Help
Powered by ViewVC 1.1.5