X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-simple-streams%2Finternal.lisp;h=a74aabb2951f2e75b5d3b656bbf3788e20ad52bb;hb=905a0fc4c21ff6c8c752b9436e0616b868f1dfcc;hp=e5e926e68791965c0cb8f6efe370c507980f69cd;hpb=c44f2e6960733edc383244f3e39db3b6581255c4;p=sbcl.git

diff --git a/contrib/sb-simple-streams/internal.lisp b/contrib/sb-simple-streams/internal.lisp
index e5e926e..a74aabb 100644
--- a/contrib/sb-simple-streams/internal.lisp
+++ b/contrib/sb-simple-streams/internal.lisp
@@ -43,9 +43,9 @@
   (declare (type simple-stream-buffer src dst)
 	   (type fixnum soff doff length))
   (sb-sys:without-gcing ;; is this necessary??
-   (sb-kernel:system-area-copy (buffer-sap src) (* soff 8)
-                               (buffer-sap dst) (* doff 8)
-                               (* length 8))))
+   (sb-kernel:system-area-ub8-copy (buffer-sap src) soff
+                                   (buffer-sap dst) doff
+                                   length)))
 
 (defun allocate-buffer (size)
   (if (= size sb-impl::bytes-per-buffer)