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

[Juho Snellman]

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

Modified Files:
	swank-backend.lisp ChangeLog 
Log Message:
2005-10-01  Juho Snellman  <jsnell at iki.fi>
        * swank-backend (*gray-stream-symbols*): Add :STREAM-LINE-LENGTH
        to *GRAY-STREAM-SYMBOLS* on implementations that support this
        extension to gray streams. Reported by Matthew D Swank.

Date: Sat Oct  1 14:00:28 2005
Author: jsnellman

Index: slime/swank-backend.lisp
diff -u slime/swank-backend.lisp:1.89 slime/swank-backend.lisp:1.90
--- slime/swank-backend.lisp:1.89	Tue Sep 27 23:50:38 2005
+++ slime/swank-backend.lisp	Sat Oct  1 14:00:27 2005
@@ -167,7 +167,11 @@
     :stream-unread-char
     :stream-clear-input
     :stream-line-column
-    :stream-read-char-no-hang))
+    :stream-read-char-no-hang
+    ;; STREAM-LINE-LENGTH is an extension to gray streams that's apparently
+    ;; supported by CMUCL, OpenMCL and SBCL.
+    #+(or cmu openmcl sbcl)
+    :stream-line-length))
 
 (defun import-from (package symbol-names &optional (to-package *package*))
   "Import the list of SYMBOL-NAMES found in the package PACKAGE."


Index: slime/ChangeLog
diff -u slime/ChangeLog:1.790 slime/ChangeLog:1.791
--- slime/ChangeLog:1.790	Thu Sep 29 07:16:19 2005
+++ slime/ChangeLog	Sat Oct  1 14:00:27 2005
@@ -1,3 +1,8 @@
+2005-10-01  Juho Snellman  <jsnell at iki.fi>
+	* swank-backend (*gray-stream-symbols*): Add :STREAM-LINE-LENGTH
+        to *GRAY-STREAM-SYMBOLS* on implementations that support this
+        extension to gray streams. Reported by Matthew D Swank.
+
 2005-09-29  Luke Gorrie  <luke at synap.se>
 
 	* swank-scheme48: Removed due to excessive whining.