bug#8610: 24.0.50; Emacs crashes in lisp_file_lexically_bound_p

[Michael Albinus]

I have a file "~/123" with the following contents:

--8<---------------cut here---------------start------------->8---
;;; -*-Emacs-Lisp-*- Time-stamp: "11/05/03 11:55:42 /home/albinus/123 
michael.albinus@gmx.de"
--8<---------------cut here---------------end--------------->8---

When I start "emacs -Q -l ~/123", Emacs crashes like this:

--8<---------------cut here---------------start------------->8---
(gdb) run -Q -l ~/123
Starting program: /usr/local/src/emacs/src/emacs -Q -l ~/123
[Thread debugging using libthread_db enabled]
[New Thread 0x7fffec0f5700 (LWP 2919)]

Program received signal SIGBUS, Bus error.
0x000000000059871a in lisp_file_lexically_bound_p (readcharfun=21275781)
    at lread.c:865
865                   while (i > 0 && (val[i - 1] == ' ' || val[i - 1] == '\t'))
(gdb) 
--8<---------------cut here---------------end--------------->8---



In GNU Emacs 24.0.50.1 (x86_64-unknown-linux-gnu, GTK+ Version 2.22.0)
 of 2011-02-05 on detlef
Windowing system distributor `The X.Org Foundation', version 11.0.11001000
Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: en_US.UTF-8
  value of $XMODIFIERS: nil
  locale-coding-system: utf-8-unix
  default enable-multibyte-characters: t

Major mode: Group

Minor modes in effect:
  gnus-undo-mode: t
  display-time-mode: t
  iswitchb-mode: t
  icomplete-mode: t
  show-paren-mode: t
  tooltip-mode: t
  mouse-wheel-mode: t
  menu-bar-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  blink-cursor-mode: t
  auto-composition-mode: t
  auto-encryption-mode: t
  auto-compression-mode: t
  column-number-mode: t
  line-number-mode: t
  transient-mark-mode: t

Recent input:
<left> <left> <left> <left> <left> <left> <left> <left> 
<left> <left> <left> i n s g e s a m t SPC <escape> 
q <down> . <end> <return> <return> C i a o , SPC M 
i c h a e l <down-mouse-1> <mouse-1> <escape> c <down-mouse-1> 
<mouse-1> SPC z u s a m m e n <escape> q C-c C-c s 
g <help-echo> g <up> <up> <up> <down> <return> n n 
SPC n s C-x C-f . e m a c s <return> C-x C-w 1 2 3 
<return> y C-x C-f . t r a <tab> <return> C-x C-w 4 
5 6 <return> y C-x C-f 1 2 3 . e <tab> <return> C-x 
C-f <return> <down> <down> <down> <down> d x y e s 
<return> <help-echo> q C-x k <return> C-x b <return> 
<home> C-s t r a m p <down> <right> <right> <right> 
<right> <right> <right> <right> <right> <right> <right> 
<right> <right> <right> <right> <right> <right> <right> 
<right> <right> <right> <right> <right> <right> <right> 
<right> 4 5 6 <kp-subtract> <right> <right> <right> 
<right> <right> <right> <right> <right> <right> <right> 
<right> <right> 4 5 6 <kp-subtract> C-x C-s <kp-0> 
<kp-subtract> <kp-subtract> <kp-subtract> <kp-subtract> 
<kp-subtract> <delete> <delete> <delete> <down> <left> 
<backspace> C-x C-s <up> <home> C-x C-x C-w C-x C-s 
<delete> <down> <end> C-x C-x C-w C-x C-s C-x k <return> 
<kp-add> C-x C-s <kp-divide> <down> <end> C-x C-x C-w 
C-x C-s <down-mouse-1> <mouse-1> <down-mouse-3> <mouse-3> 
<double-down-mouse-3> <double-mouse-3> C-x C-s <kp-divide> 
<kp-divide> <down-mouse-3> <mouse-3> <double-down-mouse-3> 
<double-mouse-3> C-x C-s <kp-divide> <kp-divide> C-x 
C-s C-x C-w 1 2 3 <return> y <f1> g ( g d b ) <return> 
q <escape> x m a n <return> g d b <return> C-x 0 <next> 
<prior> <prior> <down> <down> <down> <next> q <f2> 
<escape> x r e p o <tab> r <tab> <return>

Recent messages:
Reading active file via nnnil...done
Reading active file from news via nntp...
Opening nntp server on news...done
Reading active file via nnml...
Reading incoming mail from pop...
nnml: Reading incoming mail (no new mail)...done
Reading active file via nnml...done
Reading active file via nndraft...done
Checking new news...done
Making completion list...

Load-path shadows:
~/src/tramp/lisp/tramp-loaddefs hides 
/usr/local/share/emacs/24.0.50/lisp/net/tramp-loaddefs
~/src/tramp/lisp/tramp-sh hides /usr/local/share/emacs/24.0.50/lisp/net/tramp-sh
~/src/tramp/lisp/tramp-cache hides 
/usr/local/share/emacs/24.0.50/lisp/net/tramp-cache
~/src/tramp/lisp/tramp-uu hides /usr/local/share/emacs/24.0.50/lisp/net/tramp-uu
~/src/tramp/lisp/tramp-smb hides 
/usr/local/share/emacs/24.0.50/lisp/net/tramp-smb
~/src/tramp/lisp/tramp-cmds hides 
/usr/local/share/emacs/24.0.50/lisp/net/tramp-cmds
~/src/tramp/lisp/tramp-gw hides /usr/local/share/emacs/24.0.50/lisp/net/tramp-gw
~/src/tramp/lisp/tramp-gvfs hides 
/usr/local/share/emacs/24.0.50/lisp/net/tramp-gvfs
~/lisp/dbus hides /usr/local/share/emacs/24.0.50/lisp/net/dbus
~/src/tramp/lisp/trampver hides /usr/local/share/emacs/24.0.50/lisp/net/trampver
~/src/tramp/lisp/tramp-compat hides 
/usr/local/share/emacs/24.0.50/lisp/net/tramp-compat
~/src/tramp/lisp/tramp hides /usr/local/share/emacs/24.0.50/lisp/net/tramp
~/src/tramp/lisp/tramp-ftp hides 
/usr/local/share/emacs/24.0.50/lisp/net/tramp-ftp

Features:
(shadow warnings emacsbug url-util url-parse url-vars help-mode view
tabify man assoc info multi-isearch mailalias newcomment time-stamp sort
smiley ansi-color gnus-cite flow-fill qp mail-extr gnus-async gnus-bcklg
parse-time gnus-ml disp-table pop3 byte-opt bytecomp byte-compile
nndraft nnmh nnml gnus-agent gnus-srvr gnus-score score-mode nnvirtual
gnus-msg gnus-art mm-uu mml2015 epg-config mm-view mml-smime smime dig
mailcap gnus-cache nnir gnus-sum macroexp nnnil smtpmail gnus-demon nntp
gnus-group gnus-undo nnmail mail-source proto-stream starttls tls nnoo
gnus-start gnus-spec gnus-int gnus-range message sendmail rfc822 mml
mml-sec mm-decode mm-bodies mm-encode mail-parse rfc2231 rfc2047 rfc2045
ietf-drums mailabbrev gmm-utils mailheader gnus-win gnus gnus-ems
nnheader mail-utils mm-util mail-prsvr wid-edit debbugs-autoloads
package cperl-mode easymenu time tramp tramp-compat auth-source netrc
gnus-util time-date password-cache format-spec advice help-fns
advice-preload cl tramp-loaddefs iswitchb jka-compr icomplete paren
ps-print ps-def lpr vc vc-dispatcher dired regexp-opt tooltip ediff-hook
vc-hooks lisp-float-type mwheel x-win x-dnd tool-bar dnd fontset image
fringe lisp-mode register page menu-bar rfn-eshadow timer select
scroll-bar mouse jit-lock font-lock syntax facemenu font-core frame cham
georgian utf-8-lang misc-lang vietnamese tibetan thai tai-viet lao
korean japanese hebrew greek romanian slovak czech european ethiopic
indian cyrillic chinese case-table epa-hook jka-cmpr-hook help simple
abbrev loaddefs button minibuffer faces cus-face files text-properties
overlay md5 base64 format env code-pages mule custom widget
hashtable-print-readable backquote make-network-process dbusbind
dynamic-setting system-font-setting font-render-setting move-toolbar gtk
x-toolkit x multi-tty emacs)