Comment

diff --git a/src/lread.c b/src/lread.c
index 0b7fd90..d22011b 100644 (file)
--- 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 != ';')