/[meta-cvs]/meta-cvs/F-0BAB20DD5AC6CA222E7E6E3055487AB2.lisp
ViewVC logotype

Diff of /meta-cvs/F-0BAB20DD5AC6CA222E7E6E3055487AB2.lisp

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

revision 1.2 by kaz, Tue Jul 2 18:32:52 2002 UTC revision 1.3 by kaz, Sun Jul 14 18:39:52 2002 UTC
# Line 9  Line 9 
9    
10  (defun mcvs-purge (global-options purge-options)  (defun mcvs-purge (global-options purge-options)
11    (find-bind (:key #'first :test #'string= :take #'second)    (find-bind (:key #'first :test #'string= :take #'second)
12               (remaining-options (dry-run-only "n"))               ((dry-run-only "n"))
13               purge-options               purge-options
     (declare (ignore remaining-options))  
14      (in-sandbox-root-dir      (in-sandbox-root-dir
15        (let* ((filemap (mapping-read *mcvs-map* :sanity-check t))        (let* ((filemap (mapping-read *mcvs-map* :sanity-check t))
16               (to-be-removed (mapping-removed-files filemap)))               (to-be-removed (mapping-removed-files filemap)))

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

  ViewVC Help
Powered by ViewVC 1.1.5