我已经写了使用DO宏(用彼得·塞贝尔的书作为参考)功能,但由于某些原因,当我编译我的功能: (defun test()
(do ((n 2 (1+ n))
(m 1 (1+ m))
(a (1+ n))
(b (1+ m))
(c (+ n m)))
((= n 10) (* a b c))
(print (* a
我需要帮助搞清楚我有什么错我的代码中的一员,这是分配问题: 写一个递归函数命名MYMEMBER接受一个ATOM (atm)和LIST(lst),如果它是成员,则返回ATOM,否则返回0。 (MYMEMBER ‘D ‘(A B C D E F G) returns => D ex。 (MYMEMBER ‘H ‘(A B C D E F G) returns => NIL 这是我有: (defun m