Читать stdin в строку в Newlisp

Question

Как вы читаете все содержимое стандартного ввода в строку в Newlisp? (т.е. все оставшееся содержимое после текущей позиции чтения - эта операция обычно называется "файл slurp")

Answer 1

Вы можете использовать это:

(define (read-all)
  (let (r "" ch "")
      (while (setf ch (read-char))
        (setf r (append r (char ch))))
    r))

См. Также: http://www.newlisp.org/downloads/newlisp_manual.html