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 ;;