((character-decoding-error
#'(lambda (decoding-error)
(declare (ignorable decoding-error))
((character-decoding-error
#'(lambda (decoding-error)
(declare (ignorable decoding-error))
(invoke-restart 'attempt-resync))))
(let ((stream (in-synonym-of stream)))
(if (ansi-stream-p stream)
(invoke-restart 'attempt-resync))))
(let ((stream (in-synonym-of stream)))
(if (ansi-stream-p stream)