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.