chiark / gitweb /
mop: In print-object-with-slots, use write for the slot values.