[slime-cvs] CVS slime

[CVS User heller]

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

Modified Files:
	ChangeLog swank-backend.lisp swank-sbcl.lisp 
Log Message:
* swank-backend.lisp (call-with-io-timeout): Not used. Deleted.
* swank-sbcl.lisp (call-with-io-timeout): Deleted.

--- /project/slime/cvsroot/slime/ChangeLog	2012/05/07 06:10:50	1.2336
+++ /project/slime/cvsroot/slime/ChangeLog	2012/05/11 06:52:05	1.2337
@@ -1,3 +1,8 @@
+2012-05-11  Helmut Eller  <heller at common-lisp.net>
+
+	* swank-backend.lisp (call-with-io-timeout): Not used. Deleted.
+	* swank-sbcl.lisp (call-with-io-timeout): Deleted.
+
 2012-05-07  Helmut Eller  <heller at common-lisp.net>
 
 	Ignore linebreaks for the macroexpand test.
--- /project/slime/cvsroot/slime/swank-backend.lisp	2012/05/06 15:40:04	1.219
+++ /project/slime/cvsroot/slime/swank-backend.lisp	2012/05/11 06:52:05	1.220
@@ -1425,12 +1425,6 @@
             (type function function))
    (funcall function))
 
-;; Same here: don't use this outside of swank-gray.lisp.
-(definterface call-with-io-timeout (function &key seconds)
-  "Calls function with the specified IO timeout."
-  (declare (ignore seconds))
-  (funcall function))
-
 
 ;;;; Weak datastructures
 
--- /project/slime/cvsroot/slime/swank-sbcl.lisp	2012/05/06 21:19:48	1.318
+++ /project/slime/cvsroot/slime/swank-sbcl.lisp	2012/05/11 06:52:05	1.319
@@ -1838,13 +1838,6 @@
                          :dual-channel-p t                         
                          :external-format external-format))
 
-(defimplementation call-with-io-timeout (function &key seconds)
-  (handler-case
-      (sb-sys:with-deadline (:seconds seconds)
-        (funcall function))
-    (sb-sys:deadline-timeout ()
-      nil)))
-
 #-win32
 (defimplementation background-save-image (filename &key restart-function
                                                    completion-function)