0.7.7.9:

[sbcl.git] / src / code / fd-stream.lisp

diff --git a/src/code/fd-stream.lisp b/src/code/fd-stream.lisp
index c779625..8206e41 100644 (file)
--- a/src/code/fd-stream.lisp
+++ b/src/code/fd-stream.lisp
@@ -369,6 +369,9 @@
     (if (stringp thing)
        (let ((last-newline (and (find #\newline (the simple-string thing)
                                       :start start :end end)
+                                ;; FIXME why do we need both calls?
+                                ;; Is find faster forwards than
+                                ;; position is backwards?
                                 (position #\newline (the simple-string thing)
                                           :from-end t
                                           :start start
@@ -890,7 +893,7 @@
          (cond ((fixnump posn)
                 ;; Adjust for buffered output: If there is any output
                 ;; buffered, the *real* file position will be larger
-                ;; than reported by lseek because lseek obviously
+                ;; than reported by lseek() because lseek() obviously
                 ;; cannot take into account output we have not sent
                 ;; yet.
                 (dolist (later (fd-stream-output-later stream))