r5219: *** empty log message ***

diff --git a/views.lisp b/views.lisp
index c2c71d734edd76677aecc848b114f616126427bc..b21a18e6c26da0ee0b6b151e279db1d049e903d9 100644 (file)
--- a/views.lisp
+++ b/views.lisp
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;

-;;;; $Id: views.lisp,v 1.58 2003/06/23 20:08:06 kevin Exp $
+;;;; $Id: views.lisp,v 1.59 2003/06/29 16:21:09 kevin Exp $

 ;;;;
 ;;;; This file is Copyright (c) 2000-2003 by Kevin M. Rosenberg
 ;;;; *************************************************************************
 ;;;;
 ;;;; This file is Copyright (c) 2000-2003 by Kevin M. Rosenberg
 ;;;; *************************************************************************


@@ -92,7 +92,7 @@
                  :accessor link-href-end)
    (link-ampersand :type (or string null) :initform nil :initarg :link-ampersand
                   :accessor link-ampersand))
                  :accessor link-href-end)
    (link-ampersand :type (or string null) :initform nil :initarg :link-ampersand
                   :accessor link-ampersand))

-  (:default-initargs :link-page "disp-func1")
+  (:default-initargs :link-page "lookup-func1")

   (:documentation "View class for a hyperobject"))
 
 
   (:documentation "View class for a hyperobject"))
 
 


@@ -493,7 +493,6 @@
   (write-char #\newline strm))
 
 (defun initialize-xml-view (view)
   (write-char #\newline strm))
 
 (defun initialize-xml-view (view)

-  (initialize-text-view view)

   (setf (file-start-str view) "") ; (std-xml-header)
   (setf (list-start-indent view)  t)
   (setf (list-start-printer view) #'xmlformat-list-start-func)
   (setf (file-start-str view) "") ; (std-xml-header)
   (setf (list-start-indent view)  t)
   (setf (list-start-printer view) #'xmlformat-list-start-func)


@@ -501,7 +500,7 @@
   (setf (list-end-printer view) #'xmlformat-list-end-func)
   (setf (obj-start-printer view) (format nil "<~(~a~)>" (object-class-name view)))
   (setf (obj-start-indent view) t)
   (setf (list-end-printer view) #'xmlformat-list-end-func)
   (setf (obj-start-printer view) (format nil "<~(~a~)>" (object-class-name view)))
   (setf (obj-start-indent view) t)

-  (setf (subobj-end-printer view) (format nil "</~(~a~)>" (object-class-name view)))
+  (setf (subobj-end-printer view) (format nil "</~(~a~)>~%" (object-class-name view)))

   (setf (subobj-end-indent view) nil)
   (setf (obj-data-indent view) nil))
 
   (setf (subobj-end-indent view) nil)
   (setf (obj-data-indent view) nil))