2 Feb 2011 23:49
new bug in MT
Don Cohen <don-sourceforge-xxz <at> isis.cs3-inc.com>
2011-02-02 22:49:44 GMT
2011-02-02 22:49:44 GMT
(all bug reports related to MT go to -devel, right?)
This was an unpleasant surprise. I've just made a small improvement
to my debug server. The new code is below. The difference is that
in addition to debugging an existing thread you can create a new one.
I find that in the new thread, if I enter (mt::list-threads) I get
a segfault! The old threads don't do that.
I'm afraid I'm building up a backlog of bugs to be fixed when cvs
returns. I think the current list includes, in addition to this one,
performance change over last 10 years
bug in loop?
====
(defvar *debug-server-port* 1234)
(defun show-socket-addrs(socket)
(multiple-value-bind
(local-host local-port)
(socket:socket-stream-local socket)
(multiple-value-bind
(remote-host remote-port)
(socket:socket-stream-peer socket)
(format t "~&Connection: ~S:~D -- ~S:~D~%"
remote-host remote-port local-host local-port))))
(defun debug-server()
(let ((server (socket:socket-server *debug-server-port*
:interface "localhost")))
(unwind-protect
(Continue reading)
RSS Feed