1 files changed, 2 insertions, 0 deletions

diff --git a/src/lread.c b/src/lread.c
index 0b7fd9067dc..d22011be7c8 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -784,6 +784,8 @@ lisp_file_lexically_bound_p (Lisp_Object readcharfun)
       while (ch != '\n' && ch != EOF)
         ch = READCHAR;
       if (ch == '\n') ch = READCHAR;
+      /* It is OK to leave the position after a #! line, since
+         that is what read1 does.  */
     }
 
   if (ch != ';')