[CLX] input-focus bug ?

[Manuel Giraud]

I use the function 'xlib:input-focus' in a program I'm writing but it seems to
be buggy. This s-expression evaluated in an inferior CMUCL from emacs returns 0:

(let ((dpy (ext:open-clx-display)))
  (nth-value 0 (xlib:input-focus dpy)))  

while the equivalent C program run from the same emacs (in Eshell) give the real
ressource id value (i.e. not zero):

int
main(int argc,
     char *argv[])
{
    Display *dpy;
    Window focus_ret;
    int revert_ret;
    
    dpy = XOpenDisplay(NULL);
    XGetInputFocus(dpy, &focus_ret, &revert_ret);
    
    printf("focus = %ld\n", focus_ret);
    
    XCloseDisplay(dpy);

    return EXIT_SUCCESS ;
}

I'm using CMUCL 18d and the extension package for this version too.

-- 
"Chapter One: He was as tough and romatic as the city he loved. Behind his
 black-rimmed glasses was the coiled sexual power of a jungle cat... New York
 was his town. And it always would be."
-From "Manhattan."

_Manuel Giraud_