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

Diff of /meta-cvs/F-8BA9006638D7FE514EB070E969A467D9

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

revision 1.9 by kaz, Fri Nov 24 04:53:50 2006 UTC revision 1.10 by kaz, Tue Nov 28 07:47:22 2006 UTC
# Line 4  Line 4 
4    
5  (in-package :meta-cvs)  (in-package :meta-cvs)
6    
7  (defconstant *mcvs-debug* 3)  (defconstant *chatter-debug* 3)
8  (defconstant *mcvs-info* 2)  (defconstant *chatter-info* 2)
9  (defconstant *mcvs-terse* 1)  (defconstant *chatter-terse* 1)
10  (defconstant *mcvs-silent* 0)  (defconstant *chatter-silent* 0)
11    
12  (defvar *mcvs-chatter-level* *mcvs-info*)  (defvar *chatter-level* *chatter-info*)
 (declaim (special *mcvs-chatter-level*))  
13    
14  (defun chatter (level &rest args)  (defun chatter (level &rest args)
15    (when (>= *mcvs-chatter-level* level)    (when (>= *chatter-level* level)
16      (write-string "* " *error-output*)      (write-string "* " *error-output*)
17      (apply #'format *error-output* args)))      (apply #'format *error-output* args)))
18    
19  (defmacro chatter-debug (&rest args)  (defmacro chatter-debug (&rest args)
20    `(chatter *mcvs-debug* ,@args))    `(chatter *chatter-debug* ,@args))
21    
22  (defmacro chatter-info (&rest args)  (defmacro chatter-info (&rest args)
23    `(chatter *mcvs-info* ,@args))    `(chatter *chatter-info* ,@args))
24    
25  (defmacro chatter-terse (&rest args)  (defmacro chatter-terse (&rest args)
26    `(chatter *mcvs-terse* ,@args))    `(chatter *chatter-terse* ,@args))

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

  ViewVC Help
Powered by ViewVC 1.1.5