X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fstream.lisp;h=adec88826d846588073f9fd1df17fb0002aec477;hb=35871544d182adf1895cf6d99d3f995ac2b425e0;hp=48d3d73c75a4be535999f119efee8c97210e2773;hpb=12b7e571c9a7f14a53d7782b055d2bebe3363b9c;p=sbcl.git diff --git a/src/code/stream.lisp b/src/code/stream.lisp index 48d3d73..adec888 100644 --- a/src/code/stream.lisp +++ b/src/code/stream.lisp @@ -1134,7 +1134,7 @@ (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 - (sb!sys:without-gcing + (without-gcing (system-area-ub8-copy (vector-sap string) index (if (typep buffer 'system-area-pointer)