Re: Type error with sbcl-0.8.2 and clx_0.5.1

Christophe Rhodes <[email protected]> writes:

> Could you do a couple of things here?  The first would be to provide a
> backtrace from the error call; the second would be to do the
> equivalent of xdpyinfo(1) on your setup.
> 

Ok.  Here's the output from xdpyinfo.  It seems like you're right.
"12" shows up all over the place.

% xdpyinfo
name of display:    localhost:13.0
version number:    11.0
vendor string:    Hummingbird Communications Ltd.
vendor release number:    7000
maximum request size:  4194300 bytes
motion buffer size:  1
bitmap unit, bit order, padding:    8, MSBFirst, 32
image byte order:    MSBFirst
number of supported pixmap formats:    4
supported pixmap formats:
    depth 1, bits_per_pixel 1, scanline_pad 32
    depth 8, bits_per_pixel 8, scanline_pad 32
    depth 12, bits_per_pixel 12, scanline_pad 32
    depth 24, bits_per_pixel 32, scanline_pad 32
keycode range:    minimum 8, maximum 254
focus:  window 0xc0000e, revert to PointerRoot
number of extensions:    13
    BIG-REQUESTS
    DOUBLE-BUFFER
    Extended-Visual-Information
    HCL-DOS-Access
    HCLMISC
    HCLxperf
    LBX
    SECURITY
    SHAPE
    TOG-CUP
    XC-APPGROUP
    XC-MISC
    XInputExtension
default screen number:    0
number of screens:    1

screen #0:
  dimensions:    2680x1050 pixels (612x240 millimeters)
  resolution:    111x111 dots per inch
  depths (4):    1, 8, 12, 24
  root window id:    0x2c
  depth of root window:    24 planes
  number of colormaps:    minimum 1, maximum 1
  default colormap:    0x20
  default number of colormap cells:    256
  preallocated pixels:    black 0, white 16777215
  options:    backing-store WHEN MAPPED, save-unders NO
  largest cursor:    32x32
  current input event mask:    0x780000
    SubstructureNotifyMask   SubstructureRedirectMask FocusChangeMask          
    PropertyChangeMask       
  number of visuals:    4
  default visual id:  0x24
  visual:
    visual id:    0x21
    class:    PseudoColor
    depth:    8 planes
    available colormap entries:    256
    red, green, blue masks:    0x0, 0x0, 0x0
    significant bits in color specification:    8 bits
  visual:
    visual id:    0x22
    class:    PseudoColor
    depth:    8 planes
    available colormap entries:    256
    red, green, blue masks:    0x0, 0x0, 0x0
    significant bits in color specification:    8 bits
  visual:
    visual id:    0x23
    class:    PseudoColor
    depth:    12 planes
    available colormap entries:    4096
    red, green, blue masks:    0x0, 0x0, 0x0
    significant bits in color specification:    8 bits
  visual:
    visual id:    0x24
    class:    TrueColor
    depth:    24 planes
    available colormap entries:    256 per subfield
    red, green, blue masks:    0xff, 0xff00, 0xff0000
    significant bits in color specification:    8 bits

Here's the backtrace.  I'm still learning my way through the debugger
and will try to get some more detailed info.

* (xlib::open-default-display)

debugger invoked on condition of type TYPE-ERROR:
  The value 12
  is not of type
    (OR (INTEGER 1 1)
        (INTEGER 4 4)
        (INTEGER 8 8)
        (INTEGER 16 16)
        (INTEGER 24 24)
        (INTEGER 32 32)).

Within the debugger, you can type HELP for help. At any command prompt (within
the debugger or not) you can type (SB-EXT:QUIT) to terminate the SBCL
executable. The condition which caused the debugger to be entered is bound to
*DEBUG-CONDITION*. You can suppress this message by clearing
*DEBUG-BEGINNER-HELP-P*.

restarts (invokable by number or by possibly-abbreviated name):
  0: [ABORT   ] Reduce debugger level (leaving debugger, returning to toplevel).
  1: [TOPLEVEL] Restart at toplevel READ/EVAL/PRINT loop.
("SB-INT:&MORE processing" 269368016 6)[:OPTIONAL]
0] backtrace

0: ("SB-INT:&MORE processing" 269368016 6)[:OPTIONAL]
1: ("varargs entry for XLIB::DISPLAY-CONNECT"
    #<unavailable argument>
    :AUTHORIZATION-NAME
    #<unavailable argument>
    :AUTHORIZATION-DATA
    #<unavailable argument>)
2: ("varargs entry for XLIB:OPEN-DISPLAY"
    "localhost"
    :DISPLAY
    13
    :PROTOCOL
    :INTERNET
    :AUTHORIZATION-NAME
    NIL
    :AUTHORIZATION-DATA
    NIL)
3: (SB-INT:EVAL-IN-LEXENV
    2
    (XLIB:OPEN-DEFAULT-DISPLAY)
    #S(SB-KERNEL:LEXENV
       :FUNS NIL
       :VARS NIL
       :BLOCKS NIL
       :TAGS NIL
       :TYPE-RESTRICTIONS NIL
       :WEAKEND-TYPE-RESTRICTIONS NIL
       :LAMBDA NIL
       ...))[:EXTERNAL]
4: (INTERACTIVE-EVAL 1 (XLIB:OPEN-DEFAULT-DISPLAY))[:EXTERNAL]
5: (SB-IMPL::REPL-FUN 1 NIL)[:EXTERNAL]
6: (SB-IMPL::TOPLEVEL-REPL 1 NIL)[:EXTERNAL]
7: (SB-IMPL::TOPLEVEL-INIT 0)[:EXTERNAL]
8: ("FLET SB!IMPL::RESTART-LISP")
9: ("foreign function call land")
10: ("foreign function call land")

Parry



-------------------------------------------------------
This SF.Net email sponsored by: Free pre-built ASP.NET sites including
Data Reports, E-commerce, Portals, and Forums are available now.
Download today and enter to win an XBOX or Visual Studio .NET.
http://aspnet.click-url.com/go/psa00100003ave/direct;at.aspnet_072303_01/01