From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Sun, 29 Jun 2003 16:22:11 +0000 (+0000)
Subject: r5219: *** empty log message ***
X-Git-Tag: debian-2.11.0-2~46
X-Git-Url: http://git.kpe.io/?p=hyperobject.git;a=commitdiff_plain;h=775d6a2613528637bdc761a4449190752bf0e31d

r5219: *** empty log message ***
---

diff --git a/views.lisp b/views.lisp
index c2c71d7..b21a18e 100644
--- a/views.lisp
+++ b/views.lisp
@@ -7,7 +7,7 @@
 ;;;; 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
 ;;;; *************************************************************************
@@ -92,7 +92,7 @@
 		  :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"))
 
 
@@ -493,7 +493,6 @@
   (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)
@@ -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 (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))