[slime-cvs] CVS slime

[CVS User heller]

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

Modified Files:
	ChangeLog swank-ccl.lisp 
Log Message:
* swank-ccl.lisp (socket-fd): Implement backend function.

--- /project/slime/cvsroot/slime/ChangeLog	2010/05/27 14:48:12	1.2099
+++ /project/slime/cvsroot/slime/ChangeLog	2010/05/27 14:48:19	1.2100
@@ -1,5 +1,9 @@
 2010-05-27  Helmut Eller  <heller at common-lisp.net>
 
+	* swank-ccl.lisp (socket-fd): Implement backend function.
+
+2010-05-27  Helmut Eller  <heller at common-lisp.net>
+
 	Clean up some of the confusion regarding *sldb-quit-restart*.
 
 	* swank.lisp (top-level-restart-p, *toplevel-restart-available*)
--- /project/slime/cvsroot/slime/swank-ccl.lisp	2010/03/10 00:02:53	1.19
+++ /project/slime/cvsroot/slime/swank-ccl.lisp	2010/05/27 14:48:19	1.20
@@ -115,6 +115,9 @@
   (car (rassoc-if (lambda (x) (member coding-system x :test #'equal))
                   *external-format-to-coding-system*)))
 
+(defimplementation socket-fd (stream)
+  (ccl::ioblock-device (ccl::stream-ioblock stream t)))
+
 ;;; Unix signals
 
 (defimplementation getpid ()