X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fstream.lisp;h=e640a9c3e73872702873438407acdc605650d74a;hb=545fa4548b327804cf78afe38a2ecd94ced86162;hp=a433a6536418f678a065982a25bfe1c49e7084d8;hpb=3c65762b927af861c9c8bc416e4cbac9a14ec0c3;p=sbcl.git

diff --git a/src/code/stream.lisp b/src/code/stream.lisp
index a433a65..e640a9c 100644
--- a/src/code/stream.lisp
+++ b/src/code/stream.lisp
@@ -511,10 +511,10 @@
 	   (when (/= start +in-buffer-extra+)
 	     (bit-bash-copy ibuf (+ (* +in-buffer-extra+ sb!vm:byte-bits)
 				    (* sb!vm:vector-data-offset
-				       sb!vm:word-bits))
+				       sb!vm:n-word-bits))
 			    ibuf (+ (the index (* start sb!vm:byte-bits))
 				    (* sb!vm:vector-data-offset
-				       sb!vm:word-bits))
+				       sb!vm:n-word-bits))
 			    (* count sb!vm:byte-bits)))
 	   (setf (lisp-stream-in-index stream) (1+ start))
 	   (code-char (aref ibuf start))))))
@@ -533,10 +533,10 @@
 	   (funcall (lisp-stream-bin stream) stream eof-error-p eof-value))
 	  (t
 	   (unless (zerop start)
-	     (bit-bash-copy ibuf (* sb!vm:vector-data-offset sb!vm:word-bits)
+	     (bit-bash-copy ibuf (* sb!vm:vector-data-offset sb!vm:n-word-bits)
 			    ibuf (+ (the index (* start sb!vm:byte-bits))
 				    (* sb!vm:vector-data-offset
-				       sb!vm:word-bits))
+				       sb!vm:n-word-bits))
 			    (* count sb!vm:byte-bits)))
 	   (setf (lisp-stream-in-index stream) (1+ start))
 	   (aref ibuf start)))))