/[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.4 by kaz, Thu Jan 31 05:35:02 2002 UTC revision 1.5 by kaz, Sat Oct 5 18:09:48 2002 UTC
# Line 4  Line 4 
4    
5  (provide "chatter")  (provide "chatter")
6    
 (defvar *mcvs-chatter-level* 2)  
 (declaim (special *mcvs-chatter-level*))  
   
7  (defconstant *mcvs-debug* 3)  (defconstant *mcvs-debug* 3)
8  (defconstant *mcvs-info* 2)  (defconstant *mcvs-info* 2)
9  (defconstant *mcvs-terse* 1)  (defconstant *mcvs-terse* 1)
10  (defconstant *mcvs-silent* 0)  (defconstant *mcvs-silent* 0)
11    
12    (defvar *mcvs-chatter-level* *mcvs-info*)
13    (declaim (special *mcvs-chatter-level*))
14    
15  (defun chatter (level &rest args)  (defun chatter (level &rest args)
16    (when (>= *mcvs-chatter-level* level)    (when (>= *mcvs-chatter-level* level)
17      (write-string "* ")      (write-string "* ")

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

  ViewVC Help
Powered by ViewVC 1.1.5