Similar clx hang.

Shawn,

I read your post and looked at your backtrace after I posted my problem
with using a default font value in a graphics context. If I send a
sigint to lisp, the backtrace from my problem ends with several of the
same frames, so I think they may be related. I am using SBCL 1.0.3, clx
from darcs and FreeBSD. On the other hand, if I close the window outside
of lisp, I get a slightly different backtrace. See below.

Maybe if we identify the problem with default fonts in a graphics
context, it will help identify the problem in stumpwm.

Cheers,

Tom

-- 
=== Thomas M. Hermann ===


=== Backtrace from sigint to lisp: ===

interrupted at #X2817783F
   [Condition of type SIMPLE-CONDITION]

Restarts:
 0: [CONTINUE] Return from SB-UNIX:SIGINT.
 1: [ABORT] Return to SLIME's top level.
 2: [ABORT] Exit debugger, returning to top level.

Backtrace:
  0: (SB-UNIX::SIGINT-HANDLER
      #<unavailable argument>
      #<unavailable argument>
      #.(SB-SYS:INT-SAP #X283A4DF0))
  1: (SB-SYS:INVOKE-INTERRUPTION #<CLOSURE (LAMBDA #) {498ECEF5}>)
  2: ("foreign function: call_into_lisp")
  3: ("foreign function: funcall3")
  4: ("foreign function: interrupt_handle_now")
  5: ("foreign function: maybe_defer_handler")
  6: ("bogus stack frame")
  7: (SB-SYS:WAIT-UNTIL-FD-USABLE 9 :INPUT NIL)
  8: (XLIB::BUFFER-INPUT-WAIT-DEFAULT
      #<XLIB:DISPLAY :0 (The X.Org Foundation R60900000)>
      NIL)
  9: (XLIB::BUFFER-INPUT-WAIT
      #<XLIB:DISPLAY :0 (The X.Org Foundation R60900000)>
      NIL)
 10: (NIL
      #<XLIB:DISPLAY :0 (The X.Org Foundation R60900000)>
      NIL
      NIL
      #<FUNCTION (LAMBDA #) {49ECE145}>)
 11: (XLIB::READ-REPLY #<unavailable argument> #<unavailable argument>)
 12: (XLIB::QUERY-FONT #<XLIB:FONT (gcontext) :0 48234497>)
 13: (XLIB:FONT-MIN-CHAR #<XLIB:FONT (gcontext) :0 48234497>)
 14: (XLIB:TRANSLATE-DEFAULT
      "Hello World!"
      0
      12
      #<XLIB:FONT (gcontext) :0 48234497>
      #(47 0 2 0 1 0 224 2 1 0 ...)
      18)
 15: (XLIB::DRAW-GLYPHS8
      #<XLIB:WINDOW :0 2E00002>
      #<XLIB:GCONTEXT :0 48234497>
      20
      50
      "Hello World!"
      0
      12
      #<FUNCTION XLIB:TRANSLATE-DEFAULT>
      NIL)
 16: (HELLO-WORLD 256 256 "")
 17: (SB-INT:SIMPLE-EVAL-IN-LEXENV (HELLO-WORLD 256 256) #<NULL-LEXENV>)
 18: (SWANK::EVAL-REGION
      "(hello-world 256 256)
     "
      T)
 19: ((LAMBDA ()))
 20: ((LAMBDA (SWANK-BACKEND::FN)) #<CLOSURE (LAMBDA #) {4AD1F095}>)
 21: (SWANK::CALL-WITH-BUFFER-SYNTAX #<CLOSURE (LAMBDA #) {4AD1F095}>)
 22: (SWANK:LISTENER-EVAL
      "(hello-world 256 256)
     ")
 23: (SB-INT:SIMPLE-EVAL-IN-LEXENV
      (SWANK:LISTENER-EVAL "(hello-world 256 256)
     ")
      #<NULL-LEXENV>)
 24: ((LAMBDA ()))
 25: ((LAMBDA (SWANK-BACKEND::HOOK SWANK-BACKEND::FUN))
      #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK>
      #<CLOSURE (LAMBDA #) {4AD1EF25}>)
 26: ((LAMBDA ()))
 27: ((LAMBDA (SWANK-BACKEND::HOOK SWANK-BACKEND::FUN))
      #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK>
      #<FUNCTION (LAMBDA #) {49FB2E25}>)
 28: (SWANK::CALL-WITH-REDIRECTED-IO
      #<SWANK::CONNECTION {4A3CFC31}>
      #<CLOSURE (LAMBDA #) {4AD1C795}>)
 29: (SWANK::CALL-WITH-CONNECTION
      #<SWANK::CONNECTION {4A3CFC31}>
      #<FUNCTION (LAMBDA #) {49FB2E25}>)
 30: (SWANK::HANDLE-REQUEST #<SWANK::CONNECTION {4A3CFC31}>)
 31: (SWANK::PROCESS-AVAILABLE-INPUT
      #<SB-SYS:FD-STREAM for "a constant string" {4A3CEF29}>
      #<CLOSURE (LAMBDA #) {4AD1C755}>)
 32: ((FLET SWANK::HANDLER))
 33: ((LAMBDA (SWANK-BACKEND::_)) #<unused argument>)
 34: (SB-IMPL::SUB-SERVE-EVENT NIL 0)
 35: (SB-SYS:WAIT-UNTIL-FD-USABLE 0 :INPUT NIL)
 36: (SB-IMPL::REFILL-BUFFER/FD
      #<SB-SYS:FD-STREAM for "standard input" {4968FA11}>)
 37: (SB-IMPL::INPUT-CHAR/ASCII
      #<SB-SYS:FD-STREAM for "standard input" {4968FA11}>
      NIL
      #:EOF-OBJECT)
 38: (READ-CHAR
      #<SB-SYS:FD-STREAM for "standard input" {4968FA11}>
      NIL
      #:EOF-OBJECT
      #<unused argument>)
 39: (READ-CHAR
      #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDIN* {480CACB1}>
      NIL
      #:EOF-OBJECT
      #<unused argument>)
 40: (READ-PRESERVING-WHITESPACE
      #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDIN* {480CACB1}>
      NIL
      (NIL)
      T)
 41: (READ-PRESERVING-WHITESPACE
      #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDIN* {480CACB1}>
      NIL
      (NIL)
      NIL)
 42: (READ
      #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDIN* {480CACB1}>
      NIL
      (NIL)
      NIL)
 43: (SB-IMPL::REPL-READ-FORM-FUN
      #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDIN* {480CACB1}>
      #<unavailable argument>)
 44: (SB-IMPL::REPL-FUN NIL)
 45: (SB-IMPL::REPL-FUN NIL)
 46: ((LAMBDA ()))
 47: ((LAMBDA ()))
 48: (SB-IMPL::%WITH-REBOUND-IO-SYNTAX #<CLOSURE (LAMBDA #) {49694BDD}>)
 49: (SB-IMPL::TOPLEVEL-REPL NIL)
 50: (SB-IMPL::TOPLEVEL-INIT)
 51: ((LABELS SB-IMPL::RESTART-LISP))

=== Backtrace from closing window: ===
end of file on #<SB-SYS:FD-STREAM for "a constant string" {498E0EE9}>
   [Condition of type END-OF-FILE]

Restarts:
 0: [ABORT] Return to SLIME's top level.
 1: [ABORT] Exit debugger, returning to top level.

Backtrace:
  0: (SB-IMPL::FD-STREAM-READ-N-BYTES
      #<SB-SYS:FD-STREAM for "a constant string" {498E0EE9}>
      #(0 0 0 0 0 0 0 0 0 0 ...)
      0
      32
      T)
  1: (XLIB::BUFFER-READ-DEFAULT
      #<unavailable argument>
      #<unavailable argument>
      #<unavailable argument>
      #<unavailable argument>
      #<unavailable argument>)
  2: (XLIB::BUFFER-INPUT
      #<XLIB:DISPLAY :0 (The X.Org Foundation R60900000)>
      #(0 0 0 0 0 0 0 0 0 0 ...)
      0
      32
      NIL)
  3: (NIL
      #<XLIB:DISPLAY :0 (The X.Org Foundation R60900000)>
      NIL
      NIL
      #<FUNCTION (LAMBDA #) {49ECE145}>)
  4: (XLIB::READ-REPLY #<unavailable argument> #<unavailable argument>)
  5: (XLIB::QUERY-FONT #<XLIB:FONT (gcontext) :0 48234497>)
  6: (XLIB:FONT-MIN-CHAR #<XLIB:FONT (gcontext) :0 48234497>)
  7: (XLIB:TRANSLATE-DEFAULT
      "Hello World!"
      0
      12
      #<XLIB:FONT (gcontext) :0 48234497>
      #(47 0 2 0 1 0 224 2 1 0 ...)
      18)
  8: (XLIB::DRAW-GLYPHS8
      #<XLIB:WINDOW :0 2E00002>
      #<XLIB:GCONTEXT :0 48234497>
      20
      50
      "Hello World!"
      0
      12
      #<FUNCTION XLIB:TRANSLATE-DEFAULT>
      NIL)
  9: (HELLO-WORLD 256 256 "")
 10: (SB-INT:SIMPLE-EVAL-IN-LEXENV (HELLO-WORLD 256 256) #<NULL-LEXENV>)
 11: (SWANK::EVAL-REGION
      "(hello-world 256 256)
     "
      T)
 12: ((LAMBDA ()))
 13: ((LAMBDA (SWANK-BACKEND::FN)) #<CLOSURE (LAMBDA #) {4AD1F095}>)
 14: (SWANK::CALL-WITH-BUFFER-SYNTAX #<CLOSURE (LAMBDA #) {4AD1F095}>)
 15: (SWANK:LISTENER-EVAL
      "(hello-world 256 256)
     ")
 16: (SB-INT:SIMPLE-EVAL-IN-LEXENV
      (SWANK:LISTENER-EVAL "(hello-world 256 256)
     ")
      #<NULL-LEXENV>)
 17: ((LAMBDA ()))
 18: ((LAMBDA (SWANK-BACKEND::HOOK SWANK-BACKEND::FUN))
      #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK>
      #<CLOSURE (LAMBDA #) {4AD1EF25}>)
 19: ((LAMBDA ()))
 20: ((LAMBDA (SWANK-BACKEND::HOOK SWANK-BACKEND::FUN))
      #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK>
      #<FUNCTION (LAMBDA #) {49FB2E25}>)
 21: (SWANK::CALL-WITH-REDIRECTED-IO
      #<SWANK::CONNECTION {4A3CFC31}>
      #<CLOSURE (LAMBDA #) {4AD1C795}>)
 22: (SWANK::CALL-WITH-CONNECTION
      #<SWANK::CONNECTION {4A3CFC31}>
      #<FUNCTION (LAMBDA #) {49FB2E25}>)
 23: (SWANK::HANDLE-REQUEST #<SWANK::CONNECTION {4A3CFC31}>)
 24: (SWANK::PROCESS-AVAILABLE-INPUT
      #<SB-SYS:FD-STREAM for "a constant string" {4A3CEF29}>
      #<CLOSURE (LAMBDA #) {4AD1C755}>)
 25: ((FLET SWANK::HANDLER))
 26: ((LAMBDA (SWANK-BACKEND::_)) #<unused argument>)
 27: (SB-IMPL::SUB-SERVE-EVENT NIL 0)
 28: (SB-SYS:WAIT-UNTIL-FD-USABLE 0 :INPUT NIL)
 29: (SB-IMPL::REFILL-BUFFER/FD
      #<SB-SYS:FD-STREAM for "standard input" {4968FA11}>)
 30: (SB-IMPL::INPUT-CHAR/ASCII
      #<SB-SYS:FD-STREAM for "standard input" {4968FA11}>
      NIL
      #:EOF-OBJECT)
 31: (READ-CHAR
      #<SB-SYS:FD-STREAM for "standard input" {4968FA11}>
      NIL
      #:EOF-OBJECT
      #<unused argument>)
 32: (READ-CHAR
      #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDIN* {480CACB1}>
      NIL
      #:EOF-OBJECT
      #<unused argument>)
 33: (READ-PRESERVING-WHITESPACE
      #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDIN* {480CACB1}>
      NIL
      (NIL)
      T)
 34: (READ-PRESERVING-WHITESPACE
      #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDIN* {480CACB1}>
      NIL
      (NIL)
      NIL)
 35: (READ
      #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDIN* {480CACB1}>
      NIL
      (NIL)
      NIL)
 36: (SB-IMPL::REPL-READ-FORM-FUN
      #<SYNONYM-STREAM :SYMBOL SB-SYS:*STDIN* {480CACB1}>
      #<unavailable argument>)
 37: (SB-IMPL::REPL-FUN NIL)
 38: (SB-IMPL::REPL-FUN NIL)
 39: ((LAMBDA ()))
 40: ((LAMBDA ()))
 41: (SB-IMPL::%WITH-REBOUND-IO-SYNTAX #<CLOSURE (LAMBDA #) {49694BDD}>)
 42: (SB-IMPL::TOPLEVEL-REPL NIL)
 43: (SB-IMPL::TOPLEVEL-INIT)
 44: ((LABELS SB-IMPL::RESTART-LISP))


_______________________________________________
Portable-clx mailing list
[email protected]
http://lists.metacircles.com/cgi-bin/mailman/listinfo/portable-clx
See http://www.cliki.net/clx for darcs URL(s)