(defun lines (stream)
  (let ((lines '()))
    (do ((line (read-line stream) (read-line stream nil :eof)))
	((eql :eof line))
      (setq lines (cons line lines)))
    lines))