[slime-cvs] CVS slime

[dcrosher]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv8368

Modified Files:
	ChangeLog swank-scl.lisp 
Log Message:
Update for the Scieneer CL 1.3.


--- /project/slime/cvsroot/slime/ChangeLog	2006/06/10 03:27:03	1.905
+++ /project/slime/cvsroot/slime/ChangeLog	2006/06/11 11:02:08	1.906
@@ -1,4 +1,9 @@
+2006-06-11  Douglas Crosher <dcrosher at common-lisp.net>
+
+	* swank-scl (ext:stream-write-chars): update for SCL 1.3.
+
 2006-06-09  Alan Ruttenberg <alanr-l at mumble.net>
+
 	* swank-abcl: Update to cvs version of abcl and warnings errors
 	when compiling in a buffer will now be properly caught by slime vs
 	current behavior of always saying 0 errors 0 warnings and printing
--- /project/slime/cvsroot/slime/swank-scl.lisp	2006/04/13 04:26:31	1.7
+++ /project/slime/cvsroot/slime/swank-scl.lisp	2006/06/11 11:02:08	1.8
@@ -305,9 +305,11 @@
 ;;; usage this reduces consing.  As the string grows larger then grow to
 ;;; reduce the cost of copying strings around.
 ;;;
-(defmethod ext:stream-write-chars ((stream slime-output-stream) string start end)
+(defmethod ext:stream-write-chars ((stream slime-output-stream)
+                                   string start end waitp)
   (declare (simple-string string)
-	   (type kernel:index start end))
+	   (type kernel:index start end)
+           (ignore waitp))
   (declare (optimize (speed 3)))
   (unless (ext:stream-open-p stream)
     (error 'kernel:simple-stream-error
@@ -334,7 +336,7 @@
                   (let ((column (slot-value stream 'column)))
                     (declare (type kernel:index column))
                     (+ column (- end start))))))))
-  string)
+  (- end start))
 
 ;;;