[ltk-user] Calling all socket geniuses....

[Kenny Tilton]

I just managed to introduce some bug. No idea where to look, thought 
someone strong on sockets/streams might have an idea.

All my writes to Tk go thru this for debugging purposes. I can 
enable/disable/when-icize the write to standard output.

(defun tk-send (fmt$ &rest args)
  "send a string to wish"
  (let ((text (apply 'format nil fmt$ args)))
    (format t "~A~%" text)
    (format (wish-stream *wish*) "~A~%" text)
    ))

Now my test window does not come up without the trace. The window 
appears but no widgets, and the window is unresponsive. I have to have 
the Windows task manager kill it.

Is this an easy "oh, I know what that is..." for anyone?

thx, kenny