[slime-cvs] CVS update: slime/swank-openmcl.lisp

[Helmut Eller]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv23872

Modified Files:
	swank-openmcl.lisp 
Log Message:
(*swank-in-background*): Set to :spawn.

(emacs-connected): Set the ccl::*interactive-abort-process*.
Date: Tue Jan 13 17:51:07 2004
Author: heller

Index: slime/swank-openmcl.lisp
diff -u slime/swank-openmcl.lisp:1.44 slime/swank-openmcl.lisp:1.45
--- slime/swank-openmcl.lisp:1.44	Tue Jan 13 13:20:04 2004
+++ slime/swank-openmcl.lisp	Tue Jan 13 17:51:07 2004
@@ -13,7 +13,7 @@
 ;;; The LLGPL is also available online at
 ;;; http://opensource.franz.com/preamble.html
 ;;;
-;;;   $Id: swank-openmcl.lisp,v 1.44 2004/01/13 18:20:04 heller Exp $
+;;;   $Id: swank-openmcl.lisp,v 1.45 2004/01/13 22:51:07 heller Exp $
 ;;;
 
 ;;;
@@ -75,6 +75,8 @@
 
 ;;; TCP Server
 
+(setq *swank-in-background* :spawn)
+
 (defmethod create-socket (port)
   (ccl:make-socket :connect :passive :local-port port :reuse-address t))
 
@@ -89,6 +91,9 @@
 
 (defmethod spawn (fn &key name)
   (ccl:process-run-function name fn))
+
+(defmethod emacs-connected ()
+  (setq ccl::*interactive-abort-process* ccl::*current-process*)
 
 ;;;