(defun index-iteration (n)
(let ((x 0))
(loop for j from 0 to n while (< x n) do
(setf x (max-index-for-iteration j)))))
我有以下lisp代码,在循环结束时我想返回值j。我已经调查: collect但返回与我想要的值(最后j末) finally
我一直在用allegro common lisp运行一个lisp程序几天。我现在需要使用CLISP但是当我尝试编译它,我得到: SYSTEM::%FIND-PACKAGE: There is no package with name
"COMMON-GRAPHICS-USER"
我非常新的口齿不清,所以我一直在寻找一个解决方案,但我没有发现。 clisp在哪里找这个包? 我该如何添