define-record-printer

[procedure] define-record-printer name procedure

[procedure] define-record-printer (name recordvar portvar) body ...

Chicken: defines a printer procedure of the named record. See also define-record.