/[meta-cvs]/meta-cvs/F-A7A64FB1054A27E5F51A7E95C6A80309
ViewVC logotype

Diff of /meta-cvs/F-A7A64FB1054A27E5F51A7E95C6A80309

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

revision 1.17 by kaz, Wed Apr 17 15:33:05 2002 UTC revision 1.18 by kaz, Wed Apr 17 15:46:35 2002 UTC
# Line 15  Line 15 
15               (cvs-checkout-options (dir "d" module))               (cvs-checkout-options (dir "d" module))
16               checkout-options               checkout-options
17      (let ((checkout-dir (canonicalize-path dir)))      (let ((checkout-dir (canonicalize-path dir)))
       (when (and (not (path-equal *this-dir* checkout-dir))  
                  (ignore-errors (stat checkout-dir)))  
         (error "mcvs-checkout: a directory or file called ~a exists here already."  
                checkout-dir))  
   
18        (ensure-directories-exist (path-cat checkout-dir *mcvs-dir*))        (ensure-directories-exist (path-cat checkout-dir *mcvs-dir*))
19    
20        (current-dir-restore        (current-dir-restore
21          (chdir checkout-dir)          (chdir checkout-dir)
22    
23            (when (ignore-errors (stat *mcvs-dir*))
24              (error "mcvs-checkout: directory ~a seems to be the root of an existing sandbox."
25                     checkout-dir))
26    
27          (chatter-debug "Invoking CVS.~%")          (chatter-debug "Invoking CVS.~%")
28          (execute-program `("cvs" ,@(format-opt cvs-options)          (execute-program `("cvs" ,@(format-opt cvs-options)
29                             "checkout" "-d" ,*mcvs-dir*                             "checkout" "-d" ,*mcvs-dir*
30                             ,@(format-opt cvs-checkout-options) ,module))                             ,@(format-opt cvs-checkout-options) ,module))
31    
32          (if (not (ignore-errors (stat *mcvs-dir*)))          (when (not (ignore-errors (stat *mcvs-dir*)))
33            (error "mcvs-checkout: checkout failed to create ~a directory."            (error "mcvs-checkout: checkout failed to create ~a directory."
34                   *mcvs-dir*))                   *mcvs-dir*))
35    

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18

  ViewVC Help
Powered by ViewVC 1.1.5