(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在哪裏找這個包? 我該如何添