From ad6b4b574b2586177b587988334f9572fc007ca7 Mon Sep 17 00:00:00 2001 From: Jussi Lahdenniemi Date: Thu, 3 Jan 2019 11:55:35 +0200 Subject: [PATCH] Fix to issue #181, file-position returning wrong values --- level-1/l1-sysio.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/level-1/l1-sysio.lisp b/level-1/l1-sysio.lisp index c84a3c6f8..509fdce6e 100644 --- a/level-1/l1-sysio.lisp +++ b/level-1/l1-sysio.lisp @@ -516,7 +516,7 @@ is :UNIX.") ;;; to read this time is (+ where-it-was-last-time what-we-read-last-time.) (defun input-file-ioblock-advance (stream file-ioblock read-p) (let* ((newpos (+ (file-ioblock-octet-pos file-ioblock) - (io-buffer-count (file-ioblock-inbuf file-ioblock))))) + (ioblock-elements-to-octets file-ioblock (io-buffer-count (file-ioblock-inbuf file-ioblock)))))) (setf (file-ioblock-octet-pos file-ioblock) newpos) (fd-stream-advance stream file-ioblock read-p)))