From ...
From: Erik Naggum <erik@naggum.no>
Subject: Re: Newbie Help Please:  Reading into a list from a file
Date: 1999/04/30
Message-ID: <3134473642124751@naggum.no>#1/1
X-Deja-AN: 472710969
Distribution: Global
References: <37266b90.3567519@news3.newscene.com> <sfw4sm0yvwg.fsf@world.std.com>
mail-copies-to: never
Organization: Naggum Software; +47 8800 8879; http://www.naggum.no
Newsgroups: comp.lang.lisp

* Kent M Pitman <pitman@world.std.com>
|  (defun peek-char-after-whitespace (stream)
|    (loop for ch = (read-char stream nil nil)
|          while ch
|          when (not (whitespace? stream))
| 	   do (return ch)))

  I'd've used (peek-char t stream nil nil) for this.  have I read the
  specification too well, again?  :)

#:Erik