src/io.lisp @ 3cf5a5efd686

Add iterate (collect-set ...) clause
author Steve Losh <steve@stevelosh.com>
date Mon, 25 Feb 2019 22:07:11 -0500
parents 1028d690ab05
children (none)
(in-package :losh.io)

(defun read-all (stream)
  "Read all forms from `stream` and return them as a fresh list."
  (iterate
    (for v :in-stream stream)
    (collect v)))

(defun read-all-from-string (string)
  "Read all forms from `string` and return them as a fresh list."
  (iterate
    (with done = (gensym))
    (with start = 0)
    (for (values form pos) = (read-from-string string nil done
                                               :start start))
    (while (not (eq form done)))
    (collect form)
    (setf start pos)))

(defun read-all-from-file (path)
  "Read all forms from the file at `path` and return them as a fresh list."
  (with-open-file (file path :direction :input)
    (read-all file)))