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

Contents of /meta-cvs/F-8BA9006638D7FE514EB070E969A467D9

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.8 - (hide annotations)
Mon Mar 8 06:11:40 2004 UTC (10 years, 1 month ago) by kaz
Branch: MAIN
CVS Tags: mcvs-1-1-0
Changes since 1.7: +0 -3 lines
Revamped loading system. Got rid of require/provide in all
Lisp source files.

* code/mcvs.lisp: New file. Responsible for compiling and loading
everything in the right order.

* code/mcvs-main.lisp: File renamed to main.lisp.

* code/mcvs-package.lisp: File renamed to package.lisp.

* code/system.lisp: File removed.
1 kaz 1.4 ;;; This source file is part of the Meta-CVS program,
2 kaz 1.3 ;;; which is distributed under the GNU license.
3     ;;; Copyright 2002 Kaz Kylheku
4    
5 kaz 1.6 (in-package "META-CVS")
6 kaz 1.1
7     (defconstant *mcvs-debug* 3)
8     (defconstant *mcvs-info* 2)
9     (defconstant *mcvs-terse* 1)
10     (defconstant *mcvs-silent* 0)
11 kaz 1.5
12     (defvar *mcvs-chatter-level* *mcvs-info*)
13     (declaim (special *mcvs-chatter-level*))
14 kaz 1.1
15     (defun chatter (level &rest args)
16     (when (>= *mcvs-chatter-level* level)
17 kaz 1.7 (write-string "* " *error-output*)
18     (apply #'format *error-output* args)))
19 kaz 1.1
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