gistfile1.sls

(defun readfile (name)
  (let ((fd (open name)))
    (loop
     for line = (read fd nil 'eof)
     when (not (eq line 'eof))
     do (print line)
     else return (close fd)
     )))