WRITE
WRITE-TO-STRING
The functions WRITE and WRITE-TO-STRING have an additional keyword argument :CLOSURE which is used to bind CUSTOM:*PRINT-CLOSURE*.
:CLOSURE
CUSTOM:*PRINT-CLOSURE*