/[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.20 by kaz, Sat Sep 21 17:58:23 2002 UTC revision 1.21 by kaz, Sat Oct 5 18:09:48 2002 UTC
# Line 186  Line 186 
186               ((branch "r") (trunk "A"))               ((branch "r") (trunk "A"))
187               command-options               command-options
188      (when (and branch trunk)      (when (and branch trunk)
189        (error "mcvs-grab: both -r and -A specified."))        (error "both -r and -A specified."))
190      (when (and (not branch) (not trunk))      (when (and (not branch) (not trunk))
191        (error "mcvs-grab: specify branch using -r or main trunk using -A."))        (error "specify branch using -r or main trunk using -A."))
192      (mcvs-checkout module subdir global-options      (mcvs-checkout module subdir global-options
193                     `(("d" ,*this-dir*) ,@(if branch (list branch)))                     `(("d" ,*this-dir*) ,@(if branch (list branch)))
194                     :no-generate t)                     :no-generate t)
# Line 354  Line 354 
354    
355  (defun mcvs-grab-wrapper (global-options command-options args)  (defun mcvs-grab-wrapper (global-options command-options args)
356    (flet ((error ()    (flet ((error ()
357             (error "mcvs-grab: specify module name, and optional subdirectory.")))             (error "specify module name, and optional subdirectory.")))
358      (when (zerop (length args))      (when (zerop (length args))
359        (error))        (error))
360      (destructuring-bind (module &optional subdir &rest superfluous) args      (destructuring-bind (module &optional subdir &rest superfluous) args

Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21

  ViewVC Help
Powered by ViewVC 1.1.5