[ clisp-Bugs-3077583 ] seg fault from cvs MT clisp due to show-stack

[SourceForge.net <no...@so...>]

Bugs item #3077583, was opened at 2010-09-28 21:09
Message generated for change (Tracker Item Submitted) made by donc
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101355&aid=3077583&group_id=1355

Please note that this message will contain a full copy of the comment thread,
including the initial issue submission, for this request,
not just the latest update.
Category: multithreading
Group: segfault
Status: Open
Resolution: None
Priority: 5
Private: No
Submitted By: Don Cohen (donc)
Assigned to: Vladimir Tzankov (vtz)
Summary: seg fault from cvs MT clisp due to show-stack 

Initial Comment:
doesn't happen if I just run clisp and do show-stack in the main thread, but after doing this:
[1]> (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)))) 
SHOW-SOCKET-ADDRS 
[2]> (defun debug-server() 
  (let ((server (socket:socket-server 8217 :interface "localhost"))) 
       (unwind-protect 
           (loop 
            (let ((socket (socket:socket-accept server :buffered nil))) 
              (show-socket-addrs socket) 
              (let ((tlist (loop for x in (mt:list-threads) as i from 1 
                             when (mt:thread-active-p x) collect (cons i x))) 
                    ans) 
                (print tlist socket) 
                (print "debug which thread (enter the number)" socket) 
                (when (setf ans (cdr (assoc (read socket) tlist))) 
                  (mt:thread-interrupt 
                   ans 
                   :function 
                   (lambda nil 
                     (let ((*standard-input* socket) 
                           (*standard-output* socket) 
                           (*debug-io* socket) 
                           (*error-output* socket) 
                           (*trace-output* socket) 
                           (*query-io* socket)) 
                       (unwind-protect 
                           (break "debug") 
                         (close socket))))))))) 
         (socket:socket-server-close server)))) 
DEBUG-SERVER 
[3]> (mt:make-thread #'debug-server :name "debug-server") 
#<THREAD "debug-server"> 
[4]> 

then in another shell:
 $ telnet localhost 8217  
 Trying 127.0.0.1...^M  
 Connected to localhost.localdomain (127.0.0.1).^M  
 Escape character is '^]'.^M  
 ^M  
 ((1 . #<THREAD "debug-server">) (2 . #<THREAD "main thread">)) ^M  
 "debug which thread (enter the number)" 1  
 1^M  
 ^M  
 ** - Continuable Error^M  
 debug^M  
 If you continue (by typing 'continue'): Return from BREAK loop^M  
 Break 1 [1]> (ext:show-stack)  
 (ext:show-stack)^M  
 
 ... 670 more lines 
 <21/5> #<SYSTEM-FUNCTION MAKE-THREAD>^M  
 - Connection closed by foreign host.^M  
 [2010-09-28 12:54:50 root@collabrium /home/metasearch]  
 $ 
 
The reason the connection is closed is that the clisp process now contains:
 Segmentation fault  
 [2010-09-28 12:54:51 root@collabrium /home/metasearch]  
 $ 


----------------------------------------------------------------------

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101355&aid=3077583&group_id=1355