X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fstream.lisp;h=cbbdf974e60534c688cd07ea8df7bd58ab36aaf3;hb=ef716ee5409d0d55020aea422e29a9175c2b4b74;hp=d2614b988a1adcd9aeb89ae91c858866e3d4980f;hpb=8cad02355db787b9f077b77f508329550ccd0db6;p=sbcl.git

diff --git a/src/code/stream.lisp b/src/code/stream.lisp
index d2614b9..cbbdf97 100644
--- a/src/code/stream.lisp
+++ b/src/code/stream.lisp
@@ -1136,14 +1136,14 @@
             (truly-the index (+ index copy)))
       ;; FIXME: why are we VECTOR-SAP'ing things here?  what's the point?
       ;; and are there SB-UNICODE issues here as well?  --njf, 2005-03-24
-      (without-gcing
-       (system-area-ub8-copy (vector-sap string)
-                             index
-                             (if (typep buffer 'system-area-pointer)
-                                 buffer
-                                 (vector-sap buffer))
-                             start
-                             copy)))
+      (with-pinned-objects (string buffer)
+        (system-area-ub8-copy (vector-sap string)
+                              index
+                              (if (typep buffer 'system-area-pointer)
+                                  buffer
+                                  (vector-sap buffer))
+                              start
+                              copy)))
     (if (and (> requested copy) eof-error-p)
         (error 'end-of-file :stream stream)
         copy)))