All pastes #275592 Raw Edit

Unnamed

public text v1 · immutable
·published 2006-12-11 17:33 UTC
rendered paste body
(defun lines (stream)
  (let ((lines '()))
    (do ((line (read-line stream) (read-line stream nil :eof)))
	((eql :eof line))
      (setq lines (cons line lines)))
    lines))