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


(defun lines.xach (stream)
  (do ((lines '() (cons line lines))
       (line (read-line stream nil) (read-line stream nil)))
      ((null line) (nreverse lines))))