gistfile1.sls

(defun readfile (name)
  (let ((fd (open name)))
    (prog1
      (cons 'progn
        (loop
          for line = (read fd nil 'eof)
          while (not (eq line 'eof))
          collect line))
      (close fd))))