/[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.37 by kaz, Fri Nov 24 04:53:50 2006 UTC revision 1.38 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-add (recursivep cvs-options add-options files)  (defun add (recursivep cvs-options add-options files)
8    (in-sandbox-root-dir    (in-sandbox-root-dir
9      (let* ((filemap (mapping-read *mcvs-map*))      (let* ((filemap (mapping-read *mcvs-map*))
10             (saved-filemap (copy-list filemap))             (saved-filemap (copy-list filemap))
# Line 118  Line 118 
118          (mapping-update))))          (mapping-update))))
119    (values))    (values))
120    
121  (defun mcvs-add-wrapper (cvs-options cvs-command-options mcvs-args)  (defun add-wrapper (cvs-options cvs-command-options mcvs-args)
122    (multiple-value-bind (recursivep rest-add-options)    (multiple-value-bind (recursivep rest-add-options)
123                         (separate "R" cvs-command-options                         (separate "R" cvs-command-options
124                                       :key #'first :test #'string=)                                       :key #'first :test #'string=)
125      (mcvs-add recursivep cvs-options rest-add-options mcvs-args)))      (add recursivep cvs-options rest-add-options mcvs-args)))
126    
127  (defconstant *add-help*  (defconstant *add-help*
128  "Syntax:  "Syntax:

Legend:
Removed from v.1.37  
changed lines
  Added in v.1.38

  ViewVC Help
Powered by ViewVC 1.1.5