[mcclim-devel] [bug] Asynchronous ID-CHOICE-ERROR -- CLX or McCLIM?

[Nikodemus Siivola]

This may be a CLX issue, or a problem in the CLX backend -- I would not
know, but the test-case is pure CLIM. After the error future attempts to
RUN-FRAME-TOP-LEVEL result in similar errors.

Backtrace follows, self contained test-case attached
(RUN-FRAME-TOP-LEVEL, then "Stress" -- it may take a while, but
eventually it breaks for me.)

This is CVS McCLIM, Christophe's CLX, and SBCL 1.0.13.45, on a MacBook
running Tiger.

$ uname -a
Darwin manic.local 8.11.1 Darwin Kernel Version 8.11.1: Wed Oct 10
18:23:28 PDT 2007; root:xnu-792.25.20~1/RELEASE_I386 i386 i386

X is the Apple packaged one: X11 1.1.3 - XFree86 4.4.0

Cheers,

 -- Nikodemus

Asynchronous ID-CHOICE-ERROR in request 10265 (last request was 10266)
 Code 55.0 [CreateGC] ID #x600002
   [Condition of type XLIB:ID-CHOICE-ERROR]

Restarts:
 0: [CONTINUE] Ignore
 1: [ABORT] Return to application command loop
 2: [ABORT] Return to SLIME's top level.
 3: [ABORT] Exit debugger, returning to top level.

Backtrace:
  0: (XLIB::X-CERROR "Ignore" XLIB:ID-CHOICE-ERROR)
  1: (XLIB:DEFAULT-ERROR-HANDLER #<XLIB:DISPLAY :0 (The XFree86
Project, Inc R40400000)> XLIB:ID-CHOICE-ERROR)
  2: (XLIB::REPORT-ERROR #<XLIB:DISPLAY :0 (The XFree86 Project, Inc
R40400000)> 14 XLIB:ID-CHOICE-ERROR)
  3: (XLIB::READ-ERROR-INPUT #<XLIB:DISPLAY :0 (The XFree86 Project,
Inc R40400000)> 10265 #S(XLIB::REPLY-BUFFER :SIZE 32 :IBUF8 #(0 14 25
40 2 0 ...) :NEXT NIL :DATA-SIZE 32) #<SB-THREAD:THREAD "initial
thread" {116920A9}>)
  4: (XLIB::READ-INPUT #<XLIB:DISPLAY :0 (The XFree86 Project, Inc
R40400000)> NIL NIL #<FUNCTION (LAMBDA (XLIB::PENDING-COMMAND))
{13969ECD}>)
  5: (XLIB::READ-REPLY #<unavailable argument> #<unavailable argument>)
  6: (XLIB:ALLOC-COLOR #<XLIB:COLORMAP TRUE-COLOR :0 32> #<XLIB:COLOR
0.641639 0.52443945 0.84608877>)
  7: ((SB-PCL::FAST-METHOD CLIM-CLX::X-PIXEL (CLIM-CLX::CLX-PORT T))
#(17 NIL) #<unavailable argument> #<CLIM-CLX::CLX-PORT :HOST ""
:DISPLAY-ID 0 {122D0AC1}> #<CLIM-INTERNALS::NAMED-COLOR "Unnamed
color">)
  8: ((SB-PCL::FAST-METHOD CLIM-CLX::MEDIUM-GCONTEXT
(CLIM-CLX::CLX-MEDIUM COLOR)) #(9 NIL) #<unused argument>
#<CLIM-CLX::CLX-MEDIUM {13F67CE1}> #<CLIM-INTERNALS::NAMED-COLOR
"Unnamed color">)
  9: ((LAMBDA (SB-PCL::.PV. SB-PCL::.NEXT-METHOD-CALL. SB-PCL::.ARG0.
SB-PCL::.ARG1.)) #<unavailable argument> #<unavailable argument>
#<CLIM-CLX::CLX-MEDIUM {13F67CE1}> #<CLIM-INTERNALS::NAMED-COLOR
"Unnamed color">)
 10: ((SB-PCL::FAST-METHOD MEDIUM-DRAW-POINT* (CLIM-CLX::CLX-MEDIUM T
T)) #<unavailable argument> #<unavailable argument>
#<CLIM-CLX::CLX-MEDIUM {13F67CE1}> 290 142)
 11: ((SB-PCL::FAST-METHOD
CLIM-INTERNALS::DO-GRAPHICS-WITH-OPTIONS-INTERNAL (MEDIUM T T))
#<unavailable argument> #<unavailable argument> #<CLIM-CLX::CLX-MEDIUM
{13F67CE1}> #<CLIM-CLX::CLX-MEDIUM {13F67CE1}> #<CLOSURE (FLET
CLIM-INTERNALS::GRAPHICS-OP) {13F67CC5}>)
 12: ((SB-PCL::FAST-METHOD CLIM-INTERNALS::DO-GRAPHICS-WITH-OPTIONS
(CLIM-INTERNALS::PIXMAP T)) #<unavailable argument> #<unavailable
argument> #<CLIM-INTERNALS::MIRRORED-PIXMAP {117385F9}> #<CLOSURE
(FLET CLIM-INTERNALS::GRAPHICS-OP) {13F67CC5}>)
 13: ((LAMBDA (COLOR X Y)) #(0.641639 0.52443945 0.84608877) 290 142)
 14: (RANDOM-RENDER 400 300 #<CLOSURE (LAMBDA (COLOR X Y)) {11738895}>)
 15: (RENDER-SCENE #<APPLICATION-PANE CANVAS {11F91F99}>)
 16: (COM-STRESS)
 17: ((SB-PCL::FAST-METHOD DEFAULT-FRAME-TOP-LEVEL
(APPLICATION-FRAME)) #<unavailable argument> #<unavailable argument>
#<TEST-FRAME {1381E9F1}>)
 18: ((SB-PCL::FAST-METHOD RUN-FRAME-TOP-LEVEL (APPLICATION-FRAME))
#<unavailable argument> #<unavailable argument> #<TEST-FRAME
{1381E9F1}>)
 19: ((SB-PCL::FAST-METHOD RUN-FRAME-TOP-LEVEL :AROUND
(APPLICATION-FRAME)) #<unavailable argument>
#S(SB-PCL::FAST-METHOD-CALL :FUNCTION #<FUNCTION
(SB-C::&OPTIONAL-DISPATCH #) {131373FD}> :PV NIL :NEXT-METHOD-CALL NIL
:ARG-INFO (1 . T)) #<TEST-FRAME {1381E9F1}>)
 20: (SB-INT:SIMPLE-EVAL-IN-LEXENV (RUN-FRAME-TOP-LEVEL
(MAKE-APPLICATION-FRAME (QUOTE TEST-FRAME))) #<NULL-LEXENV>)
-------------- next part --------------
A non-text attachment was scrubbed...
Name: test-gui.lisp
Type: application/octet-stream
Size: 1915 bytes
Desc: not available
URL: <https://mailman.common-lisp.net/pipermail/mcclim-devel/attachments/20080121/45d28a37/attachment.obj>