/[slime]/slime/swank.lisp
ViewVC logotype

Diff of /slime/swank.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.248 by mbaringer, Wed Oct 6 12:39:35 2004 UTC revision 1.249 by pseibel, Thu Oct 7 19:33:00 2004 UTC
# Line 507  of the toplevel restart." Line 507  of the toplevel restart."
507  (defun spawn-threads-for-connection (connection)  (defun spawn-threads-for-connection (connection)
508    (let* ((socket-io (connection.socket-io connection))    (let* ((socket-io (connection.socket-io connection))
509           (control-thread (spawn (lambda ()           (control-thread (spawn (lambda ()
510                                    (setq *debugger-hook* nil)                                    (let ((*debugger-hook* nil))
511                                    (dispatch-loop socket-io connection))                                      (dispatch-loop socket-io connection)))
512                                  :name "control-thread")))                                  :name "control-thread")))
513      (setf (connection.control-thread connection) control-thread)      (setf (connection.control-thread connection) control-thread)
514      (let ((reader-thread (spawn (lambda ()      (let ((reader-thread (spawn (lambda ()
515                                    (setq *debugger-hook* nil)                                    (let ((*debugger-hook* nil))
516                                    (read-loop control-thread socket-io                                      (read-loop control-thread socket-io
517                                               connection))                                                 connection)))
518                                  :name "reader-thread"))                                  :name "reader-thread"))
519            (repl-thread (spawn (lambda () (repl-loop connection))            (repl-thread (spawn (lambda () (repl-loop connection))
520                                :name "repl-thread")))                                :name "repl-thread")))

Legend:
Removed from v.1.248  
changed lines
  Added in v.1.249

  ViewVC Help
Powered by ViewVC 1.1.5