diff --git a/code/fd-stream.lisp b/code/fd-stream.lisp index f4f385cf4897d34b82ad7221f4bcd6c6498066f7..e394d4776c037b46bc147fbb76b934bed82b8191 100644 --- a/code/fd-stream.lisp +++ b/code/fd-stream.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/fd-stream.lisp,v 1.110 2010/07/03 16:44:37 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/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) ;;@@