(setf (slot-value view 'list-end-indent) t)
(setf (slot-value view 'list-end-value-func) nil)
(setf (slot-value view 'obj-start-indent) t)
(setf (slot-value view 'obj-start-fmtstr) "<li>")
(setf (slot-value view 'obj-start-value-func) nil)
(setf (slot-value view 'obj-end-indent) t)
(setf (slot-value view 'list-end-indent) t)
(setf (slot-value view 'list-end-value-func) nil)
(setf (slot-value view 'obj-start-indent) t)
(setf (slot-value view 'obj-start-fmtstr) "<li>")
(setf (slot-value view 'obj-start-value-func) nil)
(setf (slot-value view 'obj-end-indent) t)