[elephant-cvs] CVS elephant/src/elephant

[ieslick]

Update of /project/elephant/cvsroot/elephant/src/elephant
In directory clnet:/tmp/cvs-serv14127/src/elephant

Modified Files:
	classindex.lisp variables.lisp 
Log Message:
Default inihibit annoying warnings

--- /project/elephant/cvsroot/elephant/src/elephant/classindex.lisp	2007/04/24 03:02:27	1.38
+++ /project/elephant/cvsroot/elephant/src/elephant/classindex.lisp	2007/04/24 12:58:10	1.39
@@ -99,7 +99,8 @@
 
 (defun ensure-finalized (class)
   (when (not (class-finalized-p class))
-    (warn "Manually finalizing class ~A" (class-name class))
+    (when *warn-on-manual-class-finalization*
+      (warn "Manually finalizing class ~A" (class-name class)))
     (finalize-inheritance class)))
 
 (defun cache-existing-class-index (class btree sc)
--- /project/elephant/cvsroot/elephant/src/elephant/variables.lisp	2007/04/12 02:47:33	1.15
+++ /project/elephant/cvsroot/elephant/src/elephant/variables.lisp	2007/04/24 12:58:10	1.16
@@ -60,6 +60,13 @@
 (defvar *current-transaction* nil
   "The transaction which is currently in effect.")
 
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;; Enables warnings of various kinds
+
+(defvar *warn-on-manual-class-finalization* nil
+  "Issue a printed warnings when the class mechanism has
+   to finalize a class to access indexing information")
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Forward references
 ;;