[slime-cvs] CVS slime

[CVS User trittweiler]

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv31343

Modified Files:
	ChangeLog slime.el 
Log Message:
	* slime.el (slime-attempt-connection): Do not keep on trying to
	connect if inferior process died.


--- /project/slime/cvsroot/slime/ChangeLog	2010/02/07 22:33:53	1.1979
+++ /project/slime/cvsroot/slime/ChangeLog	2010/02/13 11:34:38	1.1980
@@ -1,3 +1,8 @@
+2010-02-13  Tobias C. Rittweiler <tcr at freebits.de>
+
+	* slime.el (slime-attempt-connection): Do not keep on trying to
+	connect if inferior process died.
+
 2010-02-07  Tobias C. Rittweiler <tcr at freebits.de>
 
 	* swank-ecl.lisp: Update threading code. ECL doesn't still work
--- /project/slime/cvsroot/slime/slime.el	2010/02/01 14:51:25	1.1267
+++ /project/slime/cvsroot/slime/slime.el	2010/02/13 11:34:38	1.1268
@@ -1420,7 +1420,10 @@
                (slime-set-inferior-process c process))))
           ((and retries (zerop retries))
            (slime-cancel-connect-retry-timer)
-           (message "Failed to connect to Swank."))
+           (message "Gave up connecting to Swank after ~D attempts." attempt))
+          ((eq (process-status process) 'exit)
+           (slime-cancel-connect-retry-timer)
+           (message "Failed to connect to Swank: inferior process exited."))
           (t
            (when (and (file-exists-p file) 
                       (zerop (nth 7 (file-attributes file))))