/[meta-cvs]/meta-cvs/F-993DC8DDEC493F0D641AC0C23DB6BAB0
ViewVC logotype

Diff of /meta-cvs/F-993DC8DDEC493F0D641AC0C23DB6BAB0

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

revision 1.28 by kaz, Fri Nov 24 04:53:50 2006 UTC revision 1.29 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-remove (recursivep files &key no-sync)  (defun rm (recursivep files &key no-sync)
8    (when (null files)    (when (null files)
9      (return-from mcvs-remove (values)))      (return-from rm (values)))
10    
11    (in-sandbox-root-dir    (in-sandbox-root-dir
12      (let (files-to-remove (filemap (mapping-read *mcvs-map*)))      (let (files-to-remove (filemap (mapping-read *mcvs-map*)))
# Line 47  Line 47 
47          (mapping-update :no-delete-removed no-sync))))          (mapping-update :no-delete-removed no-sync))))
48    (values))    (values))
49    
50  (defun mcvs-remove-wrapper (cvs-options cvs-command-options mcvs-args)  (defun remove-wrapper (cvs-options cvs-command-options mcvs-args)
51    (declare (ignore cvs-options))    (declare (ignore cvs-options))
52    (find-bind (:test #'string= :key #'first)    (find-bind (:test #'string= :key #'first)
53               ((recursivep "R"))               ((recursivep "R"))
54               cvs-command-options               cvs-command-options
55      (mcvs-remove recursivep mcvs-args)))      (rm recursivep mcvs-args)))
56    
57  (defconstant *remove-help*  (defconstant *remove-help*
58  "Syntax:  "Syntax:

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

  ViewVC Help
Powered by ViewVC 1.1.5