+ (setf (obj-data-end-str view) +newline-string+))
+
+(defun html-list-start-func (obj nitems strm)
+ (format strm "<p><b>~a~p:</b></p><div class=\""
+ (hyperobject-class-user-name obj) nitems)
+ (write-string (class-name-of obj))
+ (write-string "\"><ul>~%" strm))