I'm having trouble going from the tutorials to the real world. For
example, a lot of what i do is related to processing text files. So, i
though i'd write a simple/stupid program to count the number of lines
in a file. Here it is:

;; count number of lines in file key.html
(with-open-file (ifile "key.html" :direction :input)
                (setf nlines 0)
                (loop
                  (if (read-line ifile nil)
                    (setf nlines (+ 1 nlines))
                    (return nlines))))

It doesn't work (it just hangs, so i think it's stuck in the loop). I
thought it would read lines until the end of the file, when the read-
line would return nil, and that would trigger the second form inside
the if (a return, to get out of the loop).

I'm sorry for posting something so stupid, but why doesn't this work?

--
Glauber Ribeiro
theglau...@my-deja.com
"Opinions stated are my own and not representative of Experian"