在femtolisp中添加Do循环或定义do循环宏常见的lisp

Question

我在我的项目中使用femtolisp，但它不支持do循环。任何人都可以指导我如何在femtolisp中添加do循环功能，或者我可以在常见的lisp中为do循环定义一个宏。

Answer 1

Femtolisp 提供do macro。作为参考，这里是它的实现：

(define-macro (do vars test-spec . commands)
  (let ((loop (gensym))
        (test-expr (car test-spec))
        (vars  (map car  vars))
        (inits (map cadr vars))
        (steps (map (lambda (x)
                      (if (pair? (cddr x))
                          (caddr x)
                          (car x)))
                    vars)))
    `(letrec ((,loop (lambda ,vars
                       (if ,test-expr
                           (begin
                             ,@(cdr test-spec))
                           (begin
                             ,@commands
                             (,loop ,.steps))))))
       (,loop ,.inits))))