(handler-bind ((sb-int:character-decoding-error
(lambda (c) (use-value #\? c))))
(assert (find #\? (octets-to-string
(coerce #(237 160 128) '(vector (unsigned-byte 8)))
:external-format :utf-8)))))
(handler-bind ((sb-int:character-decoding-error
(lambda (c) (use-value #\? c))))
(assert (find #\? (octets-to-string
(coerce #(237 160 128) '(vector (unsigned-byte 8)))
:external-format :utf-8)))))