/[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.5 by kaz, Sat Oct 5 18:09:48 2002 UTC revision 1.5.2.1 by kaz, Wed Apr 23 05:37:35 2003 UTC
# Line 14  Line 14 
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 "* " *error-output*)
18      (apply #'format t args)))      (apply #'format *error-output* args)))
19    
20  (defmacro chatter-debug (&rest args)  (defmacro chatter-debug (&rest args)
21    `(chatter *mcvs-debug* ,@args))    `(chatter *mcvs-debug* ,@args))

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

  ViewVC Help
Powered by ViewVC 1.1.5