Subj : iterate through file
To   : All
From : tony summerfelt
Date : Wed Mar 30 2005 02:15 pm

in my quest to learn a new language every summer, this time around i've decided 
on lisp. i've fiddled with lisp before, but nothing really serious.

it took a lot longer to find a usable lisp interpreter/compiler than it should 
have.

finally got a win32 version clisp (that doesn't need cygwin), and gui compiler 
called ultrasoft lisp. and scheme/tk that allows you to write tk based lisp 
programs...

anyway, this is my first real working lisp program. all it does is take a file 
name on the command line and print it out line by line:

;========================================================
(with-open-file (stream (first *args*) :direction :input)
   (loop for line = (read-line stream nil nil)
      while line
         do (write-line line)
   )
)
;========================================================




..t

.... telnet://ventedspleen.dyndns.org
--- GoldED/spleen 3.0.1+
 * Origin: ventedspleen.dyndns.org (1:249/100)

.