(define view? (record-predicate view-type))
(define view-id (record-accessor view-type 'id))
(define view-constructor (record-accessor view-type 'constructor))
(define view-body (record-accessor view-type 'body))
(define view? (record-predicate view-type))
(define view-id (record-accessor view-type 'id))
(define view-constructor (record-accessor view-type 'constructor))
(define view-body (record-accessor view-type 'body))