X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=inline;f=src%2Fcode%2Fstream.lisp;h=88b2f987018999e01aa8d7d58da1d66988e05778;hb=2419deec84b45d81610dc8d3db610c3e2f7b9486;hp=6631e6b61f6b2ff3ba3ae55968fc765aeb1c8a9b;hpb=34652b637f023fb24cf76df53e6a1936e94ce9ec;p=sbcl.git

diff --git a/src/code/stream.lisp b/src/code/stream.lisp
index 6631e6b..88b2f98 100644
--- a/src/code/stream.lisp
+++ b/src/code/stream.lisp
@@ -1227,8 +1227,8 @@
   ;; Global location in the stream
   (index 0 :type index)
   ;; Index cache: when we move backwards we save the greater of this
-  ;; and index here, so the the greater of index and this is always
-  ;; the end of the stream.
+  ;; and index here, so the greater of index and this is always the
+  ;; end of the stream.
   (index-cache 0 :type index)
   ;; Requested element type
   (element-type 'character))