xlib:text-extents emits error when unable to translate unicode character.

[fourier]

(defparameter *myfont* (xlib:open-font *display* "terminus-bold-16"))
(xlib:text-extents *myfont* "привет")
; Debugger entered on #<TYPE-ERROR expected-type: BASE-CHAR datum: #\CYRILLIC_SMALL_LETTER_PE>

Seems error in translate-default:

(let ((wbuf (xlib::display-tbuf16 *display*)))
           (xlib::translate-default "привет" 0 3 *myfont* wbuf 0)
           wbuf)
; Debugger entered on #<TYPE-ERROR expected-type: BASE-CHAR datum: #\CYRILLIC_SMALL_LETTER_PE>

or futher down in char->card8:

(xlib:char->card8 (char "привет" 0))
; Debugger entered on #<TYPE-ERROR expected-type: BASE-CHAR datum: #\CYRILLIC_SMALL_LETTER_PE>

[fourier]

This error could be avoided with ugly hack for text-extents:

(xlib:text-extents font (mapcar #'char-code (coerce string 'list)))

or similar, by converting the string to the list of numbers.

[fourier]

And finally to use the unicode string with draw-image-glyphs I had to supply the same list (mapcar #'char-code (coerce string 'list)) instead of the string (and additional argument :size 16)

[fourier]

However the hack doesn't work for the unicode characters outside of the font range, i.e.

CL-USER> (code-char 128081)
#\CROWN
CL-USER> #\crown
#\CROWN
CL-USER> #\👑
#\CROWN

[JMC-design]

that's what the TRANSLATE key is for.