CMUCL commit: src/code (fd-stream.lisp)

[Raymond Toy]

    Date: Sunday, July 4, 2010 @ 23:11:08
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/code

Modified: fd-stream.lisp

Oops.  STRING-ENCODE now takes keyword args instead of optional args,
so update code.


----------------+
 fd-stream.lisp |    6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)


Index: src/code/fd-stream.lisp
diff -u src/code/fd-stream.lisp:1.110 src/code/fd-stream.lisp:1.111
--- src/code/fd-stream.lisp:1.110	Sat Jul  3 12:44:37 2010
+++ src/code/fd-stream.lisp	Sun Jul  4 23:11:08 2010
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /project/cmucl/cvsroot/src/code/fd-stream.lisp,v 1.110 2010-07-03 16:44:37 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/code/fd-stream.lisp,v 1.111 2010-07-05 03:11:08 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1713,8 +1713,8 @@
 		     (decf posn
 			   (length (string-encode (fd-stream-string-buffer stream)
 						  (fd-stream-external-format stream)
-						  (fd-stream-string-index stream)
-						  (fd-stream-string-buffer-len stream))))
+						  :start (fd-stream-string-index stream)
+						  :end (fd-stream-string-buffer-len stream))))
 		     (decf posn (- (fd-stream-ibuf-tail stream)
 				   (fd-stream-ibuf-head stream))))
 		 (when (fd-stream-unread stream) ;;@@