X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Fstream.lisp;h=d2614b988a1adcd9aeb89ae91c858866e3d4980f;hb=d8978f48b6c8b583612f6adbe33d3030f862ef87;hp=48d3d73c75a4be535999f119efee8c97210e2773;hpb=12b7e571c9a7f14a53d7782b055d2bebe3363b9c;p=sbcl.git

diff --git a/src/code/stream.lisp b/src/code/stream.lisp
index 48d3d73..d2614b9 100644
--- a/src/code/stream.lisp
+++ b/src/code/stream.lisp
@@ -150,6 +150,8 @@
   (declare (type stream stream))
   (declare (type (or index (alien sb!unix:off-t) (member nil :start :end))
                  position))
+  ;; FIXME: It woud be good to comment on the stuff that is done here...
+  ;; FIXME: This doesn't look interrupt safe.
   (cond
     (position
      (setf (ansi-stream-in-index stream) +ansi-stream-in-buffer-length+)
@@ -1134,7 +1136,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)