/[meta-cvs]/meta-cvs/F-8BA9006638D7FE514EB070E969A467D9
ViewVC logotype

Contents of /meta-cvs/F-8BA9006638D7FE514EB070E969A467D9

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.10 - (show annotations)
Tue Nov 28 07:47:22 2006 UTC (7 years, 4 months ago) by kaz
Branch: MAIN
CVS Tags: asdf-import-branch~merged-to-HEAD-0, mcvs-1-1-98, asdf-import-branch~branch-point, HEAD
Branch point for: asdf-import-branch
Changes since 1.9: +9 -10 lines
More renaming to get rid of mcvs- prefix.

* code/chatter.lisp (*mcvs-debug*): Renamed to *chatter-debug*.
(*mcvs-info*, *mcvs-terse*, *mcvs-silent*): Similarly.
(*mcvs-chatter-level*): Renamed to *chatter-level*.

* code/unix.lisp (*mcvs-editor*): Renamed to *edit-program*.

* code/types.lisp (*mcvs-types-name*): Renamed to *types-file*.
(*mcvs-types*): Renamed to *types-path*.
(*mcvs-new-types*): Renamed to *types-new-path*.

* code/mapping.lisp (*mcvs-dir*): Renamed to *admin-dir*.
(*mcvs-map-name*): Renamed to *map-file*.
(*mcvs-map-local-name*): Renamed to *map-local-file*.
(*mcvs-displaced-name*): Renamed to *displaced-file*.
(*mcvs-map*): Renamed to *map-path*.
(*mcvs-map-local*): Renamed to *map-local-path*.
(*mcvs-displaced*): Renamed to *displaced-path*.
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 (in-package :meta-cvs)
6
7 (defconstant *chatter-debug* 3)
8 (defconstant *chatter-info* 2)
9 (defconstant *chatter-terse* 1)
10 (defconstant *chatter-silent* 0)
11
12 (defvar *chatter-level* *chatter-info*)
13
14 (defun chatter (level &rest args)
15 (when (>= *chatter-level* level)
16 (write-string "* " *error-output*)
17 (apply #'format *error-output* args)))
18
19 (defmacro chatter-debug (&rest args)
20 `(chatter *chatter-debug* ,@args))
21
22 (defmacro chatter-info (&rest args)
23 `(chatter *chatter-info* ,@args))
24
25 (defmacro chatter-terse (&rest args)
26 `(chatter *chatter-terse* ,@args))

  ViewVC Help
Powered by ViewVC 1.1.5