(LAMBDA (L)
(PROG (L1 C)
(SETQ L1 L)
(SETQ C 0)
A (COND ((NULL L1) (RETURN C)))
(SETQ C (ADD1 C))
(SETQ L1 (REST L1))
(GO A)) '(1 2 3 4))
как посмотреть в С?
Переделал
(PROG ((L1 '(1 2 3 4)) (C 0))
A (COND ((NULL L1) (RETURN C)))
(SETQ C (+ 1 C))
(SETQ L1 (REST L1))
(GO A))
4
(funcall (LAMBDA (L)
(PROG (L1 C)
(SETQ L1 L)
(SETQ C 0)
A (COND ((NULL L1) (RETURN C)))
(SETQ C (+ 1 C))
(SETQ L1 (REST L1))
(GO A))) '(1 2 3 4))
4
Вот, наверное, и ответ на вопрос.
