Denatus denatus@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")