[ltk-user] Re: Problems with double floats

[Tobias C. Rittweiler]

Denatus <denatus at gmail.com> writes:

> Hi Tobias.
>
> I tried your code. They _both_ give exactly the same window with a line
> drawn from top left corner towards the center.

Thank you for trying it out!

> I'm running SBCL 1.0.7 and ActiveTCL 8.4.14.
> Windows XP

As said I also tried SBCL 1.0.7. I'm using the Ubuntu Edgy packages of
TCL/TK which also seems to be ActiveState TCL 8.4.14. Furthermore, I
encounter the described problem just when I simply paste the snippet
into the SLIME REPL (so not exclusively there.)

As said in my first mail, in the problem case and after exiting the TK
window, the REPL expression does not return on its own. I've got to
interrupt it manually. The backtrace resulting from the interrupt can
you see following my mail.

  -T.


Interrupt from Emacs
   [Condition of type SIMPLE-ERROR]

Restarts:
 0: [CONTINUE] Continue from interrupt.
 1: [ABORT] Return to SLIME's top level.
 2: [TERMINATE-THREAD] Terminate this thread (#<THREAD "repl-thread" {B1F8821}>)

Backtrace:
  0: ((LAMBDA (SWANK-BACKEND::DEBUGGER-LOOP-FN))
      #<FUNCTION (LAMBDA #) {B8C5B75}>)
  1: (SWANK::DEBUG-IN-EMACS #<SIMPLE-ERROR {A700081}>)
  2: (INVOKE-DEBUGGER #<SIMPLE-ERROR {A700081}>)
  3: (INVOKE-DEBUGGER #<SIMPLE-ERROR {A700081}>)
  4: ((LAMBDA ()))
  5: ((LAMBDA ()))
  6: ((LAMBDA (SWANK-BACKEND::HOOK SWANK-BACKEND::FUN))
      #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK>
      #<FUNCTION (LAMBDA #) {AB3928D}>)
  7: (SWANK:SIMPLE-BREAK)
  8: ((LAMBDA ()))
  9: (SB-SYS:INVOKE-INTERRUPTION #<FUNCTION (LAMBDA #) {9041DED}>)
 10: ("foreign function: #x806514C")
 11: ("foreign function: #x80653A0")
 12: ((FLET #:CLEANUP-FUN-75))
 13: (SB-KERNEL:SUB-GC)
 14: ("foreign function: #x806514C")
 15: ("foreign function: #x8051ED1")
 16: ("foreign function: #x80529D8")
 17: ("foreign function: #x8056C23")
 18: ("foreign function: #x8056D5E")
 19: ("no debug information for frame")
 20: (READ-DATA)
 21: ((LAMBDA ()))
 22: ((LABELS USE-DEBUGGER)
      #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK>
      #<CLOSURE (LAMBDA #) {B040B7D}>)
 23: (CALL-WITH-LTK #<FUNCTION (LAMBDA #) {B0336ED}>)
 24: (SB-INT:SIMPLE-EVAL-IN-LEXENV
      (WITH-LTK NIL
                (LET (#)
                  (PACK C)
                  (CREATE-LINE C '#)))
      #<NULL-LEXENV>)
 25: (SWANK::EVAL-REGION
      "(with-ltk ()
            (let ((c (make-canvas nil)))
     	 (pack c)
     	 (create-line c '(0 0 100 100d0))))
     "
      T)
 26: ((LAMBDA ()))
 27: ((LAMBDA (SWANK-BACKEND::FN)) #<CLOSURE (LAMBDA #) {B019FE5}>)
 28: (SWANK::CALL-WITH-BUFFER-SYNTAX #<CLOSURE (LAMBDA #) {B019FE5}>)
 29: (SWANK:LISTENER-EVAL
      "(with-ltk ()
            (let ((c (make-canvas nil)))
     	 (pack c)
     	 (create-line c '(0 0 100 100d0))))
     ")
 30: (SB-INT:SIMPLE-EVAL-IN-LEXENV
      (SWANK:LISTENER-EVAL "(with-ltk ()
            (let ((c (make-canvas nil)))
     	 (pack c)
     	 (create-line c '(0 0 100 100d0))))
     ")
      #<NULL-LEXENV>)
 31: ((LAMBDA ()))
 32: ((LAMBDA (SWANK-BACKEND::HOOK SWANK-BACKEND::FUN))
      #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK>
      #<CLOSURE (LAMBDA #) {B019BD5}>)
 33: ((LAMBDA ()))
 34: ((LAMBDA (SWANK-BACKEND::HOOK SWANK-BACKEND::FUN))
      #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK>
      #<FUNCTION (LAMBDA #) {AB32BE5}>)
 35: (SWANK::CALL-WITH-REDIRECTED-IO
      #<SWANK::CONNECTION {B001A59}>
      #<CLOSURE (LAMBDA #) {B019B25}>)
 36: (SWANK::CALL-WITH-CONNECTION
      #<SWANK::CONNECTION {B001A59}>
      #<FUNCTION (LAMBDA #) {AB32BE5}>)
 37: (SWANK::HANDLE-REQUEST #<SWANK::CONNECTION {B001A59}>)
 38: (SWANK::REPL-LOOP #<SWANK::CONNECTION {B001A59}>)
 39: (SWANK::REPL-LOOP #<SWANK::CONNECTION {B001A59}>)
 40: (SWANK::CALL-WITH-BINDINGS NIL #<CLOSURE (LAMBDA #) {B2070A5}>)
 41: ((LAMBDA ()))
 42: ("foreign function: #x806514C")
 43: ("foreign function: #x8051ED1")
 44: ("foreign function: #x805D11D")
 45: ("foreign function: #xB7FBF31B")