/[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.2 by kaz, Mon Jan 21 07:04:24 2002 UTC revision 1.3 by kaz, Mon Jan 21 18:55:17 2002 UTC
# Line 9  Line 9 
9        (if (not down-path)        (if (not down-path)
10          (error "mcvs-remove: could not locate ~a directory." *mcvs-dir*))          (error "mcvs-remove: could not locate ~a directory." *mcvs-dir*))
11    
12          (when (null files)
13            (return-from mcvs-remove (values)))
14    
15        (with-open-file (file *mcvs-map* :direction :input)        (with-open-file (file *mcvs-map* :direction :input)
16          (setf filemap (read file)))          (setf filemap (read file)))
17    
18        (chatter-info "Unmapping.~%")        (chatter-info "Unmapping.~%")
       (when (null files)  
         (setf files '(".")))  
19        (dolist (file files)        (dolist (file files)
20          (can-restart-here ("Continue unmapping files.")          (can-restart-here ("Continue unmapping files.")
21            (multiple-value-bind (full-name out-of-bounds)            (multiple-value-bind (full-name out-of-bounds)

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

  ViewVC Help
Powered by ViewVC 1.1.5