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

Contents of /meta-cvs/F-8BA9006638D7FE514EB070E969A467D9

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.3 - (hide annotations)
Sat Jan 26 02:37:53 2002 UTC (12 years, 2 months ago) by kaz
Branch: MAIN
CVS Tags: cvs-options-passthrough, mcvs-0-1, mcvs-0-0
Changes since 1.2: +4 -0 lines
Copyright notices.
1 kaz 1.3 ;;; This source file is part of the MCVS program,
2     ;;; which is distributed under the GNU license.
3     ;;; Copyright 2002 Kaz Kylheku
4    
5 kaz 1.1 (provide "chatter")
6    
7     (defvar *mcvs-chatter-level* 2)
8 kaz 1.2 (declaim (special *mcvs-chatter-level*))
9 kaz 1.1
10     (defconstant *mcvs-debug* 3)
11     (defconstant *mcvs-info* 2)
12     (defconstant *mcvs-terse* 1)
13     (defconstant *mcvs-silent* 0)
14    
15     (defun chatter (level &rest args)
16     (when (>= *mcvs-chatter-level* level)
17     (write-string "* ")
18     (apply #'format t args)))
19    
20     (defmacro chatter-debug (&rest args)
21     `(chatter *mcvs-debug* ,@args))
22    
23     (defmacro chatter-info (&rest args)
24     `(chatter *mcvs-info* ,@args))
25    
26     (defmacro chatter-terse (&rest args)
27     `(chatter *mcvs-terse* ,@args))

  ViewVC Help
Powered by ViewVC 1.1.5