(xdef 'write (lambda args (printwith write   args)))

From ac.scm ©