(set-pprint-dispatch 'string
(lambda (stream obj) (write-string "BAR-" stream)))
(assert (string= "FOO-" (gentemp "FOO-") :end2 4))))
(set-pprint-dispatch 'string
(lambda (stream obj) (write-string "BAR-" stream)))
(assert (string= "FOO-" (gentemp "FOO-") :end2 4))))