(let ((*print-pretty* nil)) (print ''foo))

It should print (QUOTE FOO), but prints 'FOO instead.