一只简单的 Common-Lisp 猫

Question

如何将其翻译成 Common Lisp？

#include <stdio.h>

main()
{
    int c;

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

我查看了 ANSI Common Lisp 并且 duckduckwent 有点，但是 找不到答案。

Answer 1

可能的等价物是：

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

见the example。