- (file-start-str :type string :initform nil :initarg :file-start-str)
- (file-end-str :type string :initform nil :initarg :file-end-str)
- (list-start-fmtstr :type string :initform nil :initarg :list-start-fmtstr)
- (list-start-value-func :type function :initform nil
- :initarg :list-start-value-func)
- (list-start-indent :initform nil :initarg :list-start-indent)
- (list-end-fmtstr :type string :initform nil :initarg :list-end-fmtstr)
- (list-end-value-func :type function :initform nil
- :initarg :list-end-value-func)
- (list-end-indent :initform nil :initarg :list-end-indent)
- (obj-start-fmtstr :type string :initform nil :initarg :obj-start-fmtstr)
- (obj-start-value-func :initform nil :initarg :obj-start-value-func)
- (obj-start-indent :initform nil :initarg :obj-start-indent)
- (obj-end-fmtstr :type string :initform nil :initarg :obj-end-fmtstr)
- (obj-end-value-func :type function :initform nil
- :initarg :obj-end-value-func)
- (obj-end-indent :initform nil :initarg :obj-end-indent)
- (obj-data-indent :initform nil :initarg :obj-data-indent)
- (obj-data-fmtstr :type string :initform nil :initarg :obj-data-fmtstr)
- (obj-data-end-fmtstr :type string :initform nil
- :initarg :obj-data-end-fmtstr)
- (obj-data-value-func :type function :initform nil
- :initarg :obj-data-value-func)
-
+ (file-start-str :type (or string null) :initform nil :initarg :file-start-str
+ :accessor file-start-str)
+ (file-end-str :type (or string null) :initform nil :initarg :file-end-str
+ :accessor file-end-str)
+ (list-start-fmtstr :type (or string null) :initform nil :initarg :list-start-fmtstr
+ :accessor list-start-fmtstr)
+ (list-start-value-func :type (or function symbol null) :initform nil
+ :initarg :list-start-value-func
+ :accessor list-start-value-func)
+ (list-start-indent :initform nil :initarg :list-start-indent
+ :accessor list-start-indent)
+ (list-end-fmtstr :type (or string null) :initform nil :initarg :list-end-fmtstr
+ :accessor list-end-fmtstr)
+ (list-end-value-func :type (or function symbol null) :initform nil
+ :initarg :list-end-value-func
+ :accessor list-end-value-func)
+ (list-end-indent :initform nil :initarg :list-end-indent
+ :accessor list-end-indent)
+ (obj-start-fmtstr :type (or string symbol null) :initform nil :initarg :obj-start-fmtstr
+ :accessor obj-start-fmtstr)
+ (obj-start-value-func :initform nil :initarg :obj-start-value-func
+ :accessor obj-start-value-func)
+ (obj-start-indent :initform nil :initarg :obj-start-indent
+ :accessor obj-start-indent)
+ (obj-end-fmtstr :type (or string null) :initform nil :initarg :obj-end-fmtstr
+ :accessor obj-end-fmtstr)
+ (obj-end-value-func :type (or function symbol null) :initform nil
+ :initarg :obj-end-value-func
+ :accessor obj-end-value-func)
+ (obj-end-indent :initform nil :initarg :obj-end-indent
+ :accessor obj-end-indent)
+ (obj-data-indent :initform nil :initarg :obj-data-indent
+ :accessor obj-data-indent)
+ (obj-data-fmtstr :type (or string null) :initform nil :initarg :obj-data-fmtstr
+ :accessor obj-data-fmtstr)
+ (obj-data-end-fmtstr :type (or string null) :initform nil
+ :initarg :obj-data-end-fmtstr
+ :accessor obj-data-end-fmtstr)
+ (obj-data-value-func :type (or function symbol null) :initform nil
+ :initarg :obj-data-value-func
+ :accessor obj-data-value-func)