Common lisp 一个简单的通用Lisp猫

如何将其转换为公共Lisp

#include <stdio.h>

main()
{
    int c;

    while ((c = getchar()) != EOF)
        putchar(c);
}

我用ANSI Common Lisp看了看，DuckDucks有点不对劲，但是

---

找不到答案。

可能的等价物是：

(loop for c = (read-char t nil) 
      while c 
      do (write-char c))

看