Section 14.3 of the emacs lisp intro contains the following expression:
(while (and (< (point) end)
(re-search-forward
"\\(\\w\\|\\s_\\)+[^ \t\n]*[ \t\n]*" end t)
(setq count (1+ count)))
this is the first while expression listed. the "end t)" should be "end t))". it is missing a paren. this is emacs version 24.0.92.1.