X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ffd-stream.lisp;h=8206e41f41758eb076b8f8c7b64120dc5ea8e275;hb=4ae1b794a5d6a90794468cf8017f5307f2c30dfe;hp=c779625eefd97c20b27e25767ef303ca18d5c3a7;hpb=1394636aef3b85be4fb6ef4a5424115aa2022d99;p=sbcl.git

diff --git a/src/code/fd-stream.lisp b/src/code/fd-stream.lisp
index c779625..8206e41 100644
--- 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))