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

Diff of /meta-cvs/F-C232DEE072E25B4F4683B91342CEC065

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

revision 1.29 by kaz, Thu Feb 27 06:01:28 2003 UTC revision 1.30 by kaz, Sun Mar 2 06:57:29 2003 UTC
# Line 8  Line 8 
8  (require "types")  (require "types")
9  (require "chatter")  (require "chatter")
10  (require "options")  (require "options")
11    (require "restart")
12  (require "mcvs-package")  (require "mcvs-package")
13  (provide "create")  (provide "create")
14    
# Line 69  Line 70 
70                      (push cp crud))))                      (push cp crud))))
71                (when crud                (when crud
72                  (setf preserve-mcvs-dir t)                  (setf preserve-mcvs-dir t)
73                  (block nil                  (super-restart-case
74                    (restart-bind                    (error "Unexpected files found in ~a directory. (Text editor backups?)"
75                      ((continue                           *mcvs-dir*)
76                         #'(lambda ()                    (continue ()
77                             (return))                      :report "Delete the unexpected files."
78                         :report-function                      (unwind))
79                         #'(lambda (stream)                    (show ()
80                             (write-string "Delete the unexpected files."                      :report "List the names of the unexpected files."
81                                           stream)))                      (dolist (cp crud)
82                       (show                        (write-line cp))))
                        #'(lambda ()  
                            (dolist (cp crud)  
                              (write-line cp)))  
                        :report-function  
                        #'(lambda (stream)  
                            (write-string "List the names of the unexpected files."  
                                          stream))))  
                     (error "Unexpected files found in ~a directory. (Text editor backups?)"  
                            *mcvs-dir*)))  
83                  (dolist (cp crud)                  (dolist (cp crud)
84                    (unlink cp))                    (unlink cp))
85                  (setf preserve-mcvs-dir nil))))                  (setf preserve-mcvs-dir nil))))

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

  ViewVC Help
Powered by ViewVC 1.1.5