r3076: *** empty log message ***

[kmrcl.git] / ml-class.lisp

diff --git a/ml-class.lisp b/ml-class.lisp
index 57fd07cb5a52bec2ba79ad55f7d3fabb0a252b98..902c1c134422676cd7f62584237e9ffb95337fd2 100644 (file)
--- a/ml-class.lisp
+++ b/ml-class.lisp
@@ -11,7 +11,7 @@
 ;;;; in Text, HTML, and XML formats. This includes hyperlinking
 ;;;; capability and sub-objects.
 ;;;;
-;;;; $Id: ml-class.lisp,v 1.18 2002/10/16 22:56:07 kevin Exp $
+;;;; $Id: ml-class.lisp,v 1.19 2002/10/16 23:34:33 kevin Exp $
 ;;;;
 ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -322,6 +322,8 @@ Format is ((field-name field-lookup-func other-link-params) ...)")
 (defparameter *default-textformat* nil)
 (defparameter *default-htmlformat* nil)
 (defparameter *default-htmlrefformat* nil)
+(defparameter *default-xhtmlformat* nil)
+(defparameter *default-xhtmlrefformat* nil)
 (defparameter *default-xmlformat* nil)
 (defparameter *default-xmlrefformat* nil)
 (defparameter *default-ie-xmlrefformat* nil)