[slime-cvs] CVS slime

[CVS User heller]

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

Modified Files:
	ChangeLog swank-allegro.lisp 
Log Message:
* swank-allegro.lisp (socket-fd): Add support for allegro.

--- /project/slime/cvsroot/slime/ChangeLog	2010/06/04 07:30:05	1.2106
+++ /project/slime/cvsroot/slime/ChangeLog	2010/06/04 07:30:13	1.2107
@@ -1,5 +1,9 @@
 2010-06-04  Helmut Eller  <heller at common-lisp.net>
 
+	* swank-allegro.lisp (socket-fd): Add support for allegro.
+
+2010-06-04  Helmut Eller  <heller at common-lisp.net>
+
 	Some *sldb-quit-restart* related fixes.
 
 	* swank.lisp (*sldb-quit-restart*): Set to nil by default.
--- /project/slime/cvsroot/slime/swank-allegro.lisp	2010/04/03 20:52:52	1.140
+++ /project/slime/cvsroot/slime/swank-allegro.lisp	2010/06/04 07:30:14	1.141
@@ -50,6 +50,9 @@
       (setf (stream-external-format s) external-format))
     s))
 
+(defimplementation socket-fd (stream)
+  (excl::stream-input-handle stream))
+
 (defvar *external-format-to-coding-system*
   '((:iso-8859-1 
      "latin-1" "latin-1-unix" "iso-latin-1-unix"