将标准输入读取到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#read-char