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