(setf inf (open "tony.in" :direction :input))
#<Character-Input-Stream 6:"c:\arroyo\eel5840\2009\examples\tony.in">
> inf
#<Character-Input-Stream 6:"c:\arroyo\eel5840\2009\examples\tony.in">
> (setf input (read x))
Error: The variable X is unbound.
Happened in: #<Subr-TOP-LEVEL-LOOP: #a128d0>
> (setf x (read inf))
(CAR (QUOTE (B C)))
> x
(CAR (QUOTE (B C)))
> (eval x)
B
> (setf y (read inf))
(CDR (QUOTE (A B C)))
> (eval y)
(B C)
> (read inf)
(COKE IS IT)
> (read inf)
PEPSI
> (read inf)
(SETF GATORBAIT (QUOTE (UT UK LSU ARK MSU GA VANDY SC FIU FSU)))
> (read inf)
(CONS (QUOTE GATORS) GATORBAIT)
> (read inf)
(SETQ EVE (QUOTE ((MOTHER (CAIN ABEL)) (GRANDMOTHER (TUBALCAIN JUBAL)))))
> (read inf)
((MOTHER (CAIN ABEL)) (GRANDMOTHER (TUBALCAIN JUBAL)))
> (read inf)
Error: end of file on read
Happened in: #<Subr-READ: #a16090>
> (exit)