- (print-sect-title title)
- (incf *section-indent*)
- (display-sections value)
- (decf *section-indent*))
- (display-one-section title value))))))
+ (print-sect-title title dl-data)
+ (incf (dl-data-indent dl-data))
+ (display-sections value dl-data)
+ (decf (dl-data-indent dl-data)))
+ (display-one-section title value dl-data))))))