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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.8 - (hide annotations)
Fri Nov 24 04:53:49 2006 UTC (7 years, 4 months ago) by kaz
Branch: MAIN
Changes since 1.7: +1 -1 lines
Stylistic change.

* code/add.lisp: Change in-package calls not to use the all-caps
"META-CVS" string string, but rather the :meta-cvs keyword.
* code/branch.lisp: Likewise.
* code/chatter.lisp: Likewise.
* code/checkout.lisp: Likewise.
* code/clisp-unix.lisp: Likewise.
* code/cmucl-unix.lisp: Likewise.
* code/convert.lisp: Likewise.
* code/create.lisp: Likewise.
* code/dirwalk.lisp: Likewise.
* code/error.lisp: Likewise.
* code/execute.lisp: Likewise.
* code/filt.lisp: Likewise.
* code/find-bind.lisp: Likewise.
* code/generic.lisp: Likewise.
* code/grab.lisp: Likewise.
* code/link.lisp: Likewise.
* code/main.lisp: Likewise.
* code/mapping.lisp: Likewise.
* code/memoize.lisp: Likewise.
* code/move.lisp: Likewise.
* code/multi-hash.lisp: Likewise.
* code/options.lisp: Likewise.
* code/paths.lisp: Likewise.
* code/print.lisp: Likewise.
* code/prop.lisp: Likewise.
* code/purge.lisp: Likewise.
* code/rcs-utils.lisp: Likewise.
* code/remap.lisp: Likewise.
* code/remove.lisp: Likewise.
* code/restart.lisp: Likewise.
* code/restore.lisp: Likewise.
* code/seqfuncs.lisp: Likewise.
* code/slot-refs.lisp: Likewise.
* code/split.lisp: Likewise.
* code/sync.lisp: Likewise.
* code/types.lisp: Likewise.
* code/unix.lisp: Likewise.
* code/update.lisp: Likewise.
* code/watch.lisp: Likewise.
1 kaz 1.1 ;;; This source file is part of the Meta-CVS program,
2     ;;; which is distributed under the GNU license.
3     ;;; Copyright 2002 Kaz Kylheku
4    
5 kaz 1.8 (in-package :meta-cvs)
6 kaz 1.1
7 kaz 1.5 (defun mcvs-purge (global-options)
8     (in-sandbox-root-dir
9     (let* ((filemap (mapping-read *mcvs-map* :sanity-check t))
10     (to-be-removed (mapping-removed-files filemap)))
11     (when to-be-removed
12     (chdir *mcvs-dir*)
13     (chatter-debug "Invoking CVS.~%")
14     (unless (execute-program-xargs `("cvs" ,@(format-opt global-options)
15     "rm" "-f")
16     (mapcar #'basename to-be-removed))
17     (error "CVS rm failed.")))))
18 kaz 1.1 (values))
19    
20     (defun mcvs-purge-wrapper (global-options command-options args)
21 kaz 1.5 (declare (ignore command-options))
22 kaz 1.1 (when args
23 kaz 1.4 (error "no arguments permitted."))
24 kaz 1.5 (mcvs-purge global-options))

  ViewVC Help
Powered by ViewVC 1.1.5