;;;; 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
;;;; *************************************************************************
: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"))
(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 (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))