In (system foreign), define-wrapped-pointer-type return the printer
procedure. It's better to return *unspecified* just like
define-record-type in srfi-9.